<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' Smart Mailer 1.0.5
' Send on submit of form form1
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
Server.ScriptTimeout = 300
Set sm1 = new SmartMailer
sm1.checkVersion "1.05"
sm1.contentCharset = "us-ascii"
Session.CodePage = sm1.getCodepage()
sm1.smtpSetup "mail.kvfchiro.com", "", "", ""
sm1.pickup = ""
sm1.component = "cdo"
sm1.tmpFolder = ""
sm1.embedImages = false
sm1.progressBar = ""
sm1.ignore_errors = true
sm1.useQueue = false
sm1.setFrom Request.Form("name"), Request.Form("email")
sm1.setTo "KVF Chiropractic", "ganimh@charter.net"
sm1.setCc "Jason Hager", "jason@themediamakers.com"
sm1.setBcc "", ""
sm1.Subject = "KVF Chiro NewsletterRequest"
' using static for body
sm1.setBody_Static_html "The following person has requested to receive the newsletter." & vbCRLF & "" & vbCRLF & "Name: " & (Request.Form("name")) & "" & vbCRLF & "Address1:" & (Request.Form("address1")) & "" & vbCRLF & "Address2: " & (Request.Form("address2")) & "" & vbCRLF & "City: " & (Request.Form("city")) & "" & vbCRLF & "State: " & (Request.Form("state")) & "" & vbCRLF & "Zip: " & (Request.Form("zip")) & "" & vbCRLF & "Phone: " & (Request.Form("phone")) & "" & vbCRLF & "Email: " & (Request.Form("email")) & ""
' Attachments none
sm1.sendMail "one"
Response.Redirect "thanks.html"
end if
SM_mailAction = getMailAction()
%>
:: Kanawha Valley Family Chiropractic ::
Dear Patients and Friends,
Welcome to the Newsletter
area of our web site. If you would like to recieve our newsletter
in the mail, please fill out the form below. Items marked with "*"
are required. See our newsletters
online here.
