<%@ Language=VBScript %> <% option explicit Response.Expires = 0 Dim yourname, youremail, message Dim strTo, strToName, strFrom, strFromName, strCC, strBCC, strSubject, strBody, strHost, blnIsHTML yourname = request("yourname") youremail = request("youremail") message = request("message") If request("rn") = "87" then strToName = "VerticalConsultingGroup.com " strTo = "info@verticalonline.net" strFrom = youremail strFromName = yourname strCC = "" strBCC = "" strSubject = "VerticalConsultingGroup.net - Contact Page -" strBody = youremail & " wrote:" & message strHost = "mail.bellsouth.net" blnIsHTML = false Call SendEmailCDONTS(strFrom, strFromName, strTo, strToName, strCC, strBCC, strSubject, strBody, strHost, blnIsHTML) end if %>

You need to upgrade your Flash Player

For a free Telecom Analysis or to learn more about our services,
please call:

Phone:
305-970-5000

E-mail:
info@verticalonline.net

Installing a new phone system calls for important business decisions. more ...

We can act as your remote help desk, train your help desk personnel or provide you with trained people to staff your help desk. more ...

VoIP is a technology that enables you to use your Internet connection to carry your phone service more ...

Contact Form

Home | Services | Products | Contact | About us

<% if request("rn") = 87 then response.write "" end if %> <% '---- Email Sending Functions Function SendEmailCDONTS(strFrom, strFromName, strTo, strToName, strCC, strBCC, strSubject, strBody, strHost, blnIsHTML) Dim objEmailC Set objEmailC= Server.CreateObject("CDONTS.NewMail") objEmailC.From = strFrom objEmailC.To = strTo If strCC <> "" Then objEmailC.Cc = strCC If strBCC <> "" Then objEmailC.Bcc = strBCC objEmailC.Subject = strSubject If blnIsHTML Then objEmailC.BodyFormat = 0 objEmailC.MailFormat = 0 End If objEmailC.Body = strBody On Error Resume Next objEmailC.Send On Error Goto 0 Set objEmailC = Nothing End Function %>