O'Neal Consultants- Business Process

vti_encoding:SR|utf8-nl vti_timelastmodified:TR|20 Aug 2003 22:28:21 -0000 vti_extenderversion:SR|5.0.2.2623 vti_author:SR|CENDYN1\\hjin vti_modifiedby:SR|CENDYN1\\hjin vti_timecreated:TR|20 Aug 2003 20:21:38 -0000 vti_lineageid:SR|{C41E9D2E-94FA-454B-B9DD-535430E9465D} vti_backlinkinfo:VX| vti_nexttolasttimemodified:TW|20 Aug 2003 20:21:38 -0000 vti_cacheddtm:TX|20 Aug 2003 22:36:05 -0000 vti_filesize:IR|207 vti_cachedneedsrewrite:BR|false vti_cachedhasbots:BR|false vti_cachedhastheme:BR|false vti_cachedhasborder:BR|false vti_charset:SR|windows-1252 O'Neal Consultants- Business Process <% if request.form("submit") <> "" then strName = request.form("Name") strName = replace(strName,"'","''") strCompany = request.form("Company") strCompany = replace(strCompany,"'","''") strAreacode = request.form("Areacode") strAreacode = replace(strAreacode,"'","''") strPhone1 = request.form("Phone1") strPhone2 = request.form("Phone2") strEmail = request.form("Email") strEmail = replace(strEmail,"'","''") mySQL="insert into Newsletter(Name, Company, Areacode, Phone1, Phone2,Email)" mySQL=mySQL & " values('" & strName & "','" & strCompany & "','" & strAreacode & "','" & strPhone1 & "','" & strPhone2 & "','" & strEmail & "')" 'response.write mySQL 'response.end con.execute(mySQL) strBody = "A Newsletter Request Form was just completed on the website. Below are the details of the submission.

" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "

Name:	" & strName & "
Company:	" & strCompany & "
Phone:	" & strAreacode & "-" & strPhone1 & "-" & strPhone2 & "
Email:	" & strEmail & "

" Dim objMailer Set objMailer = Server.CreateObject("SMTPsvg.Mailer") objMailer.Qmessage = False objMailer.FromName = strName objMailer.FromAddress= sales@onealconsultants.info 'objMailer.RemoteHost = "relay-hosting.secureserver.net" objMailer.AddRecipient "sales@onealconsultants.com ", "sales@onealconsultants.com " objMailer.Subject = "Newsletter Request form submitted!" objMailer.ContentType = "text/html" objMailer.BodyText = strBody objMailer.SendMail set objMailer = Nothing response.redirect "contact_Thankyou.asp" end if %>

Complete this form to be on our Newsletter mailing list.

Name:	*
Company:
Phone:	- -
E-Mail:	*
* Denotes Required Field