|
<%
strSendTo = "avcohen@covad.net"
strFrom = request.form("Email")
strThanks = Request.form("redirectURL")
strSubject = Request.form("subject")
strGMTo = "{$GM-WEBIMPORT$}"
badChars = array("select", "drop", ";", "--", "insert", "delete", "xp_")
Company = request.form("Company")
for i = 0 to uBound(badChars)
Company = replace(Company, badChars(i), "")
next
Company = Replace(Company, "'", "''")
Contact = request.form("Contact")
for i = 0 to uBound(badChars)
Contact = replace(Contact, badChars(i), "")
next
Contact = Replace(Contact, "'", "''")
Address1 = request.form("Address1")
for i = 0 to uBound(badChars)
Address1 = replace(Address1, badChars(i), "")
next
Address1 = Replace(Address1, "'", "''")
Address2 = request.form("Address2")
for i = 0 to uBound(badChars)
Address2 = replace(Address2, badChars(i), "")
next
Address2 = Replace(Address2, "'", "''")
City = request.form("City")
for i = 0 to uBound(badChars)
City = replace(City, badChars(i), "")
next
City = Replace(City, "'", "''")
Zip = request.form("Zip")
for i = 0 to uBound(badChars)
Zip = replace(Zip, badChars(i), "")
next
Zip = Replace(Zip, "'", "''")
St = request.form("State")
for i = 0 to uBound(badChars)
St = replace(St, badChars(i), "")
next
St = Replace(St, "'", "''")
Phone1 = request.form("Phone1")
for i = 0 to uBound(badChars)
Phone1 = replace(Phone1, badChars(i), "")
next
Phone1 = Replace(Phone1, "'", "''")
Email = request.form("Email")
for i = 0 to uBound(badChars)
Email = replace(Email, badChars(i), "")
next
Email = Replace(Email, "'", "''")
Srce = request.form("Source")
for i = 0 to uBound(badChars)
Srce = replace(Srce, badChars(i), "")
next
Srce = Replace(Srce, "'", "''")
Key5 = request.form("Key5")
for i = 0 to uBound(badChars)
Key5 = replace(Key5, badChars(i), "")
next
Key5 = Replace(Key5, "'", "''")
Notes = request.form("Notes")
for i = 0 to uBound(badChars)
Notes = replace(Notes, badChars(i), "")
next
Notes = Replace(Notes, "'", "''")
Notes1 = request.form("Notes1")
Notes1 = Replace(Notes1, "'", "''")
Notes2 = request.form("Notes2")
Notes2 = Replace(Notes2, "'", "''")
Notes3 = request.form("Notes3")
Notes3 = Replace(Notes3, "'", "''")
Notes4 = request.form("Notes4")
Notes4 = Replace(Notes4, "'", "''")
Notes5 = request.form("Notes5")
Notes5 = Replace(Notes5, "'", "''")
Notes6 = request.form("Notes6")
Notes6 = Replace(Notes6, "'", "''")
Notes7 = request.form("Notes7")
Notes7 = Replace(Notes7, "'", "''")
Notes8 = request.form("Notes8")
Notes8 = Replace(Notes8, "'", "''")
Notes9 = request.form("Notes9")
Notes9 = Replace(Notes9, "'", "''")
Notes10 = request.form("Notes10")
Notes10 = Replace(Notes10, "'", "''")
Notes11 = request.form("Notes11")
Notes11 = Replace(Notes11, "'", "''")
Notes12 = request.form("Notes12")
Notes12 = Replace(Notes12, "'", "''")
Notes13 = request.form("Notes13")
Notes13 = Replace(Notes13, "'", "''")
Notes14 = request.form("Notes14")
Notes14 = Replace(Notes14, "'", "''")
Notes15 = request.form("Notes15")
Notes15 = Replace(Notes15, "'", "''")
Notes16 = request.form("Notes16")
Notes16 = Replace(Notes16, "'", "''")
Notes17 = request.form("Notes17")
Notes17 = Replace(Notes17, "'", "''")
Notes18 = request.form("Notes18")
Notes18 = Replace(Notes18, "'", "''")
Notes19 = request.form("Notes19")
Notes19 = Replace(Notes19, "'", "''")
Dim Mail
set Mail=server.createobject("CDO.Message")
Mail.From = strFrom
Mail.To = strGMTo & "<" & strSendTo & ">"
Mail.CC = request.form("emailcc")
Mail.Subject = strSubject
Mail.TextBody = "[Instructions]" + VbCrLf + _
"SaveThis=Web Import File" + VbCrLf + _
"DupCheck=Email" + VbCrLf + _
"OnNewSendGMEmail=AVIEC,NEW WEB LEAD,New Web Contact Record" + VbCrLf + _
"OnDupSendGMEmail=AVIEC,DUPLICATE WEB LEAD,Duplicate Web Contact Record" + VbCrLf + VbCrLf + _
"[Data]" + VbCrLf + _
"Company=" + Company + VbCrLf + _
"Contact=" + Contact + VbCrLf + _
"Address1=" + Address1 + VbCrLf + _
"Address2=" + Address2 + VbCrLf + _
"City=" + City + VbCrLf + _
"Zip=" + Zip + VbCrLf + _
"State=" + St + VbCrLf + _
"Phone1=" + Phone1 + VbCrLf + _
"Email=" + Email + VbCrLf + _
"Source=" + Srce + VbCrLf + _
"Notes=" + Notes + VbCrLf + _
"Key5=" + Key5
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") =2
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="relay-hosting.secureserver.net"
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =25
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") =aviec
Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") =aviec
Mail.Configuration.Fields.Update
Mail.Send
set Mail=nothing
%>
Thank you <%= Request.Form("Contact")%>,
for contacting Bakery Equipment Specialists.
We will receive your message soon, and
one of our representatives
will be in contact with you.
| |
|
![Belshaw Fryer [GAS OPERATED]](images/New_Photos_6_7_07/CC%20400%20fryer%201.jpg)
