% ' 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 = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "1" 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("pvd_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", 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 arFormFields1(36) Dim arFormDBFields1(36) Dim arFormValues1(36) arFormFields1(0) = "C2" arFormDBFields1(0) = "C2" arFormValues1(0) = Request("C2") arFormFields1(1) = "C12" arFormDBFields1(1) = "C12" arFormValues1(1) = Request("C12") arFormFields1(2) = "C23" arFormDBFields1(2) = "C23" arFormValues1(2) = Request("C23") arFormFields1(3) = "date of intervention" arFormDBFields1(3) = "date_of_intervention" arFormValues1(3) = Request("date of intervention") arFormFields1(4) = "C3" arFormDBFields1(4) = "C3" arFormValues1(4) = Request("C3") arFormFields1(5) = "C13" arFormDBFields1(5) = "C13" arFormValues1(5) = Request("C13") arFormFields1(6) = "C24" arFormDBFields1(6) = "C24" arFormValues1(6) = Request("C24") arFormFields1(7) = "C4" arFormDBFields1(7) = "C4" arFormValues1(7) = Request("C4") arFormFields1(8) = "C14" arFormDBFields1(8) = "C14" arFormValues1(8) = Request("C14") arFormFields1(9) = "describe kidney" arFormDBFields1(9) = "describe_kidney" arFormValues1(9) = Request("describe kidney") arFormFields1(10) = "C25" arFormDBFields1(10) = "C25" arFormValues1(10) = Request("C25") arFormFields1(11) = "C5" arFormDBFields1(11) = "C5" arFormValues1(11) = Request("C5") arFormFields1(12) = "C15" arFormDBFields1(12) = "C15" arFormValues1(12) = Request("C15") arFormFields1(13) = "C26" arFormDBFields1(13) = "C26" arFormValues1(13) = Request("C26") arFormFields1(14) = "C6" arFormDBFields1(14) = "C6" arFormValues1(14) = Request("C6") arFormFields1(15) = "C16" arFormDBFields1(15) = "C16" arFormValues1(15) = Request("C16") arFormFields1(16) = "C27" arFormDBFields1(16) = "C27" arFormValues1(16) = Request("C27") arFormFields1(17) = "C7" arFormDBFields1(17) = "C7" arFormValues1(17) = Request("C7") arFormFields1(18) = "C17" arFormDBFields1(18) = "C17" arFormValues1(18) = Request("C17") arFormFields1(19) = "C28" arFormDBFields1(19) = "C28" arFormValues1(19) = Request("C28") arFormFields1(20) = "C8" arFormDBFields1(20) = "C8" arFormValues1(20) = Request("C8") arFormFields1(21) = "C18" arFormDBFields1(21) = "C18" arFormValues1(21) = Request("C18") arFormFields1(22) = "C29" arFormDBFields1(22) = "C29" arFormValues1(22) = Request("C29") arFormFields1(23) = "C9" arFormDBFields1(23) = "C9" arFormValues1(23) = Request("C9") arFormFields1(24) = "C19" arFormDBFields1(24) = "C19" arFormValues1(24) = Request("C19") arFormFields1(25) = "surgery intervention" arFormDBFields1(25) = "surgery_intervention" arFormValues1(25) = Request("surgery intervention") arFormFields1(26) = "C30" arFormDBFields1(26) = "C30" arFormValues1(26) = Request("C30") arFormFields1(27) = "C20" arFormDBFields1(27) = "C20" arFormValues1(27) = Request("C20") arFormFields1(28) = "C31" arFormDBFields1(28) = "C31" arFormValues1(28) = Request("C31") arFormFields1(29) = "C10" arFormDBFields1(29) = "C10" arFormValues1(29) = Request("C10") arFormFields1(30) = "C21" arFormDBFields1(30) = "C21" arFormValues1(30) = Request("C21") arFormFields1(31) = "C32" arFormDBFields1(31) = "C32" arFormValues1(31) = Request("C32") arFormFields1(32) = "C1" arFormDBFields1(32) = "C1" arFormValues1(32) = Request("C1") arFormFields1(33) = "C11" arFormDBFields1(33) = "C11" arFormValues1(33) = Request("C11") arFormFields1(34) = "C22" arFormDBFields1(34) = "C22" arFormValues1(34) = Request("C22") arFormFields1(35) = "reason for no exercising" arFormDBFields1(35) = "reason_for_no_exercising" arFormValues1(35) = Request("reason for no exercising") FP_SaveFormFields fp_rs, arFormFields1, arFormDBFields1 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "pvd.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
|
|
|
|
Peripheral Vascular QuestionnaireNancy Carr
|
|
Send mail to
ncarr@bakergilmour.com with
questions or comments about this web site.
|