%' 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 = 28591 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("submit_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(6) Dim arFormDBFields0(6) Dim arFormValues0(6) arFormFields0(0) = "category" arFormDBFields0(0) = "category" arFormValues0(0) = Request("category") arFormFields0(1) = "your_ad" arFormDBFields0(1) = "your_ad" arFormValues0(1) = Request("your_ad") arFormFields0(2) = "email" arFormDBFields0(2) = "email" arFormValues0(2) = Request("email") arFormFields0(3) = "phone" arFormDBFields0(3) = "phone" arFormValues0(3) = Request("phone") arFormFields0(4) = "city" arFormDBFields0(4) = "city" arFormValues0(4) = Request("city") arFormFields0(5) = "state" arFormDBFields0(5) = "state" arFormValues0(5) = Request("state") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 FP_SaveFieldToDB fp_rs, Now, "Timestamp" 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 "Thank You.asp" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>
Your submission will be in the hands of 29,000 readers in less than a week!
No matter what you have to sell, how much, or how many, the Trade Times has always been the cheapest, most hassle-free way to get the job done. Some talk, but we deliver where it counts by getting your listing out to thousands of loyal readers each week in our famous BUY-SELL-TRADE publications - and all at NO COST to you, the seller |
|
Copyright ©2011Highlands
Publishing and MCTXS,
All Rights Reserved. |