REGISTRAZIONE
<%If Request.Form("sub")= "" Then%>
Per accedere all'area riservata del sito occorre presentare richiesta di registrazione compilando il seguente modulo. La registrazione sarà abilitata entro una settimana. L'account che state creando non è quindi immediatamente funzionante. Riceverete una mail di conferma al momento dell'attivazione. E' necessario registrarsi con un indirizzo di E-mail funzionante e da Voi monitorato perché la procedura abbia successo:
<%Else If Request.Form("psw1") <> Request.Form("psw2") Then Response.Write "" If Request.Form("psw1") = "" Then Response.Write "" If Request.Form("firstname") = "" Then Response.Write "" set objrec = server.CreateObject("ADODB.Recordset") objrec.ActiveConnection = "driver={Microsoft Access Driver (*.mdb)}; dbq="&"d:\siti\consulenzaimpresa.it\consulenzaimpresa.it\noris\sWinTradeDb\wtrDb.mdb" objrec.LockType=2 objrec.CursorType=1 objrec.Source="SELECT * FROM members" objrec.Open objrec.Find "membersemail='"&Request.Form("email")&"'" If Not objrec.EOF Then Response.Write "" Else objRec.AddNew objrec("membersFirstName")=Request.Form("firstname") objrec("membersemail")=Request.Form("email") objrec("memberspsw")=Request.Form("psw1") objrec("attivato")="false" objrec("annoiscrizione")="2013" objrec.Update set miaMail = Server.CreateObject("CDONTS.NewMail") miaMail.From = Request.Form("email") miaMail.Subject = "Richiesta di attivazione account" miaMail.BodyFormat = 1 miaMail.MailFormat = 1 miaMail.Importance = 2 miaMail.Body = "L'utente "&Request.Form("firstname")&" si è registrato e richiede l'attivazione dell'account per accedere al sito." miaMail.To = "giulio.noris@gmail.com" miaMail.Send set miaMail=nothing Response.Write "