Error al realizar un bucle

[Muzztein]

checa como hacen el bucle aqui en un ejemplo que encontre...
se ve aprueba de balas

Código asp:

Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open MM_connDUpoll_STRING
Query = "Select * from tbl_check WHERE IPCHECK='"&Request("IPCHECK")&"'"
Set rs=Connect.Execute(Query)
 
If rs.EOF then
Response.Redirect("YOU CAN VOTE PAGE")
 
Else
 
Do While Not rs.EOF
 
If FormatDateTime(Request("IPDATE"))=FormatDateTime(rs("IPDATE")) then
 
Response.Redirect("SORRY YOU CANT VOTE PAGE")
Else
Response.Redirect("YOU CAN VOTE PAGE")
End If
 
rs.MoveNext
Loop
End If
 
rs.Close
Connect.Close