<%
if len(trim(Request.Form("submit")))>=1 then
q1="insert into [webContact] ([dateEntered], [firstname], [lastname], [title], [company], [address1], [address2], [city], [state], [postalCode], [phone1], [phone2], [fax], [email], [url], [contactNotes]) values(getDate(), '"&sqlPrep(Request.Form("firstname"))&"', '"&sqlPrep(Request.Form("lastname"))&"', '"&sqlPrep(Request.Form("title"))&"', '"&sqlPrep(Request.Form("company"))&"', '"&sqlPrep(Request.Form("address1"))&"', '"&sqlPrep(Request.Form("address2"))&"', '"&sqlPrep(Request.Form("city"))&"', '"&sqlPrep(Request.Form("state"))&"', '"&sqlPrep(Request.Form("postalCode"))&"', '"&sqlPrep(Request.Form("phone1"))&"', '"&sqlPrep(Request.Form("phone2"))&"', '"&sqlPrep(Request.Form("fax"))&"', '"&sqlPrep(Request.Form("email"))&"', '"&sqlPrep(Request.Form("url"))&"', '"&sqlPrep(Request.Form("notes"))&"')"
set RS1=Conn1.Execute(q1)
set RS1 = Nothing
'Set JMail = Server.CreateObject("JMail.SMTPMail")
Set JMail = Server.CreateObject("JMail.Message")
'Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'JMail.ServerAddress = "mail.simpleinfo.com"
JMail.MailServerUserName = "sis_form@simpleinfo.com"
JMail.MailServerPassword = "sis_form_pw"
'Mailer.RemoteHost = "mail.simpleinfo.com"
JMail.From = "sis_form@simpleinfo.com"
'Mailer.FromAddress = "gleach@simpleinfo.com"
JMail.fromname = "SIS Web Contact"
'Mailer.FromName = "SIS Web Contact"
'JMail.AddRecipient "gleach@simpleinfo.com"
'Mailer.AddRecipient "Gerald A. Leach Jr.","gleach@simpleinfo.com"
JMail.AddRecipient "mikepaul@simpleinfo.com"
'Mailer.AddRecipient "Mike Paul","mikepaul@simpleinfo.com"
JMail.Subject = "simpleinfo.com web contact"
'Mailer.Subject = "simpleinfo.com web contact"
tmpBody = ""
tmpBody = tmpBody & "firstname: " & Request.Form("firstname") & Chr(10)
tmpBody = tmpBody & "lastname: " & Request.Form("lastname") & Chr(10)
tmpBody = tmpBody & "title: " & Request.Form("title") & Chr(10)
tmpBody = tmpBody & "company: " & Request.Form("company") & Chr(10)
tmpBody = tmpBody & "address1: " & Request.Form("address1") & Chr(10)
tmpBody = tmpBody & "address2: " & Request.Form("address2") & Chr(10)
tmpBody = tmpBody & "city: " & Request.Form("city") & Chr(10)
tmpBody = tmpBody & "state: " & Request.Form("state") & Chr(10)
tmpBody = tmpBody & "zip: " & Request.Form("postalcode") & Chr(10)
tmpBody = tmpBody & "phone: " & Request.Form("phone1") & Chr(10)
tmpBody = tmpBody & "mobile: " & Request.Form("phone2") & Chr(10)
tmpBody = tmpBody & "fax: " & Request.Form("fax") & Chr(10)
tmpBody = tmpBody & "email: " & Request.Form("email") & Chr(10)
tmpBody = tmpBody & "url: " & Request.Form("url") & Chr(10)
tmpBody = tmpBody & Chr(10) & Chr(10)
tmpBody = tmpBody & Request.Form("notes") & Chr(10)
JMail.Body = tmpBody
'Mailer.BodyText = tmpBody
JMail.Priority = 3
'Mailer.Priority = 3
JMail.Send("mail.simpleinfo.com")
'if JMail.Execute then mailSent=true
'If Mailer.SendMail Then mailSent = true
Jmail.ClearAttachments
Jmail.ClearRecipients
Set JMail = Nothing
'Set Mailer = Nothing
Response.Write "Thank you for contacting Simple Information Solutions. Your business is important to us, and one of our representatives will contact you shortly..."
else
%>
Contact us by filling out the form below:
<%end if%>
|