Salve !!! anzi bella a tutti !!!

Vi posto due righe di codice che dovrebbero inserire i dati da un form ad un db...cosa che non accade...e dovrebbe controllare che il campo NUMERO - TESSERINO - non siano gia stati inseriti uguali....
ovviamente tutto questo non mi funziona...confido in voi !!!
GRAZIE 1000 !!!

<%
If IsObject(Session("Promocar_conn")) Then
Set conn = Session("Promocar_conn")
Else
curDir = Server.MapPath("db/Promocar.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/db/") & "\Promocar.mdb;Persist Security Info=False"

set rsoutbox=server.CreateObject("ADODB.Recordset")
Set rs = Server.CreateObject("ADODB.Recordset")
Set Session("db/Promocar_conn") = conn
End If

sql="select numero from dati WHERE numero='" & numero & "' OR tesserino='" & tesserino & "'"

'rs.Open sql, conn, 3, 3
set rs=conn.execute(sql)
if rs.eof then
trovato = false
'sql="select * from dati"
rs.Open sql, conn, 3, 3

numero = REQUEST.Form("numero")
nome = REQUEST.Form("nome")
cognome = REQUEST.Form("cognome")
indirizzo = REQUEST.Form("indirizzo")
email = REQUEST.Form("email")
tesserino = REQUEST.Form("tesserino")
corpo = REQUEST.Form("corpo")
commento = REQUEST.Form("commento")

rs.AddNew

Rs("numero") = numero
Rs("nome") = nome
Rs("cognome") = cognome
Rs("indirizzo") = indirizzo
Rs("email") = email
Rs("tesserino") = tesserino
Rs("corpo") = corpo
Rs("data") = now()
Rs("commento") = commento

Rs.Update
rs.Close
response.Write("Tutto a posto")
else
trovato = true
end if
rs.close
response.Write("il nome è gia presente")
%>