% ' 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") = "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("salregister_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 arFormFields0(90) Dim arFormDBFields0(90) Dim arFormValues0(90) arFormFields0(0) = "Contact_HomePhone" arFormDBFields0(0) = "Contact_HomePhone" arFormValues0(0) = Request("Contact_HomePhone") arFormFields0(1) = "policy" arFormDBFields0(1) = "policy" arFormValues0(1) = Request("policy") arFormFields0(2) = "eyehistory_double vision" arFormDBFields0(2) = "eyehistory_double_vision" arFormValues0(2) = Request("eyehistory_double vision") arFormFields0(3) = "ROS_Genitourinary" arFormDBFields0(3) = "ROS_Genitourinary" arFormValues0(3) = Request("ROS_Genitourinary") arFormFields0(4) = "ROS_Musculoskeletal" arFormDBFields0(4) = "ROS_Musculoskeletal" arFormValues0(4) = Request("ROS_Musculoskeletal") arFormFields0(5) = "eyehistory_eye surgery" arFormDBFields0(5) = "eyehistory_eye_surgery" arFormValues0(5) = Request("eyehistory_eye surgery") arFormFields0(6) = "ROS_Nervous" arFormDBFields0(6) = "ROS_Nervous" arFormValues0(6) = Request("ROS_Nervous") arFormFields0(7) = "Personal_FirstName" arFormDBFields0(7) = "Personal_FirstName" arFormValues0(7) = Request("Personal_FirstName") arFormFields0(8) = "Personal_Sex" arFormDBFields0(8) = "Personal_Sex" arFormValues0(8) = Request("Personal_Sex") arFormFields0(9) = "Contact_Address2" arFormDBFields0(9) = "Contact_Address2" arFormValues0(9) = Request("Contact_Address2") arFormFields0(10) = "eyehistory_burning" arFormDBFields0(10) = "eyehistory_burning" arFormValues0(10) = Request("eyehistory_burning") arFormFields0(11) = "eyehistory_blurry vision" arFormDBFields0(11) = "eyehistory_blurry_vision" arFormValues0(11) = Request("eyehistory_blurry vision") arFormFields0(12) = "ROS_Gastrointestinal" arFormDBFields0(12) = "ROS_Gastrointestinal" arFormValues0(12) = Request("ROS_Gastrointestinal") arFormFields0(13) = "ROS_Cardiovascular" arFormDBFields0(13) = "ROS_Cardiovascular" arFormValues0(13) = Request("ROS_Cardiovascular") arFormFields0(14) = "Contact_StreetAddress" arFormDBFields0(14) = "Contact_StreetAddress" arFormValues0(14) = Request("Contact_StreetAddress") arFormFields0(15) = "insurer" arFormDBFields0(15) = "insurer" arFormValues0(15) = Request("insurer") arFormFields0(16) = "interests_prescription sunglasses" arFormDBFields0(16) = "interests_prescription_sunglasses" arFormValues0(16) = Request("interests_prescription sunglasses") arFormFields0(17) = "interests_new glasses" arFormDBFields0(17) = "interests_new_glasses" arFormValues0(17) = Request("interests_new glasses") arFormFields0(18) = "eyehistory_lumps/bumps" arFormDBFields0(18) = "eyehistory_lumps/bumps" arFormValues0(18) = Request("eyehistory_lumps/bumps") arFormFields0(19) = "familyhistory_Kidney disease" arFormDBFields0(19) = "familyhistory_Kidney_disease" arFormValues0(19) = Request("familyhistory_Kidney disease") arFormFields0(20) = "Contact_ZipCode" arFormDBFields0(20) = "Contact_ZipCode" arFormValues0(20) = Request("Contact_ZipCode") arFormFields0(21) = "lasteyeexam" arFormDBFields0(21) = "lasteyeexam" arFormValues0(21) = Request("lasteyeexam") arFormFields0(22) = "interests_changing your eye color" arFormDBFields0(22) = "interests_changing_your_eye_color" arFormValues0(22) = Request("interests_changing your eye color") arFormFields0(23) = "eyehistory_floaters" arFormDBFields0(23) = "eyehistory_floaters" arFormValues0(23) = Request("eyehistory_floaters") arFormFields0(24) = "familyhistory_Macular degeneration" arFormDBFields0(24) = "familyhistory_Macular_degeneration" arFormValues0(24) = Request("familyhistory_Macular degeneration") arFormFields0(25) = "medications" arFormDBFields0(25) = "medications" arFormValues0(25) = Request("medications") arFormFields0(26) = "eyehistory_eyelid problems" arFormDBFields0(26) = "eyehistory_eyelid_problems" arFormValues0(26) = Request("eyehistory_eyelid problems") arFormFields0(27) = "familyhistory_Cancer" arFormDBFields0(27) = "familyhistory_Cancer" arFormValues0(27) = Request("familyhistory_Cancer") arFormFields0(28) = "operations" arFormDBFields0(28) = "operations" arFormValues0(28) = Request("operations") arFormFields0(29) = "agreenotice" arFormDBFields0(29) = "agreenotice" arFormValues0(29) = Request("agreenotice") arFormFields0(30) = "firstvisit" arFormDBFields0(30) = "firstvisit" arFormValues0(30) = Request("firstvisit") arFormFields0(31) = "Contact_Country" arFormDBFields0(31) = "Contact_Country" arFormValues0(31) = Request("Contact_Country") arFormFields0(32) = "familyhistory_Heart Disease" arFormDBFields0(32) = "familyhistory_Heart_Disease" arFormValues0(32) = Request("familyhistory_Heart Disease") arFormFields0(33) = "contactmethod" arFormDBFields0(33) = "contactmethod" arFormValues0(33) = Request("contactmethod") arFormFields0(34) = "interests_30-day continuous wear contacts" arFormDBFields0(34) = "interests_30-day_continuous_wear_contacts" arFormValues0(34) = Request("interests_30-day continuous wear contacts") arFormFields0(35) = "interests_LASIK or other refractive procedures" arFormDBFields0(35) = "interests_LASIK_or_other_refractive_procedures" arFormValues0(35) = Request("interests_LASIK or other refractive procedures") arFormFields0(36) = "eyehistory_redness " arFormDBFields0(36) = "eyehistory_redness_" arFormValues0(36) = Request("eyehistory_redness ") arFormFields0(37) = "eyehistory_eye pain" arFormDBFields0(37) = "eyehistory_eye_pain" arFormValues0(37) = Request("eyehistory_eye pain") arFormFields0(38) = "ROS_Blood/lymph" arFormDBFields0(38) = "ROS_Blood/lymph" arFormValues0(38) = Request("ROS_Blood/lymph") arFormFields0(39) = "familyhistory_Cataracts" arFormDBFields0(39) = "familyhistory_Cataracts" arFormValues0(39) = Request("familyhistory_Cataracts") arFormFields0(40) = "substance" arFormDBFields0(40) = "substance" arFormValues0(40) = Request("substance") arFormFields0(41) = "otherhistory" arFormDBFields0(41) = "otherhistory" arFormValues0(41) = Request("otherhistory") arFormFields0(42) = "Personal_LastName" arFormDBFields0(42) = "Personal_LastName" arFormValues0(42) = Request("Personal_LastName") arFormFields0(43) = "Contact_Email" arFormDBFields0(43) = "Contact_Email" arFormValues0(43) = Request("Contact_Email") arFormFields0(44) = "referral" arFormDBFields0(44) = "referral" arFormValues0(44) = Request("referral") arFormFields0(45) = "prevcorrect_glasses" arFormDBFields0(45) = "prevcorrect_glasses" arFormValues0(45) = Request("prevcorrect_glasses") arFormFields0(46) = "eyehistory_eye injury" arFormDBFields0(46) = "eyehistory_eye_injury" arFormValues0(46) = Request("eyehistory_eye injury") arFormFields0(47) = "familyhistory_Glaucoma" arFormDBFields0(47) = "familyhistory_Glaucoma" arFormValues0(47) = Request("familyhistory_Glaucoma") arFormFields0(48) = "familyhistory_Retinal detachment" arFormDBFields0(48) = "familyhistory_Retinal_detachment" arFormValues0(48) = Request("familyhistory_Retinal detachment") arFormFields0(49) = "ROS_Endocrine (glands)" arFormDBFields0(49) = "ROS_Endocrine_(glands)" arFormValues0(49) = Request("ROS_Endocrine (glands)") arFormFields0(50) = "familyhistory_Hypertension" arFormDBFields0(50) = "familyhistory_Hypertension" arFormValues0(50) = Request("familyhistory_Hypertension") arFormFields0(51) = "Personal_MiddleInitial" arFormDBFields0(51) = "Personal_MiddleInitial" arFormValues0(51) = Request("Personal_MiddleInitial") arFormFields0(52) = "Contact_City" arFormDBFields0(52) = "Contact_City" arFormValues0(52) = Request("Contact_City") arFormFields0(53) = "group" arFormDBFields0(53) = "group" arFormValues0(53) = Request("group") arFormFields0(54) = "prevcorrect_contact lenses" arFormDBFields0(54) = "prevcorrect_contact_lenses" arFormValues0(54) = Request("prevcorrect_contact lenses") arFormFields0(55) = "interests_contact lenses" arFormDBFields0(55) = "interests_contact_lenses" arFormValues0(55) = Request("interests_contact lenses") arFormFields0(56) = "interests_new lens technology" arFormDBFields0(56) = "interests_new_lens_technology" arFormValues0(56) = Request("interests_new lens technology") arFormFields0(57) = "eyehistory_visual distortion" arFormDBFields0(57) = "eyehistory_visual_distortion" arFormValues0(57) = Request("eyehistory_visual distortion") arFormFields0(58) = "ROS_Ear/Nose/Throat" arFormDBFields0(58) = "ROS_Ear/Nose/Throat" arFormValues0(58) = Request("ROS_Ear/Nose/Throat") arFormFields0(59) = "ROS_Respiratory" arFormDBFields0(59) = "ROS_Respiratory" arFormValues0(59) = Request("ROS_Respiratory") arFormFields0(60) = "familyhistory_Eye degeneration" arFormDBFields0(60) = "familyhistory_Eye_degeneration" arFormValues0(60) = Request("familyhistory_Eye degeneration") arFormFields0(61) = "appointmentdate" arFormDBFields0(61) = "appointmentdate" arFormValues0(61) = Request("appointmentdate") arFormFields0(62) = "Personal_DateOfBirth" arFormDBFields0(62) = "Personal_DateOfBirth" arFormValues0(62) = Request("Personal_DateOfBirth") arFormFields0(63) = "officelocation" arFormDBFields0(63) = "officelocation" arFormValues0(63) = Request("officelocation") arFormFields0(64) = "social" arFormDBFields0(64) = "social" arFormValues0(64) = Request("social") arFormFields0(65) = "eyehistory_itching " arFormDBFields0(65) = "eyehistory_itching_" arFormValues0(65) = Request("eyehistory_itching ") arFormFields0(66) = "appointment" arFormDBFields0(66) = "appointment" arFormValues0(66) = Request("appointment") arFormFields0(67) = "allergy" arFormDBFields0(67) = "allergy" arFormValues0(67) = Request("allergy") arFormFields0(68) = "medconditions" arFormDBFields0(68) = "medconditions" arFormValues0(68) = Request("medconditions") arFormFields0(69) = "Contact_State" arFormDBFields0(69) = "Contact_State" arFormValues0(69) = Request("Contact_State") arFormFields0(70) = "Contact_WorkPhone" arFormDBFields0(70) = "Contact_WorkPhone" arFormValues0(70) = Request("Contact_WorkPhone") arFormFields0(71) = "lastdoc" arFormDBFields0(71) = "lastdoc" arFormValues0(71) = Request("lastdoc") arFormFields0(72) = "eyehistory_headaches" arFormDBFields0(72) = "eyehistory_headaches" arFormValues0(72) = Request("eyehistory_headaches") arFormFields0(73) = "eyehistory_eye turn" arFormDBFields0(73) = "eyehistory_eye_turn" arFormValues0(73) = Request("eyehistory_eye turn") arFormFields0(74) = "eyehistory_flashing lights" arFormDBFields0(74) = "eyehistory_flashing_lights" arFormValues0(74) = Request("eyehistory_flashing lights") arFormFields0(75) = "familyhistory_Diabetes" arFormDBFields0(75) = "familyhistory_Diabetes" arFormValues0(75) = Request("familyhistory_Diabetes") arFormFields0(76) = "familyhistory_Stroke" arFormDBFields0(76) = "familyhistory_Stroke" arFormValues0(76) = Request("familyhistory_Stroke") arFormFields0(77) = "tobacco" arFormDBFields0(77) = "tobacco" arFormValues0(77) = Request("tobacco") arFormFields0(78) = "relationship" arFormDBFields0(78) = "relationship" arFormValues0(78) = Request("relationship") arFormFields0(79) = "interests_Optos non-dilated eye examination" arFormDBFields0(79) = "interests_Optos_non-dilated_eye_examination" arFormValues0(79) = Request("interests_Optos non-dilated eye examination") arFormFields0(80) = "ROS_Allergic/immunologic" arFormDBFields0(80) = "ROS_Allergic/immunologic" arFormValues0(80) = Request("ROS_Allergic/immunologic") arFormFields0(81) = "familyhistory_Thyroid disease" arFormDBFields0(81) = "familyhistory_Thyroid_disease" arFormValues0(81) = Request("familyhistory_Thyroid disease") arFormFields0(82) = "meddoctor" arFormDBFields0(82) = "meddoctor" arFormValues0(82) = Request("meddoctor") arFormFields0(83) = "agreepayment" arFormDBFields0(83) = "agreepayment" arFormValues0(83) = Request("agreepayment") arFormFields0(84) = "eyehistory_gritty/sandy feeling" arFormDBFields0(84) = "eyehistory_gritty/sandy_feeling" arFormValues0(84) = Request("eyehistory_gritty/sandy feeling") arFormFields0(85) = "eyehistory_glare" arFormDBFields0(85) = "eyehistory_glare" arFormValues0(85) = Request("eyehistory_glare") arFormFields0(86) = "ROS_Skin" arFormDBFields0(86) = "ROS_Skin" arFormValues0(86) = Request("ROS_Skin") arFormFields0(87) = "ROS_Mental" arFormDBFields0(87) = "ROS_Mental" arFormValues0(87) = Request("ROS_Mental") arFormFields0(88) = "familyhistory_Blindness" arFormDBFields0(88) = "familyhistory_Blindness" arFormValues0(88) = Request("familyhistory_Blindness") arFormFields0(89) = "medallergy" arFormDBFields0(89) = "medallergy" arFormValues0(89) = Request("medallergy") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 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:",_ "salregister.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
|
Bartlett, Grigsby, Boan, and Associates, OD, PLLC Statesville - Salisbury - Hickory 704-878-2660 - 704-636-0559 - 828-328-3900
|
|
|
|
Last modified: 08/10/08 |