<% dim msg msg="" Session("Sess_nome")= Request("nl_nome") Session("Sess_cognome")= Request("nl_cognome") Session("Sess_natoa")= Request("nl_natoa") Session("Sess_il")= Request("nl_il") Session("Sess_sesso")= Request("nl_sesso") Session("Sess_residentea")= Request("nl_residentea") Session("Sess_via")= Request("nl_via") Session("Sess_n")= Request("nl_n") Session("Sess_cap")= Request("nl_cap") Session("Sess_citta")= Request("nl_citta") Session("Sess_provincia")= Request("nl_provincia") Session("Sess_nazione")= Request("nl_nazione") Session("Sess_tel")= Request("nl_tel") Session("Sess_fax")= Request("nl_fax") Session("Sess_cellulare")= Request("nl_cellulare") Session("Sess_email")= Request("nl_email") Session("Sess_sito")= Request("nl_sito") Session("Sess_esperienze")= Request("nl_esperienze") Session("Sess_didattica")= Request("nl_didattica") Session("Sess_livello")= Request("nl_livello") Session("Sess_sport")= Request("nl_sport") Session("Sess_hobby")= Request("nl_hobby") SELECT CASE Request("Action") CASE "Invia" If cBool(Request("privacy"))=true then call checkFieldExist("Nome", Request("nl_nome")) call checkFieldLength("Nome", Request("nl_nome"), 50) call checkFieldExist("Cognome", Request("nl_cognome")) call checkFieldLength("Cognome", Request("nl_conome"), 50) call checkFieldExist("Luogo di nascita", Request("nl_natoa")) call checkFieldExist("Data di nascita", Request("nl_il")) call checkFieldIsDate("Data di nascita", Request("nl_il")) call checkFieldExist("Sesso", Request("nl_sesso")) call checkFieldExist("Città di residenza", Request("nl_residentea")) call checkFieldLength("Città di residenza", Request("nl_residentea"), 50) call checkFieldExist("Via", Request("nl_via")) call checkFieldExist("Numero civico", Request("nl_n")) if not isNumeric(Request("nl_n")) then msg = msg & "Il numero civico deve essere un valore numerico
" End If call checkFieldExist("Cap", Request("nl_cap")) call checkFieldExist("Città", Request("nl_citta")) call checkFieldExist("Provincia", Request("nl_provincia")) call checkFieldExist("Nazione", Request("nl_nazione")) call checkFieldExist("Email", Request("nl_email")) call checkFieldIsEmail("Email", Request("nl_email")) call openPage() call checkMail(Request("nl_email")) call closePage() call checkFieldExist("Esperienze subaquee", Request("nl_esperienze")) if cBool(Request("nl_esperienze"))=true then call checkFieldExist("Didattica", Request("nl_didattica")) call checkFieldExist("Livello di brevetto", Request("nl_livello")) didattica = Request("nl_didattica") livello = Request("nl_livello") Else didattica = "_NESSUNA" livello = "139" end If if Msg="" then call openPage() call InsertNewsletterUser (Request("nl_nome"),Request("nl_cognome"),Request("nl_natoa"),Request("nl_il"),Request("nl_sesso"),Request("nl_residentea"),Request("nl_via"),Request("nl_n"),Request("nl_cap"), Request("nl_citta"),Request("nl_provincia"),Request("nl_nazione"),Request("nl_tel"),Request("nl_fax"), Request("nl_cellulare"),Request("nl_email"),Request("nl_sito"),Request("nl_esperienze"),didattica,livello,Request("nl_sport"),Request("nl_hobby")) call closePage() response.redirect "newsletterEsi_mmc.htm?msg=ok" else response.redirect ("error.asp?msg=" & msg) end If Else response.redirect ("error.asp?msg=Impossibile continuare l'iscrizione senza l'accettazione del trattamento dei dati") End If End select %> Sottoscrizione

Il nuovo sito Momodive è in arrivo: resta sintonizzato!


Il mio stato








Modulo di sottoscrizione