% 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 ' ////////////////////////////////////////////// %>