<%
'const contactemail="merlyn@352media.com"
const contactemail="info@adforceone.com"
if request.form <> "" then
dim JMail
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.Priority = 3
JMail.Silent = true
JMail.Logging = true
JMail.ServerAddress = "mail.352media.com"
' ***** SET EMAIL SETTINGS HERE
JMail.Subject = "New AdforceOne Form Submission" ' subject line of your email
strbody = "Here's a New Email Form Submission:" + vbcrlf ' how your email (BODY) begins
jmail.addrecipient contactemail
' JMail.Replyto = request("email") ' address to reply to
' ***** END EMAIL SETTINGS
JMail.Sender = "info@adforceone.com"
' ***** APPEND LIST OF FORM NAMES AND VALUES TO BODY
for i = 1 to request.form.count
temp = temp + cstr(request.form.key(i)) + ": " + cstr(request.form.item(i)) + vbcrlf
next
strBody = strBody + temp
jmail.body=strbody
'**** END
JMail.execute
';--------------------------------------------------------
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.LazySend = true
JMail.Priority = 3
JMail.Silent = true
JMail.Logging = true
JMail.ServerAddress = "mail.352media.com"
' ***** SET EMAIL SETTINGS HERE
JMail.Subject = "Ad Force Confirmation" ' subject line of your email
JMail.Body = "Dear " & request.form("name") & ", " & vbcrlf & _
"Thank you for contacting Ad Force about your marketing needs. One of our account representatives will be in contact with you within the next business day to personally discuss the details of your request." & vbcrlf & _
vbcrlf & _
"We appreciate the opportunity to earn your business." & vbcrlf & _
vbcrlf & _
"Ad Force Support Team" & vbcrlf & _
"http://www.adforceone.com" & vbcrlf &_
"If you have any questions," & vbcrlf & _
"please contact us at 888.AD FORCE" & vbcrlf &_
vbcrlf
jmail.addrecipient request("email")
JMail.Sender = "info@adforceone.com"
JMail.execute
set JMail = nothing
response.redirect("thanks.asp?name=" & server.urlencode(request.form("name"))) 'create a page, thanks.asp, give user follow up info
end if
%>
%>
Contact Us
