%
Option Explicit
Dim strMessage
If Request( "is_postback" ) = "True" Then
Dim objMail
Set objMail = Server.CreateObject( "CDONTS.NewMail" )
Dim strFullName, strTitle, strOrganization, strStreetAddress, strAddress2, strCity, strState, strZipCode, strCountry, strWorkPhone
Dim strFAX, strEmail, strURL, strProduct, strDetails, strEmailBody
strFullName = Request( "FullName" )
strTitle = Request( "Title" )
strOrganization = Request( "Organization" )
strStreetAddress = Request( "StreetAddress" )
strAddress2 = Request( "Address2" )
strCity = Request( "City" )
strState = Request( "State" )
strZipCode = Request( "ZipCode" )
strCountry = Request( "Country" )
strWorkPhone = Request( "WorkPhone" )
strFAX = Request( "FAX" )
strEmail = Request( "Email" )
strURL = Request( "URL" )
strProduct = Request( "Product" )
strDetails = Request( "Details" )
strEmailBody = "FullName: " & strFullName & vbCrLf & _
"Title: " & strTitle & vbCrLf & _
"Organization: " & strOrganization & vbCrLf & _
"StreetAddress: " & strStreetAddress & vbCrLf & _
"Address2: " & strAddress2 & vbCrLf & _
"City: " & strCity & vbCrLf & _
"State: " & strState & vbCrLf & _
"ZipCode: " & strZipCode & vbCrLf & _
"Country: " & strCountry & vbCrLf & _
"WorkPhone: " & strWorkPhone & vbCrLf & _
"FAX: " & strFAX & vbCrLf & _
"Email: " & strEmail & vbCrLf & _
"URL: " & strURL & vbCrLf & _
"Product: " & strProduct & vbCrLf & _
"Details: " & strDetails
objMail.From = strFullName & "(" & strEmail & ")"
objMail.Subject = "Online Quote"
objMail.To = "cargo@cargotainer.com"
objMail.Body = strEmailBody
objMail.Send
Set objMail = Nothing
strMessage = "Your quote request has been sent successfully."
End If
%>
Online Quote
|

|

Please fill out the information below for a quote, or if you have
any questions about our products. Please include as much information about sizes, and the
amount of wire mesh that is needed. Thank you.
<%= strMessage %>
|
|