aggiornamento dati in un db

[muyuy]

so che è sciocca come domanda.. ma
non sono pratico di ASP.

Sto facendo un controllo in un db per verificare che esista la mial dell'utente.
Se esiste voglio che aggiorni i campi del db correlati con la mail..
come devo fare?

questo il mio cod
<%
Dim objRs, struser
Set objRS =Server.Createobject("ADODB.Recordset")
objRs.Open "TbDomande", objConn, , adLockOptimistic, adCmdtable

Do While not objRs.EOF
If (StrComp(objRs("Mail"), Request.Form("mail"), vbTextCompare)=0)Then
struser="loggato"
end if
objRs.Movenext
Loop

if struser = "loggato" then

objRs("User")= struser
objRs("Domanda1")=request ("1")
objRs("Domanda2")=request ("2")
objRs("Domanda3")=request ("3")
objRs("Domanda4")=request ("4")
objRs("Domanda5")=request ("5")
objRs("Citta")= request ("Sede")
objRs.Update
end if

objRs.Close
Set objRs=Nothing

objConn.Close
Set Conn= Nothing
%>

[muyuy]

ho cambiato script..
usando quello che c'è sulla guida ASP

ho messo questo..

<%
Dim objRs, bolFound, strMail
strMail= Request("mail")

If ((Request("mail")=" ")) then

objConn.Close
Set ObjConn = nothing
%>
ti devi loggare

<%
Else
Set ObjRs =Server.CreateObject("ADODB.Recordset")
objRs.Open "TbDomande", objConn, , AdLockOptimistic, adCmdTable
bolFound = False

Do Until objRs.EOF OR bolFound
if (StrComp(objRs("Mail"), strMail, vbTextCompare)= 0) Then
'trovato
bolFound=true
else
objRs.MoveNext
end if
Loop

If Not bolFound Then
objRs.Close
Set ObjRs=nothing
objConn.Close
set objConn=nothing

%> non sei registrato
<%
end if
objRs("mail")="pippo"
objRs("Domanda1")=Request.Form("1")
objRs("Domanda2")=Request.Form("2")
objRs("Domanda3")=Request.Form("3")
objRs("Domanda4")=Request.Form("4")
objRs("Domanda5")=Request.Form("5")
objRs("Citta")=Request.Form("Sede")
objRs.Update
objRs.close
Set objRs=NOthing
end if
objConn.Close
Set objConn=nothing
%>
Modifiche ok.


ma mi restituisce come errore
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente
/quest/valida.asp, line 41



e alla linea 41 c'è
objRs("mail")="pippo"
... ma cosa puo' essere.. ?? :master: