<% Call OpenDb() Function CheckValori() CheckValori = 0 if Trim(RF("Nome")) = "" Then CheckValori = 1 exit function end if if Trim(RF("Cognome")) = "" Then CheckValori = 2 exit function end if if Trim(RF("Indirizzo")) = "" Then CheckValori = 3 exit function end if if Trim(RF("Cap")) = "" Then CheckValori = 4 exit function end if if Trim(RF("Citta")) = "" Then CheckValori = 5 exit function end if if Trim(RF("Prov")) = "" Then CheckValori = 6 exit function end if if Trim(RF("Professione")) = "" Then CheckValori = 7 exit function end if ' if Trim(RF("Tel")) = "" Then ' CheckValori = 8 ' exit function ' end if ' if Trim(RF("Cell")) = "" Then ' CheckValori = 9 ' exit function ' end if if not EmailOK(Trim(RF("Email"))) Then CheckValori = 10 exit function end if if Trim(RF("Quota")) = "" Then CheckValori = 11 exit function end if if Trim(RF("Accetto")) <> "si" Then CheckValori = 12 exit function end if End Function IF RF("Form") = "ON" Then Dim Errore Errore = CheckValori() IF Errore = 0 Then Dim id_utente, nome, cognome, indirizzo, cap, citta, prov, professione, tel, cell, email Dim settore_aziendale, azienda, posizione_aziendale, indirizzo_azienda, cap_azienda, citta_azienda, prov_azienda, sito_web Dim tel_ufficio, cell_ufficio, fax_ufficio, email_ufficio, quota, tipo_partecipazione, pagamento_effettuato, cod_identificativo, data_ins nome = FSQL(RF("nome")) cognome = FSQL(RF("cognome")) indirizzo = FSQL(RF("indirizzo")) cap = FSQL(RF("cap")) citta = FSQL(RF("citta")) prov = FSQL(RF("prov")) professione = FSQL(RF("professione")) tel = FSQL(RF("tel")) cell = FSQL(RF("cell")) email = FSQL(RF("email")) settore_aziendale = FSQL(RF("settore_aziendale")) azienda = FSQL(RF("azienda")) posizione_aziendale = FSQL(RF("posizione_aziendale")) indirizzo_azienda = FSQL(RF("indirizzo_azienda")) cap_azienda = FSQL(RF("cap_azienda")) citta_azienda = FSQL(RF("citta_azienda")) prov_azienda = FSQL(RF("prov_azienda")) sito_web = FSQL(RF("sito_web")) tel_ufficio = FSQL(RF("tel_ufficio")) cell_ufficio = FSQL(RF("cell_ufficio")) fax_ufficio = FSQL(RF("fax_ufficio")) email_ufficio = FSQL(RF("email_ufficio")) quota = Int(FSQL(RF("quota"))) tipo_partecipazione = FSQL(RF("tipo_partecipazione")) data_ins = Year(Date()) & "-" & Month(Date()) & "-" & Day(Date()) strSQL = "INSERT INTO utenti (nome, cognome, indirizzo, cap, citta, prov, professione, tel, cell, email," & _ " settore_aziendale, azienda, posizione_aziendale, indirizzo_azienda, cap_azienda, citta_azienda, prov_azienda, sito_web," & _ " tel_ufficio, cell_ufficio, fax_ufficio, email_ufficio, quota, tipo_partecipazione, data_ins)" & _ " VALUES ('" & nome & "', '" & cognome & "', '" & indirizzo & "', '" & cap & "', '" & citta & "', '" & prov & "', '" & professione & "', '" & tel & "', '" & cell & "', '" & email & _ "', '" & settore_aziendale & "', '" & azienda & "', '" & posizione_aziendale & "', '" & indirizzo_azienda & "', '" & cap_azienda & "', '" & citta_azienda & "', '" & prov_azienda & "', '" & sito_web & _ "', '" & tel_ufficio & "', '" & cell_ufficio & "', '" & fax_ufficio & "', '" & email_ufficio & "', '" & quota & "', '" & tipo_partecipazione & "', '" & data_ins & "');" Set rs = Conn.Execute(strSQL) strSQL = "SELECT max(id_utente) FROM utenti;" Set rs = Conn.Execute(strSQL) id_utente = rs(0).value ' ////////////////////////////////////////////// ' sezione per l'invio dell'ordine alla banca ' ////////////////////////////////////////////// Dim BancaUrl, alias, importo, divisa, codTrans, mail, url, session_id, url_back, mac BancaUrl = "https://ecommerce.cim-italia.it/ecomm/DispatcherServlet" alias = "payment_62320042" importo = quota * 100 'importo = 1 divisa = "EUR" codTrans = "CIVICUM-" & id_utente mail = "" url = "http://blog.civicum.it/wp-content/donazione/donazione_risposta.asp" session_id = "" url_back = "http://blog.civicum.it/wp-content/donazione/donazione_annullata.asp" 'parametri = "codTrans="&codTrans&"&divisa="&divisa&"&importo="&Cstr(importo) 'MAC_encoded = ' ////////////////////////////////////////////// ' fine sezione per l'invio dell'ordine alla banca ' ////////////////////////////////////////////// %> Civicum
<% Else Select Case Errore Case 1 Messaggio = "Attenzione!\nNome errato." Case 2 Messaggio = "Attenzione!\nCognome errato." Case 3 Messaggio = "Attenzione!\nIndirizzo errato." Case 4 Messaggio = "Attenzione!\nCap errato." Case 5 Messaggio = "Attenzione!\nCittą errata." Case 6 Messaggio = "Attenzione!\nProvincia errata." Case 7 Messaggio = "Attenzione!\nProfessione errata." Case 8 Messaggio = "Attenzione!\nTelefono errato." Case 9 Messaggio = "Attenzione!\nCellulare errato." Case 10 Messaggio = "Attenzione!\nEmail errata." Case 11 Messaggio = "Attenzione!\nSelezionare il tipo di sostentamento." Case 12 Messaggio = "Attenzione!\nE\' necessario acconsentire al trattamento dei dati personali." End Select %> <% End IF End IF %> Donazione Civicum
DESIDERO PARTECIPARE A CIVICVM
Dati Personali:
Nome: " name="nome" size="40" maxlength="100" class="form_input" />
Cognome: " name="cognome" size="40" maxlength="100" class="form_input" />
Indirizzo: " name="indirizzo" size="40" maxlength="100" class="form_input" />
Cap: " name="cap" size="5" maxlength="5" class="form_input" />
Citta: " name="citta" size="40" maxlength="100" class="form_input" />
Provincia:
Professione: " name="professione" size="40" maxlength="100" class="form_input" />
Telefono: " size="40" maxlength="50" /> (facoltativo)
Cellulare: " size="40" maxlength="50" /> (facoltativo)
Email: " size="40" maxlength="50" />
   
Dati Aziendali (facoltativi):
Settore aziendale: " size="40" maxlength="250" />
Azienda: " size="40" maxlength="250" />
Posizione aziendale: " size="40" maxlength="250" />
Indirizzo Azienda: " size="40" maxlength="250" />
Cap: " size="5" maxlength="5" />
Citta: " size="40" maxlength="100" />
Provincia:
Sito Web: " size="40" maxlength="100" />
   
Recapiti Aziendali (facoltativi):
Telefono Ufficio: " size="40" maxlength="50" />
Cellulare Ufficio: " size="40" maxlength="50" />
Fax: " size="40" maxlength="50" />
E-mail Ufficio: " size="40" maxlength="50" />
 
DESIDERO SOSTENERVI IN QUALITA' DI:
Benefattore (quota annuale 1.000 Euro)   Sostenitore Benemerito (quota annuale 500 Euro)
Sostenitore (quota annuale 250 Euro)   Amico di Civicum (quota annuale 75 Euro)
Aderente (quota annuale 35 Euro)   Aderente Jr (quota annuale 25 Euro)
Vorrei inoltre partecipare attivamente nel seguente modo:
In riferimento alla legge n. 196/2003 sulla tutela dei dati personali, la Fondazione CIVICUM garantisce la massima riservatezza dei dati
da Lei forniti. Potrà chiedere la rettifica o la cancellazione scrivendo a: Fondazione CIVICUM Via S Pietro all'Orto 10, Milano oppure
inviando una email all'indirizzo: info@civicum.it.
I dati saranno custoditi in archivi elettronici e verranno utilizzati solo per inviare informazioni inerenti le attività di Civicum.
accetto   non accetto
 

<< Torna Indietro

<% Call CloseDb() %>