counter og søge hjælp

jeg har et søge script som ser således ud
<%
   
    if request.form("search") = "Søg" then
   
    if (Request.Form("ip1") <> "") then

    strSQL = "select * from grupper Where "
    Dim i
    For i=1 to 4
    if request.Form("ip" & i & "") <> "" then
    Dim iprequest
    iprequest = request.Form("ip" & i & "")
    end if
    if i > 1 then
    strSQL = strSQL & " AND "
    end if
    strSQL = strSQL & "ip" & i & "= " & iprequest & ""
    end if
    next
   
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set rs = Conn.Execute(strSQL)

%>

jeg skal ha en counter på: før jeg lavede løkken så mit søge script sådan her ud:

<%
    set counter = Conn.execute("select count(*) AS tal from grupper Where (ip1 = (" & Request.Form("ip1")& ") AND ip2 = (" & Request.Form("ip2") & ") AND ip3 = (" & Request.Form("ip3") & ") AND ip4 = (" & Request.Form("ip4") & "))")

    if (Request.Form("ip1") <> "") 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 = (" & Request.Form("ip1")& ") AND ip2 = (" & Request.Form("ip2") & ") AND ip3 = (" & Request.Form("ip3") & ") AND ip4 = (" & Request.Form("ip4") & "))"
    Set rs = Conn.Execute(strSQL)
   
    response.write "<p>Din søgning gav:&nbsp;" & counter("tal") & "&nbsp;resultater</p>"

%>

så det os kunne finde ud af om der der overhovedet fantes ip'er men de resulterede i nogle andre fejl. kan ikke rigtig få counter til at virke med løkken. håber i kan hjælpe