<% ' 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("quoteorginal_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(24) Dim arFormDBFields0(24) Dim arFormValues0(24) arFormFields0(0) = "Golf" arFormDBFields0(0) = "Golf" arFormValues0(0) = Request("Golf") arFormFields0(1) = "Jckt" arFormDBFields0(1) = "Jckt" arFormValues0(1) = Request("Jckt") arFormFields0(2) = "Item" arFormDBFields0(2) = "Item" arFormValues0(2) = Request("Item") arFormFields0(3) = "StyleNo" arFormDBFields0(3) = "StyleNo" arFormValues0(3) = Request("StyleNo") arFormFields0(4) = "RushYES" arFormDBFields0(4) = "RushYES" arFormValues0(4) = Request("RushYES") arFormFields0(5) = "Name1" arFormDBFields0(5) = "Name1" arFormValues0(5) = Request("Name1") arFormFields0(6) = "Bag" arFormDBFields0(6) = "Bag" arFormValues0(6) = Request("Bag") arFormFields0(7) = "Instructions" arFormDBFields0(7) = "Instructions" arFormValues0(7) = Request("Instructions") arFormFields0(8) = "Name2" arFormDBFields0(8) = "Name2" arFormValues0(8) = Request("Name2") arFormFields0(9) = "Emb" arFormDBFields0(9) = "Emb" arFormValues0(9) = Request("Emb") arFormFields0(10) = "GraphNO" arFormDBFields0(10) = "GraphNO" arFormValues0(10) = Request("GraphNO") arFormFields0(11) = "RushNO" arFormDBFields0(11) = "RushNO" arFormValues0(11) = Request("RushNO") arFormFields0(12) = "Email" arFormDBFields0(12) = "Email" arFormValues0(12) = Request("Email") arFormFields0(13) = "Collar" arFormDBFields0(13) = "Collar" arFormValues0(13) = Request("Collar") arFormFields0(14) = "Name" arFormDBFields0(14) = "Name" arFormValues0(14) = Request("Name") arFormFields0(15) = "IDK" arFormDBFields0(15) = "IDK" arFormValues0(15) = Request("IDK") arFormFields0(16) = "Trxfrs" arFormDBFields0(16) = "Trxfrs" arFormValues0(16) = Request("Trxfrs") arFormFields0(17) = "F1" arFormDBFields0(17) = "F1" arFormValues0(17) = Request("F1") arFormFields0(18) = "SP" arFormDBFields0(18) = "SP" arFormValues0(18) = Request("SP") arFormFields0(19) = "Tees" arFormDBFields0(19) = "Tees" arFormValues0(19) = Request("Tees") arFormFields0(20) = "GraphYES" arFormDBFields0(20) = "GraphYES" arFormValues0(20) = Request("GraphYES") arFormFields0(21) = "Caps" arFormDBFields0(21) = "Caps" arFormValues0(21) = Request("Caps") arFormFields0(22) = "Sweat" arFormDBFields0(22) = "Sweat" arFormValues0(22) = Request("Sweat") arFormFields0(23) = "No" arFormDBFields0(23) = "No" arFormValues0(23) = Request("No") 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 Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "http://www.texasembroideryshop.com/thankyou.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Get a Quote

Texas Embroidery Shop ● 3707 Applewood Rd ● Melissa, Texas ● Phone: 1-800-883-1538

Use this form to send us information about your project.
[an error occurred while processing this directive]

  Your Name

  Your Company/Group

  Your Phone Number

  Your Email           

TYPE OF IMPRINTING NEEDED:

Embroidery   Screen Print   Vinyl/Heat Transfer   I Don't Know

TYPE OF APPAREL/GOODS NEEDED:

Caps/Hats     Golf Shirts       T-Shirts   Collared Shirts

Sweat Shirts  Bag/Accessory  Jacket     Item Provided

Do you know the name or style number of the item(s)?  Enter it here: 

How many items do you need decorated?    *Screen print Minimum is 24 pcs

Do you have a graphic already?    Yes  No

Upload your graphic file here: 

Would this be a RUSH Order?  Yes  No

Any special instructions or information that would be helpful for your quote?

We will contact you after reviewing this information for any additional information needed.

 

 
 

 We proudly accept the following:

VisaMastercardeCheck

American ExpressDiscoverPayPal

Home |  Embroidery  |  Screen Print  |  Photo Gallery  |  Online Store | Our Clients

Catalogs  |  Get A Quote  |  About Us  |  Contact Us  |  Wholesale 


Copyright © 2004-2006 Texas Embroidery Shop

All rights reserved - All content of this website is protected by copyright laws

Website & Graphic Design by Texas Embroidery Shop