<%@ Language=VBScript %>
<%
' ///////////////////////////////////////////////////////
' // Dimac CMS
' // Copyright 2004-2008 Dimac Development AB, Sweden
' // www.Dimac.net
' //
' // NOTE:
' // You are not allowed to remove this
' // Copyright information without written
' // permission from Dimac Development.
' ///////////////////////////////////////////////////////
If NOT CBool(Session("ValidAdminUser")) Then
Response.Redirect("../LIO/loggin.asp")
End IF
' -------------------------------------------------------
' -- Global variables
' -------------------------------------------------------
Dim Conn, Rs, SQL
' -------------------------------------------------------
Function getUserType( x )
IF x = 1 THEN
getUserType = "User"
End IF
IF x = 3 THEN
getUserType = "Editor"
End IF
IF x = 5 THEN
getUserType = "Admin"
End IF
End Function
' -------------------------------------------------------
Set Conn = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open GetConStr ("..\..\SiteResources\Data\")
SQL = "SELECT * FROM Users "
SQL = SQL & " WHERE isPublisher=1 "
SQL = SQL & " ORDER BY LastName, FirstName "
Rs.Open SQL, Conn
' -------------------------------------------------------
' -------------------------------------------------------
%>