<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim User__MMColParam User__MMColParam = "1" If (Session("MM_UserID") <> "") Then User__MMColParam = Session("MM_UserID") End If %> <% Dim User Dim User_numRows Set User = Server.CreateObject("ADODB.Recordset") User.ActiveConnection = MM_darkhorsenet_STRING User.Source = "SELECT * FROM darkhorse_users WHERE UserID = " + Replace(User__MMColParam, "'", "''") + "" User.CursorType = 0 User.CursorLocation = 2 User.LockType = 1 User.Open() User_numRows = 0 %> Dark Horse Networks | design.develop.deploy
Dark Horse Networks
Company Services Get Started Support Contact Us
<% MM_authorizedUsers="" MM_grantAccess=false If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If MM_grantAccess Then ' *** Show If User Logged In %>
WELCOME, <%=(User.Fields.Item("Contact").Value)%>  
<% MM_authorizedUsers="administrator" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If MM_grantAccess Then ' *** Show If User Logged In %>Administration <% End If ' *** Show If User Logged In %><% MM_authorizedUsers="administrator" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then ' *** Show If User Not Logged In %>My Account <% End If ' *** Show If User Not Logged In %>Logout
<% End If ' *** Show If User Logged In %>
Login
 

Dark Horse Wireless | unwire your world


Thank you for taking the time to fill out our pre-signup form.

We will keep you updated with the progress of our new system.

Dark Horse Wireless

For more information on pricing and coverage area of our service, check out the
Dark Horse Wireless section.

 


 


Privacy Policy | Login
©1998-2007 Dark Horse Networks

 

 
<% User.Close() Set User = Nothing %>