Tæller der ikke kan vise 0 eller 1 post

Du skal da bare bytte om på de to stumper kode!

eller tilføje en

rs.movefirst

mellem dem

I dit do until...loop beder du dit recordset om at gå til den næste record, indtil den når enden...

Derefter spørger du om den er nået til enden... Og det er den jo! :-)

Så hvis du nu skriver:

Dim teller
If (rs.BOF or rs.EOF) then
  Response.Write(\"No records found matching your search\")
else
  Do until rs.eof
    teller = teller + 1
    rs.movenext
  loop
  response.write \"<h2>Searchresult: \" & teller & \" hits</h2>\"
end if

Det prøver jeg på denne måde, men jeg får stadig ikke fat i de søgesæt, der kun returnere 1 post. Begriber det ikke.....

  If (rs.BOF or rs.EOF) Then
    response.Write \"No records found matching your search\"
    else
    Dim teller
    teller=0
    Do until rs.eof
          teller = teller + 1
      rs.movenext
    loop

    rs.movefirst
   
    response.write \"<h2>Searchresult: \" & teller & \" hits</h2>\"
  while not rs.EOF
    response.Write \"<table border cellspacing=2 cellpadding=3 width=600>\"
    response.Write \"<tr><th><h3>PMnumber</h3></th><th><h3>Brief Description</h3></th><th><h3>Reported by:</h3></th><th><h3>Call Number</h3></th><th><h3>Open Date</h3></th></tr><tr><td>\"
    response.Write rs(\"number\")& \"</td><td>\"
    response.Write rs(\"brief_description\") & \"</td><td>\"
    response.Write rs(\"contactname\") & \"</td><td>\"
        response.Write rs(\"incident_id\") & \"</td><td>\"
        response.Write rs(\"open_date\") & \"</td></tr><tr><td colspan=5>\"
    response.Write \"<b>Solution:</b>\" & rs(\"resolution\") & \"</td></tr></table><br>\"
    rs.Movenext
  wend
end if

Bliver der talt rigtigt op i variablen teller når der kun er 1 post?