% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1250 Err.Clear strErrorUrl = "http://www.alexandrialod.com" 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, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("restaurace_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "anketa_menu_alexandria", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(26) Dim arFormDBFields0(26) Dim arFormValues0(26) arFormFields0(0) = "restaurace" arFormDBFields0(0) = "restaurace" arFormValues0(0) = Request("restaurace") arFormFields0(1) = "cz_jno" arFormDBFields0(1) = "cz_jno" arFormValues0(1) = Request("cz_jno") arFormFields0(2) = "iom" arFormDBFields0(2) = "iom_mmb" arFormValues0(2) = Request("iom") arFormFields0(3) = "telefon" arFormDBFields0(3) = "telefon" arFormValues0(3) = Request("telefon") arFormFields0(4) = "csp_tmn" arFormDBFields0(4) = "csp_mtn" arFormValues0(4) = Request("csp_tmn") arFormFields0(5) = "cdj" arFormDBFields0(5) = "cdj_d" arFormValues0(5) = Request("cdj") arFormFields0(6) = "ssz" arFormDBFields0(6) = "ssz_d" arFormValues0(6) = Request("ssz") arFormFields0(7) = "cz_pus" arFormDBFields0(7) = "cz_pus" arFormValues0(7) = Request("cz_pus") arFormFields0(8) = "op_s" arFormDBFields0(8) = "op_s" arFormValues0(8) = Request("op_s") arFormFields0(9) = "cz_no" arFormDBFields0(9) = "cz_no" arFormValues0(9) = Request("cz_no") arFormFields0(10) = "csp_mzc" arFormDBFields0(10) = "csp_mzc" arFormValues0(10) = Request("csp_mzc") arFormFields0(11) = "email" arFormDBFields0(11) = "email" arFormValues0(11) = Request("email") arFormFields0(12) = "cz_inv" arFormDBFields0(12) = "cz_inv" arFormValues0(12) = Request("cz_inv") arFormFields0(13) = "cakjj" arFormDBFields0(13) = "cakjj_d" arFormValues0(13) = Request("cakjj") arFormFields0(14) = "csp_tmb" arFormDBFields0(14) = "csp_mtb" arFormValues0(14) = Request("csp_tmb") arFormFields0(15) = "ojz" arFormDBFields0(15) = "ojz_nj" arFormValues0(15) = Request("ojz") arFormFields0(16) = "op_h" arFormDBFields0(16) = "op_h" arFormValues0(16) = Request("op_h") arFormFields0(17) = "sasnj" arFormDBFields0(17) = "sasnj_d" arFormValues0(17) = Request("sasnj") arFormFields0(18) = "vpj" arFormDBFields0(18) = "vpj_d" arFormValues0(18) = Request("vpj") arFormFields0(19) = "cmj" arFormDBFields0(19) = "cmj_prijem" arFormValues0(19) = Request("cmj") arFormFields0(20) = "csp_dp" arFormDBFields0(20) = "csp_dp" arFormValues0(20) = Request("csp_dp") arFormFields0(21) = "csp_an" arFormDBFields0(21) = "csp_an" arFormValues0(21) = Request("csp_an") arFormFields0(22) = "cokoli" arFormDBFields0(22) = "cokoli" arFormValues0(22) = Request("cokoli") arFormFields0(23) = "op_k" arFormDBFields0(23) = "op_k" arFormValues0(23) = Request("op_k") arFormFields0(24) = "pohlavi" arFormDBFields0(24) = "pohlavi" arFormValues0(24) = Request("pohlavi") arFormFields0(25) = "cz_nfa" arFormDBFields0(25) = "cz_nfa" arFormValues0(25) = Request("cz_nfa") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "http://www.alexandrialod.com" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
Anketa o nabídce denního menu restaurace Alexandria