<%@ LANGUAGE="VBSCRIPT" %> <%response.expires=0%> <% dim mese(26) %> Registrazione nuovi utenti
mylogo.gif (5588 byte) logo.gif (14348 byte)  

 

Registrazione gratuita nuovi utenti

Informativa resa all'interessato ai sensi della legge n. 675/96
Preso atto che la compilazione di questa scheda è facoltativa e che i dati richiesti devono essere forniti per tutti i campi obbligatori richiesti, esprimo il mio consenso affinchè il web master effettui il trattamento elettronico dei miei dati solo ed esclusivamente per la gestione dell'accesso all'area riservata dove è obbligatoria la registrazione gratuita. Dichiaro di essere informato che a norma dell'art. 13 legge 675/96, in ogni momento e gratuitamente, potrò avere accesso ai miei dati, chiederne la modifica o la cancellazione oppure oppormi al loro utilizzo scrivendo al:web master.
<%select case request.querystring("command") case ""%>
Registrazione gratuita per l'accesso all'area riservata.
Compilare i campi sottostanti. I campi con * sono obbligatori.
* Nome:
* Cognome:
Società:
Indirizzo:
* Città: * Nazione:
Telefono: Fax:
* Email:
Autorizzazione di licenza:

Scegliendo Conferma vengono accettate le clausole indicate nell'autorizzazione di licenza.
<%case "send" '-------------- valida i dati test=0 if request.form("name")="" then testo=1 end if if request.form("surname")="" then testo=1 end if if request.form("city")="" then testo=1 end if if request.form("country")="" then testo=1 end if if request.form("email")="" then testo=1 end if%>
">">">">">">">">">
<% if testo = 0 then%> <%else%> <%end if%>
Conferma dei dati
* Nome: <%=request.form("name")%>
* ognome: <%=request.form("surname")%>
Società: <%=request.form("company")%>
Indirizzo: <%=request.form("address")%>
* Città: <%=request.form("city")%>
* Nazione: <%=request.form("country")%>
Telefono: <%=request.form("phone")%>
Fax: <%=request.form("fax")%>
* Email: <%=request.form("email")%>

Scegliere Conferma per confermare i dati inseriti, altrimenti usa il tasto Indietro del tuo browser per modificare i dati.

I dati inseriti non sono corretti. * campi obbligatori. usa il tasto Indietro del tuo browser per modificare i dati.
<%case "ok" '--------- elabora codice e password Dim codice1 'user id Dim codice2 'password dim i for i = 0 to 25 mese(i)= chr(i + 65) next codice1 = "" codice2 = "" '--- prime 5 cifre, anno,mese,giorno,ora codice1 = mese(Hour(Time)) & mese(Month(Date)) & day(date) & mese(Hour(Time)) '--- minuti codice1 = codice1 & Minute(Time) '--- lettera,secondi Randomize codice1 = codice1 & Chr(Int((90 - 65 + 1) * Rnd + 65)) & Second(Time) ' Genera un valore casuale compreso tra 1 e 6. '-------codice 2 Randomize codice2 = codice2 & Chr(Int((90 - 65 + 1) * Rnd + 65)) & Int((9 - 0 + 1) * Rnd + 0) codice2 = codice2 & Chr(Int((90 - 65 + 1) * Rnd + 65)) & Chr(Int((90 - 65 + 1) * Rnd + 65)) codice2 = codice2 & Int((90 - 65 + 1) * Rnd + 65)& Int((9 - 0 + 1) * Rnd + 0) codice2 = codice2 & Chr(Int((90 - 65 + 1) * Rnd + 65)) '-------------------------------- vengono salvati i dati nel database dim db 'database dim rs 'recordset dim sqls 'stringa per istruzioni sql dim leggi 'verifica se il record è stato letto dim errmail 'errore invio email dim errdb 'errore database '----------------------- set db=server.createobject("ADODB.connection") set rs=server.createobject("ADODB.recordset") db.connectionstring="DSN=pswrocca" db.open sqls="select * from passcli where nome = " sqls=sqls & "'" & request.form("name") & "'" sqls=sqls & "and cognome = '" & request.form("surname") & "'" sqls=sqls & "and email = '" & request.form("email") & "'" rs.open sqls,db leggi=0 do while not rs.eof leggi=leggi+1 rs.movenext loop if leggi=0 then 'nuovo utente on error resume next sqls="insert into passcli " sqls=sqls & "(userid, password, nome, cognome, societa, indirizzo, citta, nazione, telefono, fax, email, datacreazione, oracreazione)" sqls=sqls & " values " sqls=sqls & "('" & codice1 & "', '" sqls=sqls & codice2 & "', '" sqls=sqls & request.form("name") & "', '" sqls=sqls & request.form("surname") & "', '" sqls=sqls & request.form("company") & "', '" sqls=sqls & request.form("address") & "', '" sqls=sqls & request.form("city") & "', '" sqls=sqls & request.form("country") & "', '" sqls=sqls & request.form("phone") & "', '" sqls=sqls & request.form("fax") & "', '" sqls=sqls & request.form("email") & "', '" sqls=sqls & date & "', '" sqls=sqls & time & "')" db.execute sqls db.close set db = nothing if err.number<>0 then 'errore%>

Attenzione... si è verificato un problema durante il salvataggio dei dati nel database, ripetere la procedura o riprovare più tardi

<%else%>

Complimenti, i tuoi dati sono stati inseriti nel nostro database. Da questo momento puoi usare la sua User Id e password personale per accedere alle aree riservate del sito.

La tua User Id personale è:
<%=codice1%>

La tua password pesonale è:
<%=codice2%>

<% '--------- Invia i dati tramite e-mail dim testo dim AlertMessage testo="I tuoi codici personali sono:" & vbclrf& vbcrlf testo=testo & "User Id: " & codice1 & vbclrf & vbcrlf testo=testo & "Password: " & codice2 & vbclrf & vbcrlf testo=testo & "Grazie per avere effettuato la registrazione gratuita al servizio: Roccamandolfi ONLINE." & vbcrlf testo=testo & "Ti ricordo che questo servizio è sperimentale ed in via di ampliamento" & vbcrlf testo=testo & "Bisogna che tutti voi collaboriate." & vbcrlf& vbcrlf testo=testo & "Giacomo Forgione" & vbcrlf& vbcrlf AlertMessage = "" On Error Resume Next Set JMail = Server.CreateObject("JMail.SMTPMail") If Err.Number <> 0 Then AlertMessage = "Error: Could not create SMTPsvg.Mailer object. Contact Administrator. " & Err.Number & ": " & Err.Description Else JMail.ServerAddress = "smtp.pronet.it" JMail.Sender = "giacomo_forgione@hotmail.com" JMail.Subject = "Roccamandolfi ONLINE, Uder Id e Password" JMail.Priority = 3 JMail.AddRecipient request.form("email") JMail.Body = testo If Not JMail.Execute Then AlertMessage = "Errore: non è stato possibile spedire i codici richiesti. Il server " & strEmailServer & " non ha risposto oppure l'indirizzo e-mail è sbagliato" Else AlertMessage = "I codici richiesti sono stati inviati all'indirizzo: " & request.form("email") End If Set JMail = Nothing End If response.write(alertmessage) %>

Stampa questa pagina e conserva i tuoi codici.

 <%end if else%>

Errore dati
Nome: <%=request.form("name")%>
Cognome: <%=request.form("surname")%>
Email: <%=request.form("email")%>

Questi dati sono già presenti nel database.Se hai dimenticato la tua User e la Password,  vai alla procedura Non ricordi la password?

  <%end if end select%>