codice:
email=(trim(request("email")))
email=injectionMail(email)
pswMoment=password_mista(10)
'response.Write(keyUser)
sql="select [id_Utente] from UtentiMaster where email='"& email &"'"
set rsCtrl= server.CreateObject("adodb.recordset")
rsCtrl.open sql,connM
if not rsCtrl.eof and not rsCtrl.bof then
ctrlMail="true"
IdEsistente=rsCtrl("id_Utente")
response.Redirect("IscrizioneKo.asp")
else
set rs=server.Createobject("ADODB.Recordset")
rs.activeconnection=connM
rs.cursortype=1
rs.locktype=3
rs.source="UtentiMaster"
rs.open
rs.addnew
rs("Email")=email
rs("psw")=pswMoment
rs.update
UtenteAnaID=rs("id_Utente")
rs.close
set rs = nothing
connM.close
set connM=nothing
Msg = Msg & "<body bgcolor='#d7eaf1'>"
ctrlMail="false"
invio= SendMail("Registrazione al sito",Msg,"mioIndirizzo",Email,cc,bcc,repley)
response.Redirect("IscrizioneOk.asp")
end if
set rsCtrl=nothing