Free Samples If your company is interested in producing custom-printed TranSleev® MetroCard holders please fill out the following form and we will contact you upon receipt.
|
<%
Sub RedirectTo(byval strURL)
Response.Write ""
End Sub
If (Len(Request("Name")) > 0) Then
If (Len(Request("email")) > 0) Then
Set objMessage = Server.CreateObject("CDO.Message")
objMessage.Subject = "TranSleev Free Samples Request [" + Request("Name") + ", " + Request("Company_Name") + ", " + Request("Phone_Number") + "]"
objMessage.From=Request("email")
objMessage.To=Request("submit_to")
objMessage.TextBody= "Name: " + Request("Name") & vbCrLf & vbcrLF
objMessage.TextBody= objMessage.TextBody + "E-mail: " + Request("email") & vbCrLf & vbcrLF
objMessage.TextBody= objMessage.TextBody + "Company Name: " + Request("Company_Name") & vbCrLf & vbcrLF
objMessage.TextBody= objMessage.TextBody + "Company Address: " & vbCrLf & Request("Company_Address") & vbCrLf & vbcrLF
objMessage.TextBody= objMessage.TextBody + "Phone Number: " + Request("Phone_Number") & vbCrLf & vbcrLF
objMessage.TextBody= objMessage.TextBody + "How did you hear about us: " + Request("How_did_you_hear_about_us") & vbCrLf & vbcrLF
objMessage.TextBody= objMessage.TextBody + "Comments: " + Request("Comments") & vbCrLf & vbcrLF
mailres=objMessage.Send
Response.Write ""
If NOT mailres Then
Response.Write ""
RedirectTo("thanks.html")
Else
Response.Write ""
End If
End If
End If
%>
|
|
|
 | MWA Communications and Marketing
(800) 729-2321
|
|