<% if request.form("name") <> "" then Dim strToAddress Dim MyBody Dim MyCDONTSMail strToAddress = "info@transendit.com" Set MyCDONTSMail = CreateObject("CDONTS.NewMail") MyCDONTSMail.From= request.form("email") MyCDONTSMail.To = strToAddress MyCDONTSMail.Subject="Contact Us Message" MyBody = "The following message was sent from the TranSend IT Web site" & vbCrLf & vbCrLf MyBody = MyBody & "Date/Time: " & now() & " EDT" & vbCrLf & vbCrLf MyBody = MyBody & "Name: " & request.form("name") & vbCrLf MyBody = MyBody & "Interest: " & request.form("interest") & vbCrLf MyBody = MyBody & "Company: " & request.form("company") & vbCrLf MyBody = MyBody & "Address: " & request.form("address") & vbCrLf MyBody = MyBody & "City: " & request.form("city") & " Zip: " & request.form("zipcode") & vbCrLf MyBody = MyBody & "Phone: " & request.form("phone") & vbCrLf MyBody = MyBody & "Fax: " & request.form("fax") & vbCrLf MyBody = MyBody & vbCrLf MyBody = MyBody & "Comments: " & request.form("comments") & vbCrLf if request.form("mlist") = "add" then MyBody = MyBody & " " & vbCrLf & "*This person has requested to be added to the mailing list." & vbCrLf end if MyCDONTSMail.Body= MyBody MyCDONTSMail.Send set MyCDONTSMail=nothing %>

Thank you for contacting TranSend IT.

Your message was sent successfully.
<% else %>
Call: (856) 778-0123  
Fax: (530) 236-9485
E-mail: info@transendit.com
Write:

100 Technology Way
Mount Laurel, NJ 08054

 
Name:
Interest: Upload Accelerator         One Touch POS          Custom Transaction System / Integration      
Company:
Address:
City:
State:
Zip:
Phone:
Fax:
Email:
Comments:
  Add me to the mailing list so I can learn about new POS terminal technologies, products and services.
<% end if %>
   Terminal Download Products  |  Custom Solutions  |  About TranSendIT |  Partners  |  Contact
Download Software to POS Terminals 10x Faster    Setup a Custom Transaction System