<% dim sBody, strName, Mail, sPath if Request.form("Register") = "Submit" then strName = Trim(Request.Form("Name")) 'Write the user's name to a cookie Response.Cookies("UserName") = strName 'Set the cookie to expire in a week Response.Cookies("UserName").Expires = #12/31/2037 00:00:00# sBody = "This person requested to see the Volumen Discount Prices" & VbCrLf sBody = sBody & "Name: " & Trim(Request.Form("Name")) & VbCrLf sBody = sBody & "Phone: (" & Trim(Request.Form("phoneareacode")) & ")" & Trim(Request.Form("phonenumber")) & VbCrLf sBody = sBody & "Company: " & Trim(Request.Form("Company")) & VbCrLf sBody = sBody & "Address: " & Trim(Request.Form("Address")) & VbCrLf sBody = sBody & "City: " & Trim(Request.Form("City")) & ", " & Trim(Request.Form("State")) & " " & Trim(Request.Form("Zip")) & VbCrLf if Trim(Request.Form("Email")) <> "" then sBody = sBody & "Email: " & Trim(Request.Form("Email")) & VbCrLf End if if Trim(Request.Form("Comments")) <> "" then sBody = sBody & "Comments: " & Trim(Request.Form("Comments")) & VbCrLf End if Set Mail=Server.CreateObject(“CDONTS.NewMail”) Mail.To = "octavio@compatek.com" Mail.From = "support@compatek.com" Mail.Subject = "Information Request" Mail.Body = sBody Mail.Send Set Mail= Nothing Response.Redirect "thank_you.htm" End If %> Compatek - Contact Form

    Site Map
  Home About Us Computer Services Point of Sale Systems (POS) Contact Us
CONTACT FORM

If you have questions, suggestions or comments, please complete the following form and we’ll be happy to answer your request.

Fields marked with * are required.
  *Name:
  *Phone:  ()
  Company:
  Address:
  City:
  State: Zip Code:
  Email:
  Comments or Questions:

 
 
Compatek, LLC   6225 Cavendish Place, Eden Prairie, MN 55346   Phone: (952) 297-4424  Fax: (952) 583-3775  Email: support@compatek.com