<%@LANGUAGE="VBSCRIPT"%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="admin"
MM_authFailedURL="error.asp"
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
MM_qsChar = "?"
If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
MM_referrer = Request.ServerVariables("URL")
if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim rs_Admin_Users
Dim rs_Admin_Users_numRows
Set rs_Admin_Users = Server.CreateObject("ADODB.Recordset")
rs_Admin_Users.ActiveConnection = MM_db_admin_users_STRING
rs_Admin_Users.Source = "SELECT * FROM Table_users ORDER BY FirstName ASC"
rs_Admin_Users.CursorType = 0
rs_Admin_Users.CursorLocation = 2
rs_Admin_Users.LockType = 1
rs_Admin_Users.Open()
rs_Admin_Users_numRows = 0
%>
<%
Dim rs_Distributors__MMColParam
rs_Distributors__MMColParam = "1"
If (Request.QueryString("Territory") <> "") Then
rs_Distributors__MMColParam = Request.QueryString("Territory")
End If
%>
<%
Dim rs_Distributors
Dim rs_Distributors_numRows
Set rs_Distributors = Server.CreateObject("ADODB.Recordset")
rs_Distributors.ActiveConnection = MM_distributors_STRING
rs_Distributors.Source = "SELECT * FROM Table_Distr WHERE Territory = '" + Replace(rs_Distributors__MMColParam, "'", "''") + "' ORDER BY Company ASC"
rs_Distributors.CursorType = 0
rs_Distributors.CursorLocation = 2
rs_Distributors.LockType = 1
rs_Distributors.Open()
rs_Distributors_numRows = 0
%>
<%
Dim rs_DistrZipRanges
Dim rs_DistrZipRanges_numRows
Set rs_DistrZipRanges = Server.CreateObject("ADODB.Recordset")
rs_DistrZipRanges.ActiveConnection = MM_distributors_STRING
rs_DistrZipRanges.Source = "SELECT * FROM Table_Zips"
rs_DistrZipRanges.CursorType = 0
rs_DistrZipRanges.CursorLocation = 2
rs_DistrZipRanges.LockType = 1
rs_DistrZipRanges.Open()
rs_DistrZipRanges_numRows = 0
%>
Abex -Distributors (find-a-showroom)
