søning ingen data

If rs.eof Then
  response.write "ingen resultater"
Else
  'udskriv resultater
End IF

set counter = Conn.execute("select count(*) AS tal from tabel where (ip1 like '%"&request.form("search")&"%')")

if request.form("soeg") = "Søg" then

if counter("tal") < 1 then
response.write "ingen poster"

    else

response.write "<p>Din søgning gav:&nbsp;" & counter("tal") & "&nbsp;resultater</p>"

end if
end if

hmm det duer ik :(

kommer der en fejl eller hvad sker der?

der er i hvert fald ingen tvivl om at det er dette http://activedeveloper.dk/artikler/default.asp?articleid=59 du skal have fat i - men for at vi kan hjælpe dig videre må du komme med lidt mere info

ok jeg har nu ændret koden så den ser således ud:
<%
    set counter = Conn.execute("select count(*) AS tal from grupper Where (ip1 LIKE ('%" & Request.Form("ip1")& "%') AND ip2 LIKE ('%" & Request.Form("ip2") & "%') AND ip3 LIKE ('%" & Request.Form("ip3") & "%') AND ip4 LIKE ('%" & Request.Form("ip4") & "%'))")
   
    if request.form("search") = "Søg" then

    if counter("tal") < 1 then
    response.write "ingen poster"

    else

    response.write "<p>Din søgning gav:&nbsp;" & counter("tal") & "&nbsp;resultater</p>"
   
    end if
    end if

    if Request.ServerVariables("REQUEST_METHOD") = "POST" then
   
    if (Request.Form("ip1") <> "") then
   
    If (rs.BOF AND rs.EOF) Then
    response.write "ingen poster"
   
    Else
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from grupper Where (ip1 LIKE ('%" & Request.Form("ip1")& "%') AND ip2 LIKE ('%" & Request.Form("ip2") & "%') AND ip3 LIKE ('%" & Request.Form("ip3") & "%') AND ip4 LIKE ('%" & Request.Form("ip4") & "%'))"
    Set rs = Conn.Execute(strSQL)

    end if
    end if
    end if   
%>

den kommer frem med følgende fejl når jeg søger:
ADODB.Field error '80020009'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/index.asp, line 0

nu er koden ændreet til:
<%
    set counter = Conn.execute("select count(*) AS tal from grupper Where (ip1 LIKE ('%" & Request.Form("ip1")& "%') AND ip2 LIKE ('%" & Request.Form("ip2") & "%') AND ip3 LIKE ('%" & Request.Form("ip3") & "%') AND ip4 LIKE ('%" & Request.Form("ip4") & "%'))")
   
    if request.form("search") = "Søg" then

    if counter("tal") < 1 then
    response.write "<br>ip findes ikke"

    else
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from grupper Where (ip1 LIKE ('%" & Request.Form("ip1")& "%') AND ip2 LIKE ('%" & Request.Form("ip2") & "%') AND ip3 LIKE ('%" & Request.Form("ip3") & "%') AND ip4 LIKE ('%" & Request.Form("ip4") & "%'))"
    Set rs = Conn.Execute(strSQL)
   
    response.write "<p>Din søgning gav:&nbsp;" & counter("tal") & "&nbsp;resultater</p>"
   
    end if
    end if
%>

jeg får nu ingen fejl.. jeg takker for hjælpen..

det er spild af ressourcer at lave 2 forespørgsler til databasen når/hvis det hele kan klares i ét opslag - fx;

<%
If request.form("search") = "Søg" Then
    Set rs = Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from grupper Where (ip1 LIKE ('%" & Request.Form("ip1")& "%') AND ip2 LIKE ('%" & Request.Form("ip2") & "%') AND ip3 LIKE ('%" & Request.Form("ip3") & "%') AND ip4 LIKE ('%" & Request.Form("ip4") & "%'))"
    Set rs = Conn.Execute(strSQL)
    If rs.eof Then
        response.write "<br>ip findes ikke"
    Else
        Do While Not rs.eof
            response.write rs("ip1") & "<br>"
        rs.movenext
        loop
    End If
End if
%>