%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
'Declaring Variables
Dim customer,fax,phone,email_address,from,from_zip,too,too_zip,cselect
Dim weight,commodity,mdate,mmonth,myear,special_ins,mvalue,mclass
Dim comment, sDate, totValue
if Request.Form("process") = "1" then
sDate = Request.Form("myear") & " - " & Request.Form("mmonth") & "-" & Request.Form("mdate")
totValue = Request.Form("mvalue") & " " & Request.Form("cselect")
comment = "
The following information was provided:
"
comment = comment & "
Name : " & Request.Form("customer") & ""
comment = comment & "
Phone : " & Request.Form("phone") & ""
comment = comment & "
Fax : " & Request.Form("fax") & ""
comment = comment & "
Email : " & Request.Form("email_address") & ""
comment = comment & "
Time : " & Now & ""
comment = comment & "
"
comment = comment & "
From : " & Request.Form("from") & ""
comment = comment & "
From Zip : " & Request.Form("from_zip") & ""
comment = comment & "
To : " & Request.Form("too") & ""
comment = comment & "
To Zip : " & Request.Form("too_zip") & ""
comment = comment & "
Weight : " & Request.Form("weight") & ""
comment = comment & "
Commodity : " & Request.Form("commodity") & ""
comment = comment & "
Class : " & Request.Form("mclass") & ""
comment = comment & "
Shipping Date : " & sDate & ""
comment = comment & "
Value : $" & totValue & ""
comment = comment & "
"
comment = comment & "
Special Instructions : " & Request.Form("special_ins") & ""
Set myMail=CreateObject("CDO.Message")
myMail.Subject="Quotation from Speedx Web Site"
myMail.From=Request.Form("email_address")
myMail.To="info@speedxgroup.com"
myMail.HTMLBody = comment
myMail.Send
Set myMail = Nothing
Response.Redirect("confirm.html")
end if
%>
Send us no obligation quote request...SpeedX Transport