%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' Smart Mailer 1.0.7
' Send on submit of form contactForm
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Server.ScriptTimeout = 300
Set sm1 = new SmartMailer
sm1.checkVersion "1.07"
sm1.contentCharset = "us-ascii"
Session.CodePage = sm1.getCodepage()
sm1.smtpSetup "", "", "", ""
sm1.pickup = ""
sm1.component = "cdonts"
sm1.tmpFolder = ""
sm1.embedImages = false
sm1.progressBar = ""
sm1.ignore_errors = false
sm1.useQueue = false
sm1.setFrom cStr(Request.Form("name")), cStr(Request.Form("email"))
sm1.setTo "Rick Banks", "rjbanks@comcast.net"
sm1.setCc "Kathleen Banks", "kbanks13@comcast.net"
sm1.setBcc "Webmaster", "robert@sellersbay.com"
sm1.Subject = "Information Request From Orientalrugsbymagellan.com Contact Form"
' using static for body
sm1.setBody_Static_html "Information Request From Orientalrugsbymagellan.com Contact Form:" & vbCRLF & "" & vbCRLF & "Name: " & (cStr(Request.Form("name"))) & "" & vbCRLF & "" & vbCRLF & "Address: " & (cStr(Request.Form("address"))) & "" & vbCRLF & "" & vbCRLF & "City: " & (cStr(Request.Form("city"))) & "" & vbCRLF & "" & vbCRLF & "State: " & (cStr(Request.Form("state"))) & "" & vbCRLF & "" & vbCRLF & "Zip: " & (cStr(Request.Form("zip"))) & "" & vbCRLF & "" & vbCRLF & "Daytime Phone: " & (cStr(Request.Form("dayPhone"))) & "" & vbCRLF & "" & vbCRLF & "Cell Phone: " & (cStr(Request.Form("cellPhone"))) & "" & vbCRLF & "" & vbCRLF & "Email Address: " & (cStr(Request.Form("email"))) & "" & vbCRLF & "" & vbCRLF & "Best Way To Contact: " & (cStr(Request.Form("bestToContact"))) & "" & vbCRLF & "" & vbCRLF & "Questions: " & (cStr(Request.Form("editor1"))) & ""
' Attachments none
sm1.sendMail "one"
Response.Redirect "thanks.asp"
end if
SM_mailAction = getMailAction()
%>
Oriental Rugs by Magellan