ciao a tutti!
ho questo piccolo problema praticamente da una registrazione utente volevo inviare la pass tramite email, ora il codice scritto senza l'invio dell'email è questo e funziona
<%
dim objConn2
set objConn2 = server.Createobject("ADODB.Connection")
objConn2.open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/utet.mdb")
dim gen2
set gen2 = server.createobject("ADODB.RecordSet")
gen2.open "users",objConn2, 3, 3
Dim newusername2
newusername = request.form("user")
Dim newpassword2
newpassword = password
Dim indemail2
indemail = request.form("email")
Dim rs2
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open "users", objConn2, 3, 3
rs2.addnew
rs2("Username") = newusername
rs2("Password") = newpassword
rs2("Email") = indemail
rs2.Update
rs2.MoveFirst
gen2.Close
Set gen2 = Nothing
objConn2.Close
Set objConn2 = Nothing
%>
questo è invece quello modificato che mi registra l'utente ma non invia la pass
<%
dim objConn2
set objConn2 = server.Createobject("ADODB.Connection")
objConn2.open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("mdb-database/utet.mdb")
dim gen2
set gen2 = server.createobject("ADODB.RecordSet")
gen2.open "users",objConn2, 3, 3
Dim newusername2
newusername = request.form("user")
Dim newpassword2
newpassword = password
Dim indemail2
indemail = request.form("email")
Dim rs2
set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.open "users", objConn2, 3, 3
rs2.addnew
rs2("Username") = newusername
rs2("Password") = password
rs2("Email") = indemail
rs2.Update
contr = rs2("id")
Set objmail = Server.CreateObject("CDO.Message")
objmail.Subject = "Benvenuto " & Request.Form("username") & "!"
objmail.From = "www.miosito.com"
objmail.To = Trim(Request.Form("email"))
objmail.TextBody = "Ecco i tuoi dati per accedere al sito. Nickname: " & Trim(Request.Form("username")) & ". Password: " & password
objmail.Send
Set objmail=Nothing
rs2.Close
gen2.Close
Set gen2 = Nothing
objConn2.Close
Set objConn2 = Nothing
%>
non capisco dove sia l'errore!
Rispondi quotando
