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 strEmail = request.form("Email") strEmail = replace(strEmail,"'","''") strContact = request.form("Contact") strInterested = request.form("Interested") strsubscriber = request.form("subscriber") if strsubscriber = "" then strsubscriber = "No" end if strFName = request.form("fname") strFName = replace(strFName,"'","''") strLName = request.form("lname") strLName = replace(strLName,"'","''") strCompany = request.form("company") strCompany = replace(strCompany,"'","''") strAddress = request.form("address") strAddress = replace(strAddress,"'","''") strCity = request.form("city") strCity = replace(strCity,"'","''") strState = request.form("state") strZip = request.form("zip") strCountry = request.form("country") strCountry = replace(strCountry,"'","''") strPhone = request.form("Phone") strFax = request.form("fax") mySQL="insert into Request(Email,Contact,Interested,Subscriber,FirstName, LastName,Company, Address, City, State, Zip, Country, Phone, Fax)" mySQL=mySQL & " values('" & strEmail & "','" & strContact & "','" & strInterested & "','" & strSubscriber & "','" & strFName & "','" & strLName & "','" & strCompany & "','" & strAddress & "','" & strCity & "','" & strState & "','" & strZip & "','" & strCountry & "','" & strPhone & "','" & strFax & "')" 'response.write mySQL 'response.end con.execute(mySQL) strBody = "A Request Information Form was just completed on the website. Below are the details of the submission.

" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "" strBody = strBody & "
First Name: " & strFName & "
Last Name: " & strLName & "
Company Name: " & strCompany & "
Street Address: " & strAddress & "
City: " & strCity & "
State/Province: " & strState & "
Postal Code: " & strZip & "
Country: " & strCountry & "
Phone: " & strPhone & "
Fax: " & strFax & "
Email: " & strEmail & "
Contact: " & strContact & "
I am interested in the following: " & strInterested & "
Would like to receive updates and announcements: " & strsubscriber & "
" 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 = "O'Neal Consultants Request Information form submitted!" objMailer.ContentType = "text/html" objMailer.BodyText = strBody objMailer.SendMail set objMailer = Nothing response.redirect "contact_Thankyou.asp" end if %>
Company Overview
Business Process
Systems
Networks
Infrastructure
Audits
Telephone Department
Clients
  

Complete this form to receive more information.
 
Email: *

Please:
 Send an information package
 Have an O'Neal Consultants Specialist call me

I am interested in the following:
 Systems
Networks
 Infrastructure
 Audits
 Telephone Department



 I would like to receive updates and announcements.
First Name: *
Last Name: *
  
Company Name: *
  
Street Address:
  
City:
  
State / Province:
 
Postal Code: *
 
Country:
  
Phone: (include area code) *
  
Fax:
  
* Denotes Required Field


©2023. All rights reserved.

O'Neal Consultants

Privacy Statement

E-mail: sales@onealconsultants.com