<% ' 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("prod01_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(10) Dim arFormDBFields0(10) Dim arFormValues0(10) arFormFields0(0) = "Title" arFormDBFields0(0) = "Title" arFormValues0(0) = Request("Title") arFormFields0(1) = "ProductOrService" arFormDBFields0(1) = "ProductOrService" arFormValues0(1) = Request("ProductOrService") arFormFields0(2) = "SalesContactRequested" arFormDBFields0(2) = "SalesContactRequested" arFormValues0(2) = Request("SalesContactRequested") arFormFields0(3) = "Company" arFormDBFields0(3) = "Company" arFormValues0(3) = Request("Company") arFormFields0(4) = "Email" arFormDBFields0(4) = "Email" arFormValues0(4) = Request("Email") arFormFields0(5) = "Phone" arFormDBFields0(5) = "Phone" arFormValues0(5) = Request("Phone") arFormFields0(6) = "Name" arFormDBFields0(6) = "Name" arFormValues0(6) = Request("Name") arFormFields0(7) = "SendCompanyLiterature" arFormDBFields0(7) = "SendCompanyLiterature" arFormValues0(7) = Request("SendCompanyLiterature") arFormFields0(8) = "SendProductLiterature" arFormDBFields0(8) = "SendProductLiterature" arFormValues0(8) = Request("SendProductLiterature") arFormFields0(9) = "Address" arFormDBFields0(9) = "Address" arFormValues0(9) = Request("Address") 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:",_ "CTX100.htm",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> Strata Product 1

Strata Communications,         

Providing Telecommunication Solutions Since 1984

                                                                              TOSHIBA

Home
Up

                     
Strata CTX100

This is a great product for your small to medium size business.  This revolutionary "building block" design allows for you to start with your current needs and build as your business grows.  Strata CTX systems incorporate the latest technological advances into the friendliest user interface possible, improving your company's communications, efficiency, and productivity for years to come.

 

Key Benefits

bulletGrows with your expanding business
bulletUp to 112 Ports Available 
bulletLets you add options as you need them

 

Information Request Form

Select the items that apply, and then let us know how to contact you.

Send product literature
Send company literature
Have a salesperson contact me

Name
Title
Company
Address
E-mail
Phone

 
Strata Communications, Inc 2002  webmaster@stratacommunications.com