<%@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 Networks | Services

Every company needs a logo - it’s your identifying mark that people remember you by. We can help you come up with the initial design and then we will design the final copy for you. Your logo can be used for web, print, multimedia, and more. The possibilities are endless!

To view a few of the logos we have created, go to our portfolio.

Interested? Request a free QUOTE.



Privacy Policy | Login
©1998-2007 Dark Horse Networks

 

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