%@ Language=VBScript %>
<%
dim strBody
dim Msg
select case Request.QueryString("Type")
case "Email"
'Response.Write(Request.Form("select3"))
strBody="
"
strBody=strBody & "| Contact Name: | " & Request.Form("textfield245")& " |
"
strBody=strBody & "Company:
| " & Request.Form("textfield2")& " |
"
strBody=strBody & "Address:
| " & Request.Form("textfield244")& " |
"
strBody=strBody & "City:
| " & Request.Form("textfield243")& " |
"
strBody=strBody & "State:
| " & Request.Form("State")& " |
"
strBody=strBody & "Zip:
| " & Request.Form("textfield242")& " |
"
strBody=strBody & "E-mail:
| " & Request.Form("textfield24")& " |
"
strBody=strBody & "Phone Number:
| " & Request.Form("textfield23")& " |
"
strBody=strBody & "Fax Number:
| " & Request.Form("textfield22")& " |
"
strBody=strBody & "Part Number:
| " & Request.Form("textfield2222")& " |
"
strBody=strBody & "Customer Part Number:
| " & Request.Form("textfield2223")& " |
"
strBody=strBody & "Process Required:
| " & Request.Form("textfield2224")& " |
"
strBody=strBody & "Manufacturer:
| " & Request.Form("textfield2225")& " |
"
strBody=strBody & "Quantity:
| " & Request.Form("textfield2226")& " |
"
strBody=strBody & "Package Type:
| " & Request.Form("textfield22263")& " |
"
strBody=strBody & "Marking:
| " & Request.Form("textfield22264")& " |
"
strBody=strBody & "Comments:
| " & Request.Form("textarea")& " |
"
strBody=strBody & "
"
set objMail = server.CreateObject("CDONTS.Newmail")
objMail.From = "info@dracomp.com"
objMail.To = "v.tirone@comcast.net"
objMail.Bcc = "v.tirone@comcast.net"
objMail.Subject = "Request A Quote from DRA"
objMail.BodyFormat = 0
objMail.MailFormat = 0
objMail.Body = strBody
objMail.Send
set objMail = nothing
Msg="Thank you, your information has been sent."
end select
%>