problemer med IF sætning

og din kode ser hvordan ud?

et lille gæt kunne være;

if rs.eof Then
  Response.Write "0 resultater"
else
  'din normale kode
end if

Ja eller:

intCounter = 0
Do While Not rs.EOF
...
intCounter = intCounter +1
Loop

Response.Write intCounter & " resultater fundet."

det gik vist lidt hurtigt - her kommer min kode

<%

Function Highlight(vFind, vSearch)
Dim RegEx
  Set RegEx = New RegExp
  RegEx.Pattern = vFind
  RegEx.IgnoreCase = True
  RegEx.Global = True
  Highlight = RegEx.Replace(vSearch, "<span class=""Highlight"">" & vFind &"</span>")
  Set RegEx = Nothing
End Function


' Henter værdien fra soeg.asp
strKeyword = Trim(Request.Form("Keyword"))

'response.write strKeyword
'response.write maanedsnr
'response.end

If Len(strKeyword) = 0 Then
    ' Hvis der ikke er skrevet i feltet
    Response.Clear
    Response.Redirect("faq.asp")
Else
    ' Hvis der er skrevet i feltet
    'strKeyword = Replace(strKeyword,"'","''")
End If
' Opbygger en dynamisk SQL streng
strSQL = "SELECT emne, sporgsmaal, svar FROM T_polisfaq WHERE"
strSQL = strSQL & " ((emne LIKE '" & strKeyword & "')"
strSQL = strSQL & " OR (sporgsmaal LIKE '%" & strKeyword & "%')"
strSQL = strSQL & " OR (svar LIKE '%" & strKeyword & "%')) and faqtype like 'm2009'"

'Åbning af serverforbindelser
        set rs = server.createobject("ADODB.Recordset")
        rs.Open strSQL, strCon   


' Skaber et recordset udfra SQL strengen

If Not (rs.BOF Or rs.EOF) Then
    ' Hvis der er fundet poster på søgningen


    Response.Write "<table class='resultat' width='700'>"
 
    count = 0
    Do While Not rs.EOF
   
   
   
    Response.Write "<tr>"
    response.write "<tr><td valign='top'><font face='Trebuchet MS'><strong>Kategori:&nbsp;</strong>" & rs("emne") &"</td><tr><td ><font face='Trebuchet MS'><strong>Spørgsmål:&nbsp;</strong>" & highlight(strkeyword, rs("sporgsmaal")) & "</td></tr><tr><td ><strong>Svar:&nbsp;</strong>" & highlight(strkeyword, rs("svar")) & "</td></strong></td></tr></font><tr><td><hr></td></tr>"
   
   
    count = count + 1
   
    rs.MoveNext
    Loop
    Response.Write "</table>"
Else
    ' Hvis der ikke er fundet poster på søgningen
    Response.Write "<p></p>"
End If


' Rydder op efter os
rs.Close
Set rs = Nothing

    Response.Write "<table border=0 cellspacing=0 cellpadding=0 width=450 class=count>"
    response.write "<tr><td>"
    response.write "<font face='Trebuchet MS'>Der blev fundet <b> " & count & "</b> resultater af din søgning på ordet: <strong><font size='+1'> " & strKeyword & "</font></font></strong> "
    response.write "</td></tr>"
    response.write "</table>"
%>

<table width="150" border="0" cellspacing="1" class=retur>
  <tr>
    <td><a href="faq.asp"><font face="Trebuchet MS">Retur til søg</font></a></td>
  </tr>
</table>

</body></html>

thomasso - det er vist nok din version jeg bruger, - men den skriver ikke et 0 hvis rs er tomt

Du skal nok lige have count = 0 udenfor If Not (rs.BOF Or rs.EOF) Then

Lige nu sættes count jo kun lig med nul hvis If Not (rs.BOF Or rs.EOF) Then er opfyldt, altså hvis der rent faktisk ER poster der kan gennemløbes.

thomasso - det var lige det der skulle til - tak og læg et svar

:-)