<% ' 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 Session.LCID = 1033 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("kqRickM2_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "tblCyMLSRequests", 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(18) Dim arFormDBFields0(18) Dim arFormValues0(18) arFormFields0(0) = "Desc" arFormDBFields0(0) = "Description" arFormValues0(0) = Request("Desc") arFormFields0(1) = "Title" arFormDBFields0(1) = "Title" arFormValues0(1) = Request("Title") arFormFields0(2) = "DeptArea" arFormDBFields0(2) = "AreaDept" arFormValues0(2) = Request("DeptArea") arFormFields0(3) = "Requestor" arFormDBFields0(3) = "Requestor" arFormValues0(3) = Request("Requestor") arFormFields0(4) = "chkBugFix" arFormDBFields0(4) = "BugFix" arFormValues0(4) = Request("chkBugFix") arFormFields0(5) = "chkEnhancement" arFormDBFields0(5) = "Enhancement" arFormValues0(5) = Request("chkEnhancement") arFormFields0(6) = "chkNewFunctionality" arFormDBFields0(6) = "NewFunctionality" arFormValues0(6) = Request("chkNewFunctionality") arFormFields0(7) = "ckhCost" arFormDBFields0(7) = "Cost" arFormValues0(7) = Request("ckhCost") arFormFields0(8) = "chkEnv" arFormDBFields0(8) = "Environmental" arFormValues0(8) = Request("chkEnv") arFormFields0(9) = "chkSafety" arFormDBFields0(9) = "Safety" arFormValues0(9) = Request("chkSafety") arFormFields0(10) = "RefNbr" arFormDBFields0(10) = "RefNbr" arFormValues0(10) = Request("RefNbr") arFormFields0(11) = "chkNewProduct" arFormDBFields0(11) = "NewProduct" arFormValues0(11) = Request("chkNewProduct") arFormFields0(12) = "chkReliabilty" arFormDBFields0(12) = "Reliability" arFormValues0(12) = Request("chkReliabilty") arFormFields0(13) = "chkProductivity" arFormDBFields0(13) = "Productivity" arFormValues0(13) = Request("chkProductivity") arFormFields0(14) = "chkOtherComp" arFormDBFields0(14) = "OtherCompliance" arFormValues0(14) = Request("chkOtherComp") arFormFields0(15) = "NeedDate" arFormDBFields0(15) = "NeedDate" arFormValues0(15) = Request("NeedDate") arFormFields0(16) = "FirmDeadline" arFormDBFields0(16) = "FirmDeadline" arFormValues0(16) = Request("FirmDeadline") arFormFields0(17) = "SystemAffected" arFormDBFields0(17) = "SystemAffected" arFormValues0(17) = Request("SystemAffected") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 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:",_ "RequestForServices.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Request for Services

Email Comments

Google ME!


Table of Contents


Please provide as much information in this form as possible.  
When you have provided all of the info click the Submit button.

Requestor        
System Affected  
Dept/Area        
Project Title    
Project Ref#     
Date Needed        Is this a firm deadline?
Please check all of the following that apply… 



 Safety         Environmental    Other Compliance

 Productivity   Cost Reduction   Reliability       New Product

 Totally New Functionality         Enhancement       Bug Fix

Please Provide a description of the work