<% s_nome = "" s_cognome = "" s_email_domanda = "" s_oggetto_domanda = "" m_domanda = "" s_indirizzo_domanda = "" s_cap_domanda = "" s_paese_domanda = "" s_spedizione = "email" id_provincia_domanda= 0 errore = request.querystring("errore") if errore="si" then s_nome = Request.form("s_nome") s_cognome = Request.form("s_cognome") s_email_domanda = Request.form("s_email_domanda") s_oggetto_domanda = Request.form("s_oggetto_domanda") m_domanda = Request.form("m_domanda") s_indirizzo_domanda = Request.form("s_indirizzo_domanda") s_cap_domanda = Request.form("s_cap_domanda") s_paese_domanda = Request.form("s_paese_domanda") id_provincia_domanda= Request.form("id_provincia_domanda") s_spedizione = Request.form("s_spedizione") end if if id_provincia_domanda="" then id_provincia_domanda=0 end if if s_spedizione="" then s_spedizione="email" end if Function crea_codice_controllo() Dim caratteri, codice caratteri = "" caratteri = caratteri & "0123456789" caratteri = caratteri & "abcdefghijklmnopqrstuvwxyz" caratteri = caratteri & "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Randomize Do Until Len(codice) = 7 carattere = Int((Len(caratteri) * Rnd() + 1)) If carattere = 0 Then 'a volte capita che è uguale a zero e quindi crash il server carattere = 1 End If codice = codice & Mid(caratteri, carattere, 1) Loop crea_codice_controllo = codice End Function Session("ses_controllo") = crea_codice_controllo() %> La Befana <%if errore="si" then%> <%end if%>
SCRIVI UNA LETTERINA
Aspetto che tu mi scriva: esprimi i tuoi desideri, e cosa ti piacerebbe ricevere nella notte del 6 Gennaio. Ricordati di farmi sapere come ti sei comportato quest'anno nei confronti degli altri, soprattutto coi tuoi genitori.
Se quest'anno hai fatto il birichino ti porterò il carbone.
"> <% if s_spedizione="posta_tradizionale" then display="" else display="display:none;" end if %>
Nome:
Cognome:
Email:
Oggetto:
Testo:
Codice di controllo da inserire: <%=Session("ses_controllo")%>
Ricevi la risposta alla letterina:
<%if s_spedizione="email" then%> <%else%> <%end if%> via e-mail
 Informazioni spedizione
<%if s_spedizione="posta_tradizionale" then%> <%else%> <%end if%> via posta tradizionale
 Informazioni spedizione
Indirizzo spedizione:
CAP spedizione:
Città:
Provincia:
Per i genitori: