<%@ Language=VBScript %> <%option explicit%> <%Response.Buffer=true%> <% dim iClientID dim strCompanyName dim strLogin dim strPassword dim strPasswordConfirm dim strContactFN dim strContactLN dim strPhone dim strFax dim strEmail dim strActive dim strUserType dim strAction dim connFWS dim rsClient dim strSQL strAction=Request.QueryString("Action") strUserType=Request.QueryString("UserType") if strAction="" then strAction=Request.Form("hdnAction") strUserType=Request.QueryString("UserType") end if if strAction="Update" then set connFWS=server.CreateObject("adodb.connection") connFWS.Provider = "microsoft.jet.oledb.4.0" connFWS.Properties("Data Source")=server.MapPath ("data\FWS.mdb") connFWS.Open iClientID=Request.QueryString("ClientID") set rsClient=server.CreateObject("adodb.recordset") strSQL="qryListClient " & iClientID 'strSQL=strSQL & "'" & strCompanyName & "'" & "," 'strSQL=strSQL & "'" & strPassword & "'" & "," 'strSQL=strSQL & "'" & strContactFN & "'" & "," 'strSQL=strSQL & "'" & strContactLN & "'" & "," 'strSQL=strSQL & "'" & strPhone & "'" & "," 'strSQL=strSQL & "'" & strFax & "'" & "," 'strSQL=strSQL & "'" & strEmail & "'" "," 'strSQL=strSQL & strActive set rsClient=connFWS.Execute(strSQL) strCompanyName=rsClient.fields("company") strPassword=rsClient.fields("password") strPasswordConfirm=strPassword strLogin=rsClient.Fields("login") strContactFN=rsClient.fields("pcfirstname") strContactLN=rsClient.fields("pclastname") strPhone=rsClient.fields("phone") strFax=rsClient.fields("fax") strEmail=rsClient.fields("email") strActive=rsClient.fields("active") 'Response.Write("strActive: ") 'Response.Write(strActive) else if strAction="Add" then strCompanyName="" strPassword="" strPasswordConfirm="" strContactFN="" strContactLN="" strPhone="" strFax="" strEmail="" strActive="" end if end if %> Firewall Servers
Firewall Servers Turnkey Network Appliances
Contact Us                                            
Home Products Products Employment Links Site Map

 


What are
Firewall Appliances?

Network Security
Appliance Applications

Content Filtering

Virtual Private
Network Applications

  

 

 


Firewall Servers Customer Registration.

Firewall Servers allows you the opportunity to participate in the world of Network Security with world-class products and services.  Firewall Servers provides you with the next generation of security products and services.  Firewall Servers will stride to provide you with the latest information in the world of firewall products and network appliances. Please sign up below to become a Firewall Servers' customer.

<%if strUserType="Admin" then%> <%if strActive=true then%> <%else if strActive=false then%> <% end if end if%> <%end if%>
Company name:
Desired login name:
Desired password:
Confirm password:
Contact's first name:
Contact's last name:
Phone:
Fax:
E-mail:
Active:
<%if strAction="Update" then%> <%else if strAction="Add" then%> <%end if%> <%end if%>


[Home | Products | Limited Warranty | FAQ | Employment | Links | Site Map | Contact Us]
[What are Firewall Software & Appliances? ]
[Network Security Software & Appliances | Content Filtering]
Firewall Servers
P.O. Box 500
Barker, Texas 77413   Phone: 281.647.6484
E-mail: info@firewall-servers.com | sales@firewall-servers.com
partners@firewall-servers.com | techsupport@firewall-servers.com
support@firewall-servers.com

Terms of Use. Copyright © 2001-2009 Firewall-Servers.com  All rights reserved.

                                                                                                  iSentry, iSentryII, iSentryIII, iSOHO and Engima Firewall are trademarks of Firewall Servers
                                                                                           

            All other trademarks and copyright notices belong to their respective owners.