No repetir ip en bd

[Veronicalismar]

<%
Dim Conex,strcon,sql,rs,strSQLAction
Set Conex = Server.CreateObject("ADODB.Connection")
Conex.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\serverhard02\sistemas\Encuestas\bd_encues tas.mdb;"

'Sentencia para no permitir otro registro en la base de datos!!!
sql="SELECT * from Eva_liderazgo WHERE ip ='"&request.ServerVariables("REMOTE_HOST")&"'"
set rs= conex.Execute(sql)

strSQLAction ="Insert into Eva_liderazgo (ip,Sexo,Cargo,tiempo,resp1,resp2,resp3,resp4,resp 5,resp6,resp7,resp8,resp9,resp10,resp11,resp12,res p13,resp14,resp15,resp16,resp17,resp18,resp19,resp 20) "

strSQLAction = strSQLAction & "values ('"&request.ServerVariables("REMOTE_HOST")&"','" & request.form("Sexo") & "','" & request.form("Cargo") & "','" & request.form("tiempo") & "','" & request.form("resp1") & "','" & request.form("resp2") & "','" & request.form("resp3") & "','" & request.form("resp4") & "','" & request.form("resp5") & "','" & request.form("resp6") & "','" & request.form("resp7") & "','" & request.form("resp8") & "','" & request.form("resp9") & "','" & request.form("resp10") & "','" & request.form("resp11") & "','" & request.form("resp12") & "','" & request.form("resp13") & "','" & request.form("resp14") & "','" & request.form("resp15") & "','" & request.form("resp16") & "','" & request.form("resp17") & "','" & request.form("resp18") & "','" & request.form("resp19") & "','" & request.form("resp20") & "')"
Conex.Execute(strSQLAction)

if rs.bof or rs.eof then
response.Redirect("satis_laboral.asp")
else
response.redirect("llena.asp")
end if




%>

la ultima parte de este codigo a partir del if deberia funcionar como :

Si la ip esta registrada en la bd no insertes mas datos como acomodo esta sentencia?