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

Have a web site but tired of paying a designer to type your data in for you? Automate it! Our automation service will allow you to make changes to your own site - without having any knowledge of HTML. The system will allow you to log in and make changes to various pages of your site. When you are finished and click save, your changes are made immediately. No waiting for the pages to be uploaded.

The Automation system utilizes your web browser as your editor. That way anyone, anywhere in your organization can post changes anytime.

A Few uses for Automation:

  • Calendar of Events
  • Monthly Newsletter
  • FAQ
  • Products Page
  • and more..


Interested? Request a free QUOTE.




Privacy Policy | Login
©1998-2007 Dark Horse Networks

 

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