% ' FP_ASP File ASP generato automaticamente da un componente di Frontpage. Non modificare. On Error Resume Next 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("ModificaTurno_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(34) Dim arFormDBFields0(34) arFormFields0(0) = "gg" arFormDBFields0(0) = "gg" arFormFields0(1) = "mm" arFormDBFields0(1) = "mm" arFormFields0(2) = "aa" arFormDBFields0(2) = "aa" arFormFields0(3) = "IngressoLun" arFormDBFields0(3) = "IngressoLun" arFormFields0(4) = "oreDom" arFormDBFields0(4) = "oreDom" arFormFields0(5) = "pausaDom" arFormDBFields0(5) = "pausaDom" arFormFields0(6) = "Richiedente" arFormDBFields0(6) = "Richiedente" arFormFields0(7) = "ingressoMar" arFormDBFields0(7) = "ingressoMar" arFormFields0(8) = "noteMer" arFormDBFields0(8) = "noteMer" arFormFields0(9) = "ingressoGio" arFormDBFields0(9) = "ingressoGio" arFormFields0(10) = "oreSab" arFormDBFields0(10) = "oreSab" arFormFields0(11) = "pausaSab" arFormDBFields0(11) = "pausaSab" arFormFields0(12) = "ingressoVen" arFormDBFields0(12) = "ingressoVen" arFormFields0(13) = "Struttura" arFormDBFields0(13) = "Struttura" arFormFields0(14) = "oreLun" arFormDBFields0(14) = "oreLun" arFormFields0(15) = "pausaLun" arFormDBFields0(15) = "pausaLun" arFormFields0(16) = "noteMar" arFormDBFields0(16) = "noteMar" arFormFields0(17) = "noteGio" arFormDBFields0(17) = "noteGio" arFormFields0(18) = "noteVen" arFormDBFields0(18) = "noteVen" arFormFields0(19) = "OreSettimanali" arFormDBFields0(19) = "OreSettimanali" arFormFields0(20) = "oreMer" arFormDBFields0(20) = "oreMer" arFormFields0(21) = "pausaMer" arFormDBFields0(21) = "pausaMer" arFormFields0(22) = "ingressoDom" arFormDBFields0(22) = "ingressoDom" arFormFields0(23) = "ingressoSab" arFormDBFields0(23) = "ingressoSab" arFormFields0(24) = "oreMar" arFormDBFields0(24) = "oreMar" arFormFields0(25) = "pausaMar" arFormDBFields0(25) = "pausaMar" arFormFields0(26) = "oreGio" arFormDBFields0(26) = "oreGio" arFormFields0(27) = "pausaGio" arFormDBFields0(27) = "pausaGio" arFormFields0(28) = "noteDom" arFormDBFields0(28) = "noteDom" arFormFields0(29) = "oreVen" arFormDBFields0(29) = "oreVen" arFormFields0(30) = "pausaVen" arFormDBFields0(30) = "pausaVen" arFormFields0(31) = "noteSab" arFormDBFields0(31) = "noteSab" arFormFields0(32) = "noteLun" arFormDBFields0(32) = "noteLun" arFormFields0(33) = "ingressoMer" arFormDBFields0(33) = "ingressoMer" 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 Response.Redirect "ConfermaTurno.asp" End If End If %>
![]() |
|
|
|
|
![]() |
|