% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1040 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Impossibile creare la connessione." Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Impossibile creare il set di record." fp_conn.Open Application("registrazione_ConnectionString") FP_DumpError strErrorUrl, "Impossibile aprire il database." fp_rs.Open "Risultati", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Impossibile aprire il set di record." fp_rs.AddNew FP_DumpError strErrorUrl, "Impossibile aggiungere nuovi set di record al database." Dim arFormFields0(36) Dim arFormDBFields0(36) Dim arFormValues0(36) arFormFields0(0) = "appa" arFormDBFields0(0) = "appa" arFormValues0(0) = Request("appa") arFormFields0(1) = "corone" arFormDBFields0(1) = "corone" arFormValues0(1) = Request("corone") arFormFields0(2) = "Emaioc" arFormDBFields0(2) = "Emaioc" arFormValues0(2) = Request("Emaioc") arFormFields0(3) = "Brodon" arFormDBFields0(3) = "Brodon" arFormValues0(3) = Request("Brodon") arFormFields0(4) = "Alass" arFormDBFields0(4) = "Alass" arFormValues0(4) = Request("Alass") arFormFields0(5) = "emaioc" arFormDBFields0(5) = "emaioc1" arFormValues0(5) = Request("emaioc") arFormFields0(6) = "Dnasc" arFormDBFields0(6) = "Dnasc" arFormValues0(6) = Request("Dnasc") arFormFields0(7) = "pretitolo" arFormDBFields0(7) = "pretitolo" arFormValues0(7) = Request("pretitolo") arFormFields0(8) = "citta" arFormDBFields0(8) = "citta" arFormValues0(8) = Request("citta") arFormFields0(9) = "fax" arFormDBFields0(9) = "fax" arFormValues0(9) = Request("fax") arFormFields0(10) = "piva" arFormDBFields0(10) = "piva" arFormValues0(10) = Request("piva") arFormFields0(11) = "isaioc" arFormDBFields0(11) = "isaioc" arFormValues0(11) = Request("isaioc") arFormFields0(12) = "Iscass" arFormDBFields0(12) = "Iscass" arFormValues0(12) = Request("Iscass") arFormFields0(13) = "privacy1" arFormDBFields0(13) = "privacy1" arFormValues0(13) = Request("privacy1") arFormFields0(14) = "email" arFormDBFields0(14) = "email" arFormValues0(14) = Request("email") arFormFields0(15) = "codfis" arFormDBFields0(15) = "codfis" arFormValues0(15) = Request("codfis") arFormFields0(16) = "tipologia" arFormDBFields0(16) = "tipologia" arFormValues0(16) = Request("tipologia") arFormFields0(17) = "riuniti" arFormDBFields0(17) = "riuniti" arFormValues0(17) = Request("riuniti") arFormFields0(18) = "privacy2" arFormDBFields0(18) = "privacy21" arFormValues0(18) = Request("privacy2") arFormFields0(19) = "via" arFormDBFields0(19) = "via" arFormValues0(19) = Request("via") arFormFields0(20) = "Branca" arFormDBFields0(20) = "Branca" arFormValues0(20) = Request("Branca") arFormFields0(21) = "prov" arFormDBFields0(21) = "prov" arFormValues0(21) = Request("prov") arFormFields0(22) = "nome" arFormDBFields0(22) = "nome" arFormValues0(22) = Request("nome") arFormFields0(23) = "branca" arFormDBFields0(23) = "Branca1" arFormValues0(23) = Request("branca") arFormFields0(24) = "stass" arFormDBFields0(24) = "stass" arFormValues0(24) = Request("stass") arFormFields0(25) = "ncivico" arFormDBFields0(25) = "ncivico" arFormValues0(25) = Request("ncivico") arFormFields0(26) = "telefono" arFormDBFields0(26) = "telefono" arFormValues0(26) = Request("telefono") arFormFields0(27) = "lunasc" arFormDBFields0(27) = "lunasc" arFormValues0(27) = Request("lunasc") arFormFields0(28) = "Privacy" arFormDBFields0(28) = "Privacy" arFormValues0(28) = Request("Privacy") arFormFields0(29) = "Cognome" arFormDBFields0(29) = "Cognome" arFormValues0(29) = Request("Cognome") arFormFields0(30) = "CAP" arFormDBFields0(30) = "CAP" arFormValues0(30) = Request("CAP") arFormFields0(31) = "alaurea" arFormDBFields0(31) = "alaurea" arFormValues0(31) = Request("alaurea") arFormFields0(32) = "appa1" arFormDBFields0(32) = "appa1" arFormValues0(32) = Request("appa1") arFormFields0(33) = "acquisti" arFormDBFields0(33) = "acquisti" arFormValues0(33) = Request("acquisti") arFormFields0(34) = "appa2" arFormDBFields0(34) = "appa2" arFormValues0(34) = Request("appa2") arFormFields0(35) = "Privacy2" arFormDBFields0(35) = "Privacy2" arFormValues0(35) = Request("Privacy2") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "Nome_utente" End If If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Nome_computer_remoto" End If FP_SaveFieldToDB fp_rs, Now, "Data_e_ora" If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Tipo_browser" End If fp_rs.Update FP_DumpError strErrorUrl, "Impossibile aggiornare il database." fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Conferma modulo",_ "Grazie per averci inviato le seguenti informazioni:",_ "registrazione.asp",_ "Torna al modulo" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
Accademia Italiana di Odontoiatria Computerizzata
|
|
Inviare a
info@aioc.it un messaggio di posta elettronica
contenente domande o commenti su questo sito Web.
|