1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| Set Record = Server.CreateObject("ADODB.Recordset")
Record.Open "USER",Connect,2,2,2
Record.addNew
Record.Fields("uLogin") = session("Login")
Record.Fields("uPassword") = pass
Record.Fields("uNom") = session("Nom")
Record.Fields("uPrenom") = session("Prenom")
Record.Fields("uEtat_civil") = session("Etat")
Record.Fields("uSexe") = session("Sexe")
Record.Fields("uDate_naiss") = session("Datnais")
Record.Fields("uVille") = session("Ville")
Record.Fields("uDescription")= comments
Record.Fields("uUrl") = fldLien
Record.Fields("uMsn") = session("MSN")
Record.Fields("uPhoto") = "-"
Record.Fields("uMail") = lcase(session("Email"))
Record.Fields("uNewsletter") = newsletter
Record.Fields("uStatus") = verif_compte
Record.Update
Record.Close
Set Record=Nothing
Connect.Close
Set Connect=Nothing
session.Abandon()
Response.redirect "index.asp?Error=!+Votre+Compte+a+été+crée+avec+succès+!" |
Partager