San Luca

  Parrocchia di San Luca in Japigia - Bari

 

Parrocchia San Luca

<% dim retVal retVal = True 'if Trim(Request.Form("EMAIL")) = "" then ' Response.Write "
ATTENZIONE! Indirizzo Email non valido!" & _ ' "
Torna indietro" 'else '*** Scrittura su DB 'AuthConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("mdb-database/SanLuca.mdb") & ";" dim Conn Set Conn = Server.CreateObject("ADODB.Connection") Conn.open AuthConnectionString set rs = Server.CreateObject("ADODB.Recordset") if Trim(Request.Form("NOME")) = "" or Trim(Request.Form("Email")) = "" then retVal = False Response.Write "ATTENZIONE! Inserire tutti i dati!
" end if sqltxt = "select top 1 * from Utenti where Email like '" & Request.Form("Email") & "'" sqltxt = AntiSQLinjection(sqltxt) rs.Open sqltxt, conn, 3, 3 if not rs.EOF then retVal = False Response.Write "ATTENZIONE! L'Email inserita esiste gi nei nostri archivi!
" end if rs.Close if retVal then NewPassWord = generatePassword(6) sqltxt = "select top 1 * from Utenti" rs.Open sqltxt, conn, 3, 3 rs.AddNew rs("Nome") = Request.Form("NOME") rs("Email") = Request.Form("Email") rs("Password") = NewPassWord rs("Amministratore") = False rs.Update rs.Close Response.Write "L'iscrizione avvenuta con successo!
" '*** invio email dim MessaggioEmail MessaggioEmail = "CIAO " & Request.Form("NOME") & " e benvenuto sul sito della Parrocchia San Luca Bari.

Puoi accedere alle aree riservate tramite i dati:
" & _ "EMAIL: " & Request.Form("Email") & "
" & _ "PASSWORD: " & NewPassWord & "

" & _ "La password stata generata in maniera casuale e potrai cambiarla dopo aver effettuato l'accesso!
Grazie.
Parrocchia San Luca Bari" if InviaEmail("noreply@parrocchiasanlucabari.it", "Parrocchia San Luca Bari", Request.Form("Email"), "", "", "Benvenuto su Parrocchia San Luca Bari", MessaggioEmail, "") then 'MessaggioEmail = InviaEmail("noreply@parrocchiasanlucabari.it", "Parrocchia San Luca Bari", "sanlucabari@libero.it", "", "", "Nuova Iscrizione", "Nuova Iscrizione sul sito parrocchiasanlucabari.it
NOME: " & Request.Form("NOME") & "
EMAIL: " & Request.Form("Email"), "") MessaggioEmail = InviaEmail("noreply@parrocchiasanlucabari.it", "Parrocchia San Luca Bari", "amoruoso@libero.it;sanlucabari@libero.it", "", "", "Nuova Iscrizione", "Nuova Iscrizione sul sito parrocchiasanlucabari.it
NOME: " & Request.Form("NOME") & "
EMAIL: " & Request.Form("Email"), "") Response.Write "A breve riceverai una email con la password per accedere alle aree riservate!
Grazie.

Parrocchia San Luca Bari" else Response.Write "
Contattare la Parrocchia per risolvere i problemi." end if end if 'retVal conn.Close set rs = nothing set conn = nothing 'end if %>