% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. 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, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("Internet interview_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(37) Dim arFormDBFields0(37) arFormFields0(0) = "C2" arFormDBFields0(0) = "C2" arFormFields0(1) = "C12" arFormDBFields0(1) = "C12" arFormFields0(2) = "C34" arFormDBFields0(2) = "C34" arFormFields0(3) = "C23" arFormDBFields0(3) = "C23" arFormFields0(4) = "C3" arFormDBFields0(4) = "C3" arFormFields0(5) = "C13" arFormDBFields0(5) = "C13" arFormFields0(6) = "C24" arFormDBFields0(6) = "C24" arFormFields0(7) = "C35" arFormDBFields0(7) = "C35" arFormFields0(8) = "C25" arFormDBFields0(8) = "C25" arFormFields0(9) = "C4" arFormDBFields0(9) = "C4" arFormFields0(10) = "C14" arFormDBFields0(10) = "C14" arFormFields0(11) = "C36" arFormDBFields0(11) = "C36" arFormFields0(12) = "C26" arFormDBFields0(12) = "C26" arFormFields0(13) = "C5" arFormDBFields0(13) = "C5" arFormFields0(14) = "C15" arFormDBFields0(14) = "C15" arFormFields0(15) = "C37" arFormDBFields0(15) = "C37" arFormFields0(16) = "C27" arFormDBFields0(16) = "C27" arFormFields0(17) = "C6" arFormDBFields0(17) = "C6" arFormFields0(18) = "C16" arFormDBFields0(18) = "C16" arFormFields0(19) = "C38" arFormDBFields0(19) = "C38" arFormFields0(20) = "C7" arFormDBFields0(20) = "C7" arFormFields0(21) = "C17" arFormDBFields0(21) = "C17" arFormFields0(22) = "C29" arFormDBFields0(22) = "C29" arFormFields0(23) = "C8" arFormDBFields0(23) = "C8" arFormFields0(24) = "C18" arFormDBFields0(24) = "C18" arFormFields0(25) = "C9" arFormDBFields0(25) = "C9" arFormFields0(26) = "C19" arFormDBFields0(26) = "C19" arFormFields0(27) = "C30" arFormDBFields0(27) = "C30" arFormFields0(28) = "C31" arFormDBFields0(28) = "C31" arFormFields0(29) = "C20" arFormDBFields0(29) = "C20" arFormFields0(30) = "C10" arFormDBFields0(30) = "C10" arFormFields0(31) = "C32" arFormDBFields0(31) = "C32" arFormFields0(32) = "C21" arFormDBFields0(32) = "C21" arFormFields0(33) = "C1" arFormDBFields0(33) = "C1" arFormFields0(34) = "C11" arFormDBFields0(34) = "C11" arFormFields0(35) = "C33" arFormDBFields0(35) = "C33" arFormFields0(36) = "C22" arFormDBFields0(36) = "C22" 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:",_ "Internet%20interview.htm",_ "Return to the form." End If End If %>

Mail us for anything you want!
(Note that anything you send us will be posted in "Visitors' corner")