Newsletter di Rievocare - Rievocazioni storiche battaglie armamenti manifestazioni raduni storia italiana

<%@ LANGUAGE="VBScript" %> <%Option Explicit%> Newsletter di Rievocare - Rievocazioni storiche battaglie armamenti manifestazioni raduni storia italiana

home \| pubblicazioni \| punti vendita \| link amici



pubblicazioni
punti vendita
calendario eventi
raduni storici
libreria
recensioni libri
recensioni dischi
mostre
fiere
gruppi storici
artigiani e rivenditori
annunci
news
newsletter
contatti

Newsletter

Rievocare

<% Dim con, rs, strSql, nomeIscritto, cognomeIscritto, cittaIscritto, telefonoIscritto, mailIscritto, tipoIscritto If Request.Form("cmdSubmit") <> "" Then nomeIscritto = Request.Form("nome") nomeIscritto = Replace ( nomeIscritto, "'", "'" ) nomeIscritto = Replace ( nomeIscritto, """", "" ) cognomeIscritto = Request.Form("cognome") cognomeIscritto = Replace ( cognomeIscritto, "'", "'" ) cognomeIscritto = Replace ( cognomeIscritto, """", "" ) cittaIscritto = Request.Form("citta") cittaIscritto = Replace ( cittaIscritto, "'", "'" ) cittaIscritto = Replace ( cittaIscritto, """", "" ) telefonoIscritto = Request.Form("telefono") telefonoIscritto = Replace ( telefonoIscritto, "'", "'" ) telefonoIscritto = Replace ( telefonoIscritto, """", "" ) mailIscritto = Request.Form("mail") mailIscritto = Replace ( mailIscritto, "'", "'" ) mailIscritto = Replace ( mailIscritto, """", "" ) tipoIscritto = Request.Form("tipo") tipoIscritto = Replace ( tipoIscritto, "'", "'" ) tipoIscritto = Replace ( tipoIscritto, """", "" ) Set con = GetDBConnection() strSql = "SELECT * FROM iscritti WHERE mail = '" + mailIscritto + "'" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open strSql, con, 1, 2 If rs.EOF and Request.Form("mail") <> "" and Request.Form("privacy") <> "" Then rs.AddNew() rs("nome") = nomeIscritto rs("cognome") = cognomeIscritto rs("mail") = mailIscritto rs("telefono") = telefonoIscritto rs("citta") = cittaIscritto rs("tipo") = tipoIscritto rs("celti") = Request.Form("celti") rs("romani") = Request.Form("romani") rs("VIXII") = Request.Form("VIXII") rs("XIII") = Request.Form("XIII") rs("XIV") = Request.Form("XIV") rs("XV") = Request.Form("XV") rs("XVI") = Request.Form("XVI") rs("XVII") = Request.Form("XVII") rs("XVIII") = Request.Form("XVIII") rs("Napoleonici") = Request.Form("Napoleonici") rs("Risorgimentali") = Request.Form("Risorgimentali") rs("XX") = Request.Form("XX") rs("Danza") = Request.Form("Danza") rs("Musica") = Request.Form("Musica") rs("Spettacolo") = Request.Form("Spettacolo") rs.Update() %> Iscrizione Avvenuta con successo
Torna alla Home Page <% Elseif Request.Form("mail") = "" Then %> Il campo mail non può essere nullo.
Torna indietro <% Elseif Request.Form("privacy") = "" Then %> Per prosequire devi accettare la clausola sulla Privacy.
Torna indietro <% Else %> Il tuo indirizzo mail inserito risulta già iscritto alla nostra newsletter.
Torna alla Home Page <% End If rs.Close() Set rs = Nothing con.Close() Set con = Nothing Else %>

Compila il form per iscriverti alla newsletter di Rievocare:

Dati Personali

Periodo/i di interesse

Nome