|
<%
If Request.Form.Count > 0 Then
Dim FormOrder, FormOrderArray, objNewMail, MailBody, Item
FormOrder = "First_Name,Last_Name,Day_Time_Phone,Evening_Phone,Best_Time_to_Call,Address,City,State,Zip,Email,Comments"
Set objNewMail = Server.CreateObject("CDONTS.NewMail")
objNewMail.From = "quoterequest@customtapecompany.com"
objNewMail.To = "jeffg@customtapecompany.com"
objNewMail.Bcc = "ken@usinterweb.com"
objNewMail.Subject = "Quote request from Web site"
If FormOrder <> "" Then
FormOrderArray = Split(FormOrder, ",", -1, 1)
For Each Item in FormOrderArray
If Len(Request(Item)) > 0 Then
MailBody = MailBody & Replace(Item, "_", " ") & ": " & Replace(Request(Item), "_", " ") & vbNewLine & vbNewLine
End If
Next
Else
For Each Item in Request.Form
MailBody = MailBody & Item & ": " & Request(Item) & vbNewLine
Next
End If
objNewMail.Body = MailBody
objNewMail.Send
Set objNewMail = Nothing
Response.Write " Thank your interest in Custom Tape Company, Inc. Here is a copy of your submission to print for your records. We will be contacting you shortly. "
Response.Write "
"
If FormOrder <> "" Then
FormOrderArray = Split(FormOrder, ",", -1, 1)
For Each Item in FormOrderArray
If Len(Request(Item)) > 0 Then
Response.Write "" & Replace(Item, "_", " ") & ": " & Replace(Request(Item), "_", " ") & "
"
End If
Next
End If
Else
%>
|
