Omnia Technologies: Contact Omnia and Make the Switch to VoIP

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next If request.form("formsubmit") <> "" Then 'response.write " form email is being processed..." 'response.Flush() 'response.End() ' process form, generate email strName = Request.Form("name") strCompany = Request.Form("company") strEmail = Request.Form("email") strAddress = Request.Form("address") strPhone = Request.Form("phone") strComments = Request.Form("comments") strEvent = Request.Form("event") sMessage = "********************************************* " & vbNewLine sMessage = sMessage & "CONTACT OMNIA - " & vbCrLf sMessage = sMessage & "Form Results Submitted " & vbCrLf sMessage = sMessage & Now & " EST" & vbCrLf sMessage = sMessage & "********************************************* " & vbNewLine sMessage = sMessage & vbNewLine sMessage = sMessage & "Name : " & strName & vbCrLf sMessage = sMessage & "Company : " & strCompany & vbCrLf sMessage = sMessage & "Email : " & strEmail & vbCrLf sMessage = sMessage & "Address : " & strAddress & vbCrLf sMessage = sMessage & "Phone : " & strPhone & vbCrLf sMessage = sMessage & "Event : " &strEvent & vbCrLf sMessage = sMessage & vbNewLine sMessage = sMessage & "Comments: " & vbCrLf sMessage = sMessage & strComments & vbCrLf sMessage = sMessage & vbNewLine sMessage = sMessage & "--------------------------------------------- " & vbNewLine sMessage = sMessage & vbNewLine sMessage = sMessage & "Telecommunications Needs : " & vbNewLine If request("video") <> "" Then sMessage = sMessage & vbTab & "Video Conferencing" & vbNewLine End IF If request("voip") <> "" Then sMessage = sMessage & vbTab & "Voice over IP (VoIP) Services" & vbNewLine End IF If request("lan_wan") <> "" Then sMessage = sMessage & vbTab & "Local and Wide Area Networks" & vbNewLine End IF If request("mobil_crc") <> "" Then sMessage = sMessage & vbTab & "Mobile Customer Response Center " & vbNewLine End IF If request("contactcenter") <> "" Then sMessage = sMessage & vbTab & "Contact Center Solutions" & vbNewLine End IF If request("crm_integration") <> "" Then sMessage = sMessage & vbTab & "CRM Integration Services " & vbNewLine End IF If request("voip_network") <> "" Then sMessage = sMessage & vbTab & "VoIP Network Assessments " & vbNewLine End IF If request("telecom_carrier") <> "" Then sMessage = sMessage & vbTab & "Telecommunication Carrier Services " & vbNewLine End IF If request("consulting") <> "" Then sMessage = sMessage & vbTab & "Consulting Services" & vbNewLine End IF sMessage = sMessage & vbNewLine sMessage = sMessage & "--------------------------------------------- " & vbNewLine 'response.write "form contents are:" 'response.write sMessage 'response.Flush() 'response.End() Set objMail = Server.CreateObject("CDO.Message") Set objConf = Server.CreateObject("CDO.Configuration") Set objFlds = objConf.Fields With objFlds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "localhost" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objMail.Configuration = objConf objMail.From = "webserver@omnia.com" objMail.To = "connect@omniatech.com" 'objMail.To = "fred.mercer@twcable.com" objMail.BCC = "dan@perrybanks.com" objMail.Subject = "Contact Omnia" objMail.TextBody = sMessage objMail.Send Set objMail = Nothing Set objConf = Nothing Set objFlds = Nothing ' redirect to thankyou page Response.Redirect("thankyou.html") ' Form not submitted upon itself so just display page normally Else %> Omnia Technologies: Contact Omnia and Make the Switch to VoIP

Omnia is ready to help you make the switch to a new, powerful and effective communication system - and start saving money. If you’d like to know more about how your organization can benefit from our services, let’s talk. Just fill in your contact information, pick a time that’s convenient, and we’ll call you! Or better yet, join us at one of OMNIA's upcoming events.

Name:

Company:

Email:

Address:

Phone Number:

Comments:

To register for one of OMNIA's upcoming events, complete your

contact information above and

enter the event code here:

My communications needs include (check all that apply):

Video Conferencing

Voice over IP (VoIP) Services

Local and Wide Area Networks

Mobile Customer Response Center

Contact Center Solutions

CRM Integration Services

VoIP Network Assessments

Telecommunication Carrier Services

Consulting Services

Northeast Offices
10 Danforth Street
Portland, ME 04101

(207) 874-1968
Fax: (207) 874-4051

Southeast Offices
761 Westyn Bay Blvd
Ocoee, FL 34761

(407) 661-4060
Fax: (407) 661-4064

National Toll Free # 888-417-1968

<% End IF %>