<% ' FP_ASP ASP Automatically generated by a Frontpage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1033 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("equote_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(23) Dim arFormDBFields0(23) Dim arFormValues0(23) arFormFields0(0) = "numfaxmodem" arFormDBFields0(0) = "numfaxmodem" arFormValues0(0) = Request("numfaxmodem") arFormFields0(1) = "alreadyquoted" arFormDBFields0(1) = "alreadyquoted" arFormValues0(1) = Request("alreadyquoted") arFormFields0(2) = "lines3years" arFormDBFields0(2) = "lines3years" arFormValues0(2) = Request("lines3years") arFormFields0(3) = "installdate" arFormDBFields0(3) = "installdate" arFormValues0(3) = Request("installdate") arFormFields0(4) = "address" arFormDBFields0(4) = "address" arFormValues0(4) = Request("address") arFormFields0(5) = "suite" arFormDBFields0(5) = "suite" arFormValues0(5) = Request("suite") arFormFields0(6) = "zipcode" arFormDBFields0(6) = "zipcode" arFormValues0(6) = Request("zipcode") arFormFields0(7) = "contactvia" arFormDBFields0(7) = "contactvia" arFormValues0(7) = Request("contactvia") arFormFields0(8) = "fax" arFormDBFields0(8) = "fax" arFormValues0(8) = Request("fax") arFormFields0(9) = "email" arFormDBFields0(9) = "email" arFormValues0(9) = Request("email") arFormFields0(10) = "equote" arFormDBFields0(10) = "equote" arFormValues0(10) = Request("equote") arFormFields0(11) = "HowmanyEXTs" arFormDBFields0(11) = "HowmanyEXTs" arFormValues0(11) = Request("HowmanyEXTs") arFormFields0(12) = "phone" arFormDBFields0(12) = "phone" arFormValues0(12) = Request("phone") arFormFields0(13) = "cabling" arFormDBFields0(13) = "cabling" arFormValues0(13) = Request("cabling") arFormFields0(14) = "locations" arFormDBFields0(14) = "locations" arFormValues0(14) = Request("locations") arFormFields0(15) = "industry" arFormDBFields0(15) = "industry" arFormValues0(15) = Request("industry") arFormFields0(16) = "Extension" arFormDBFields0(16) = "Extension" arFormValues0(16) = Request("Extension") arFormFields0(17) = "CurrentLines" arFormDBFields0(17) = "CurrentLines" arFormValues0(17) = Request("CurrentLines") arFormFields0(18) = "voicemail" arFormDBFields0(18) = "voicemail" arFormValues0(18) = Request("voicemail") arFormFields0(19) = "companyname" arFormDBFields0(19) = "companyname" arFormValues0(19) = Request("companyname") arFormFields0(20) = "city" arFormDBFields0(20) = "city" arFormValues0(20) = Request("city") arFormFields0(21) = "state" arFormDBFields0(21) = "state" arFormValues0(21) = Request("state") arFormFields0(22) = "contact" arFormDBFields0(22) = "contact" arFormValues0(22) = Request("contact") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "equote.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Corporate Communications Request Online Quote

Corporate Communications and Data Systems, Inc. Your One Stop Shop For All Of Your Communications Needs!!
The Easiest Way to Purchase or Lease Business Telephone Systems!  Call Us Toll Free 1-877-230-3414!
Inter-Tel AXXENT System With Voice Mail!
need help

or call toll-free
9AM - 5PM EST:
1-877-230-3414
email

 
     Request a Quote Online: Just answer a few simple questions and we'll have a quote to you within 24 hours! (all fields are required to process your request for quote)

Already have a quote on a phone system? We'll provide a competitive quote on the same or comparable system.
 

 

telephone systemsNumber of Incoming Telephone Lines/Numbers

 today  # expected within 3 years
     

telephone systemsNumber of Telephone Sets Required

  

telephone systemsNumber of Fax Machines & Modems

  

telephone systemsHave you already been quoted a phone system?

---yes
---no

telephone systemsVoicemail System Required?

---yes
---no

telephone systemsNew Network or Telephone
Cabling Installation Needed?

---yes
---no

telephone systemsNumber of Business Locations

telephone systemsTarget Date for Installation

telephone systemsBusiness Type (ie, retail etc.)
telephone systemsI prefer to be contacted by:
telephone systemsContact Name:
telephone systemsCompany Name:
telephone systemsAddress:
telephone systemsSuite:
telephone systemsCity:
telephone systemsState:
telephone systemsZip:
telephone systemsPhone: EXT
telephone systemsFax:
telephone systemsEmail:
   

© Copyright © 1995-2007 Corporate Communications & Data Systems Inc. All Rights Reserved. 
Designated trademarks and brands are the property of their respective owners and are used for identification purposes only.