<%@ LANGUAGE="VBSCRIPT" %> <%response.expires=0%> <% dim testo%> Roccamandolfi ONLINE, Richiedi la tua password
mylogo.gif (5588 byte) logo.gif (14348 byte)  

 

Recupera la tua User Id e Password
<%select case request.querystring("command") case ""%>

Recupera i tuoi codici personali per accedere al servizio
Inserisci le informazioni richieste e premi Invia per proseguire.
* Nome:
*Cognome:
* Email:

<%case "send" '-------------- valida i dati testo=0 if request.form("name")="" then testo=1 end if if request.form("surname")="" then testo=1 end if if request.form("email")="" then testo=1 end if%>
">">">
<% if testo = 0 then%> <%else%> <%end if%>
Conferma dei dati inseriti
* Nome: <%=request.form("name")%>
* Cognome: <%=request.form("surname")%>
* Email: <%=request.form("email")%>

Scegliere Invia per confermare i dati, altrimenti usa il bottone indietro del tuo browser.

I dati inseriti non sono corretti. *campi obbligatori,  usa il bottone indietro del tuo browser per modificare i dati.
<%case "ok" '-------------------------------- vengono richiesti i dati dal database dim db 'database dim rs 'recordset dim sqls 'stringa per istruzioni sql dim leggi 'verifica se il record è stato letto dim utente dim pswutente '----------------------- 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 on error resume next rs.movefirst do while not rs.eof leggi=leggi+1 utente= rs("userid") pswutente = rs("password") rs.movenext leggi=1 loop rs.close db.close set rs = nothing set db = nothing if leggi=0 then 'il dato non esiste %>

Attenzione... i dati inseriti non sono presenti nel database.

<%else testo="I tuoi codici personali sono:" & vbclrf& vbcrlf testo=testo & "User Id: " & utente & vbclrf & vbcrlf testo=testo & "Password: " & pswutente & vbclrf & vbcrlf testo=testo & "Grazie per avere visitato il 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) end if%>

<%end select%>