<%
' who the servey e-mail gets sent to...
EmailContact = "info@fleetstreet.net"
EmailContactName = "Fleet Street Graphics"
EmailSubject = "[FLEETSTREET] Bid Request"
' get the current request flag
Flag = Request("flag")
if Flag = "" then Flag = 0
errorMessage = ""
if Flag = 1 then
' get form varibles
JobDescription = trim(Request.Form("JobDescription"))
PaperSize = getAlphaNumeric(trim(Request.Form("PaperSize")))
OtherSpecification = trim(Request.Form("OtherSpecification"))
DueDate = getAlphaNumeric(trim(Request.Form("DueDate")))
Comments = trim(Request.Form("Comments"))
Company = getAlphaNumeric(trim(Request.Form("Company")))
FirstName = getAlphaNumeric(trim(Request.Form("FirstName")))
LastName = getAlphaNumeric(trim(Request.Form("LastName")))
Address1 = getAlphaNumeric(trim(Request.Form("Address1")))
Address2 = getAlphaNumeric(trim(Request.Form("Address2")))
City = getAlpha(trim(Request.Form("City")))
State = getAlpha(trim(Request.Form("State")))
Zip = getNumeric(trim(Request.Form("Zip")))
Phone = getNumeric(trim(Request.Form("Phone")))
Fax = getNumeric(trim(Request.Form("Fax")))
Email = trim(Request.Form("Email"))
Quantity = getNumeric(trim(Request.Form("Quantity")))
' get listbox includes
Media = Request.Form("Media")
Mounting = Request.Form("Mounting")
Lamination = Request.Form("Lamination")
MaterialsFormat = Request.Form("MaterialsFormat")
' verify values
if JobDescription = "" then
errorMessage = errorMessage & " Please enter a job description."
end if
if Quantity = "" then
errorMessage = errorMessage & " Please enter a quantity."
end if
if PaperSize = "" then
errorMessage = errorMessage & " Please enter a paper size."
end if
if FirstName = "" then
errorMessage = errorMessage & " Please enter your first name."
end if
if LastName = "" then
errorMessage = errorMessage & " Please enter a last name."
end if
if Len(Phone) < 7 then
errorMessage = errorMessage & " Please enter a phone number."
end if
if Len(Email) < 6 then
errorMessage = errorMessage & " Please enter your email address."
end if
if errorMessage = "" then
' no errors... go ahead and send emails here
Body = ""
Body = Body & "Thank you for submitting your request for a bid. "
Body = Body & "Your bid will be completed by our sales professionals and emailed back to you.
"
Body = Body & "Fleet Street Graphics 866 Iwilei Road #226 Honolulu, Hawaii 96817
808.524.8228 808.524.8238 fax"
Body = Body & ""
SendHTMLEmail EmailContactName,EmailContact,email,"Your bid request has been received.",Body
Body = "Bid Request Form:
"
Body = Body & "Job Description: " & Replace(Server.HTMLEncode(JobDescription),CHR(13) & CHR(10)," ") & " "
Body = IfAddStr(Body,Quantity,"Quantity: " & Quantity & " ")
Body = IfAddStr(Body,PaperSize,"Size: " & PaperSize & " ")
Body = IfAddStr(Body,Media,"Media: " & Media & " ")
Body = IfAddStr(Body,Mounting,"Mounting: " & Mounting & " ")
Body = IfAddStr(Body,Lamination,"Lamination: " & Lamination & " ")
Body = IfAddStr(Body,MaterialsFormat,"Hard Copy: " & MaterialsFormat & " ")
Body = IfAddStr(Body,OtherSpecification,"Other Specs: " & Replace(Server.HTMLEncode(OtherSpecification),CHR(13) & CHR(10)," ") & " ")
Body = IfAddStr(Body,DueDate,"Due Date: " & DueDate & " ")
Body = IfAddStr(Body,Comments,"Comments: " & Replace(Server.HTMLEncode(Comments),CHR(13) & CHR(10)," ") & " ")
Body = Body & "Name: " & FirstName & " " & LastName & " "
strAddress = Server.HTMLEncode(Address1) & " " & Server.HTMLEncode(Address2) & " " & City & " " & State & " " & Zip
Body = Body & "Address: " & strAddress & " "
Body = IfAddStr(Body,Phone,"Phone: " & Phone & " ")
Body = Body & "Email: " & Server.HTMLEncode(Email) & " "
Body = Body & ""
SendHTMLEmail FirstName & " " & LastName,Email,EmailContact,EmailSubject,Body
' redirect to the thank you page
Response.Redirect("/bid-success.asp#form")
end if
end if
%>
FleetStreet - Integrated Branding
