% 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() %>
|
||||||||