[asp] no records found

[Verwijderd]

check onderstaand script ::

code:

<%

Dim strURL     
               

Dim cnnSearch  
Dim rstSearch  
Dim strDBPath  

Dim strSQL     
Dim strSearch  


strURL = Request.ServerVariables("URL")

strSearch = Request.QueryString("search")



%>
<font face="Verdana" size="1"><br><b>Zoek op achternaam:</b></font><br>

<form action="<%= strURL %>" method="get">
Achternaam:<br><br>
<input name="search" value="<%= strSearch %>" />
<br><br>
<input type="submit" name="Submit" value="Zoeken" class="borderbutton">
<input type="reset" name="Reset" value="Wissen" class="borderbutton">
</form>

<%

If strSearch <> "" Then


    strDBPath = Server.MapPath("db\database.mdb")


    Set cnnSearch = Server.CreateObject("ADODB.Connection")


    cnnSearch.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & ";"


    strSQL = "SELECT *, dbo_functie.functienaam, dbo_sector.sectornaam, dbo_afdeling.afdelingnaam " _
        & "FROM dbo_sector INNER JOIN (dbo_functie INNER JOIN (dbo_afdeling INNER JOIN dbo_medewerker ON dbo_afdeling.afdelingId = dbo_medewerker.afdelingId) ON dbo_functie.functieId = dbo_medewerker.functieId) ON dbo_sector.sectorId = dbo_medewerker.sectorId " _ 
                & "WHERE achternaam LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
                & "OR roepnaam LIKE '%" & Replace(strSearch, "'", "''") & "%' " _
        & "ORDER BY achternaam;"


    Set rstSearch = cnnSearch.Execute(strSQL)

%>

If Request.QueryString("search") = "" Then
Response.Write("<b>Sorry, er zijn geen records gevonden.</b>")

Else

Zoekresultaten voor: "<%= strSearch %>"


    <%
Do While Not rstSearch.EOF
        %>

<table cellspacing=0 cellpadding=0>

<tr>
<td style="height:2" bgcolor="#000000" cellspacing=0 cellpadding=0 width=100%/>
</tr>

</table>

<table border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><b><font face="Verdana" size="2"><%= rstSearch.Fields("aanhef").Value %>&nbsp<%= rstSearch.Fields("titel").Value %>&nbsp<%= rstSearch.Fields("tussenvoegsel").Value %>&nbsp<%= rstSearch.Fields("achternaam").Value %>,&nbsp<%= rstSearch.Fields("voorletters").Value %></font></b><br>[img]"<%=[/img]" align="left" border="1" bordercolor="#000000"></td>
  </tr>
  <tr>
    <td><table border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="100"><font face="Verdana" size="1"><b>Roepnaam:</b></font></td>
        <td width="100"><font face="Verdana" size="1"><%= rstSearch.Fields("roepnaam").Value %></font></td>
      </tr>
      <tr>
        <td width="100"><font face="Verdana" size="1"><b>Functie:</b></font></td>
        <td width="100"><font face="Verdana" size="1"><%= rstSearch.Fields("functienaam").Value %></font></td>
      </tr>
      <tr>
        <td width="100"><font face="Verdana" size="1"><b>Sector/Onderdeel:</b></font></td>
        <td width="100"><font face="Verdana" size="1"><%= rstSearch.Fields("sectornaam").Value %></font></td>
      </tr>
      <tr>
        <td width="100"><font face="Verdana" size="1"><b>Afdeling:</b></font></td>
        <td width="100"><font face="Verdana" size="1"><%= rstSearch.Fields("afdelingnaam").Value %></font></td>
      </tr>
      <tr>
        <td width="100"><font face="Verdana" size="1"><b>Kamernummer:</b></font></td>
        <td width="100"><font face="Verdana" size="1"><%= rstSearch.Fields("kamernummer").Value %></font></td>
      </tr>
      <tr>
        <td width="100"><font face="Verdana" size="1"><b>Telefoon:</b></font></td>
        <td width="100"><font face="Verdana" size="1"><%= rstSearch.Fields("telefoonnummer1").Value %></font></td>
      </tr>
      <tr>
        <td width="100"><font face="Verdana" size="1"><b>E-mail:</b></font></td>
        <td width="100"><font face="Verdana" size="1"><%= rstSearch.Fields("emailadres1").Value %></font></td>
      </tr>
    </table></td>
  </tr><br><br>


        <%

        rstSearch.MoveNext
    Loop
    %>

    </table>



    <%


    rstSearch.Close
    Set rstSearch = Nothing
    cnnSearch.Close
    Set cnnSearch = Nothing
End If


%>

het werkt prima behalve de message "er zijn geen records gevonden" als ik
geen invoer geef. ziet iemand wat ik over het hoofd zie?

[André]

Maak van:

If Request.QueryString("search") = "" Then

dit:

If StrSearch = "" Then

[gorgi_19]

Sowieso denk ik dat het logischer is om te testen of rstSearch.EOF waar is of niet / de RecordCount 0 is of niet.

[ Voor 16% gewijzigd door gorgi_19 op 10-05-2004 10:56 ]

[Verwijderd]

als ik dit toepast volgens andre:

If strSearch = "" Then
Response.Write("<b>Sorry, er zijn geen records gevonden.</b>")

Else

Zoekresultaten voor: "<%= strSearch %>"

krijg ik deze melding als ik een term intyp die echt geen "hit" zal hebben:

If strSearch = "" Then Response.Write("Sorry, er zijn geen records gevonden.") Else Zoekresultaten voor: "sdgsdhhfdhf"

dit zie ik als zoekresultaat...

[gorgi_19]

Erhm.. Gok je dat in Request.QueryString("search") je resultaten van je query gaan staan?

[André]

Aha, je wilt die melding alleen als de recordset leeg is ipv de querystring. Dan zul je gorgi_19's oplossing moeten gebruiken:

if rstSearch.EOF then

[Verwijderd]

zoiets?

If rstSearch.RecordCount = 0 Then
Response.Write("No records found")
Else
Zoekresultaten voor: "<%= strSearch %>"

<%
Do While Not rstSearch.EOF
%>
enzovoorts...

[Verwijderd]

If rstSearch.EOF = 0 Then
Response.Write("No records found")
Else
Zoekresultaten voor: "<%= strSearch %>"

<%
Do While Not rstSearch.EOF
%>
enzovoorts...

[gorgi_19]

Mja, we komen nu een beetje op uit de basis. Het enige wat ik kan zeggen is: "Probeer het zelf eens uit?" Je hebt iig nu de middelen aangereikt gekregen om je probleem op te lossen.

Sowieso:

If rstSearch.EOF = 0 Then

Wat is de returnwaarde van EOF? Een boolean. Het lijkt me dan ook vrij nutteloos om te gaan vergelijken met een integerwaarde.

Verder begint dit wel heel erg een "neem mij aan het handje" topic te worden, dus deze gaat dicht. Sowieso een tip om eens een aantal tutorials door te nemen, want ik betwijfel of je echt precies weet wat je doet

[ Voor 19% gewijzigd door gorgi_19 op 10-05-2004 11:08 ]