codice:
Session("emailutente") = request.Form("email")
Set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)}; "
strConn=strConn & " DBQ=" & Server.MapPath("/mdb-database/db.mdb")
Conn.Open (strConn)
strSql = "SELECT id_proprietario FROM info_proprietario"' order by id_proprietario desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSql, conn
do while not (rs.eof)
id = rs("id_proprietario")
rs.movenext
loop
dim idiscrizione
idiscrizione= id+1
Response.Write(idiscrizione)%>
<%
Session("idtemp") = idiscrizione
Response.Write("sessione numero : ")
Response.write Session("idtemp")
'dim MyUrl
MyUrl = "www.sito.it/sitomio/RegistrazioneUtente/validazione.asp?id="&idiscrizione
Set email = Server.CreateObject("CDO.Message")
email.From = "Webmaster <web@hotmail.it.it>"
email.To = Session("emailutente")
strBody ="La ringraziamo per aver effettuato la registrazione sul nostro sito
"
strBody = strBody & "Per completare la registrazione clicchi sul link riportato
"
strBody = strbody & "LINK"
strBody = strBody & "Indirizzo I.P. richiedente: "& request.ServerVariables("REMOTE_ADDR") &"
"
strBody = strBody & " *** Buon Proseguimento di giornata dallo staff di www.sito.it *** "
'email.Subject = Conferma registrazione
email.htmlbody = strBody
email.Fields.Update()
email.Send()
Set email = Nothing
%>
Allora c'è una pagina form dove raccolgo i dati e li mantengo in sessione per poi inserirli successivamente nel db. Faccio una select per prelevare l'ultimo id, lo incremento di uno per poi inserire tutto dopo.
Lo so che è un pò laboriosa come cosa ma per ora non ho idea di come farla diversamente senza inserire i dati nel db prima dell'autenticazione tramite email.
Grazie Francy
Rispondi quotando
