<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Spd E-Letter v4
' © 2001, 2002 PensaWorks, inc.
' For help with this program, please visit http://www.pensaworks.com
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
on error goto 0
dim NoAccessPage : NoAccessPage = "noaccess.asp"
dim svUsername : svUsername = session("svUsername")
if (svUsername = "") then response.redirect NoAccessPage
dim rsAccess : set rsAccess = mlConn.Execute("SELECT UserID, ViewNum, Navigation, showTips, Username, MyPassword, Usr, Admin, Broadcast, Prefs, Master, RealName, RealEmail, allowedLists FROM ML_Users WHERE UserName = '" & svUsername & "'")
	if (rsAccess.EOF) then response.redirect "noaccess.asp"
		User = rsAccess("Usr")
		Broadcast = rsAccess("Broadcast")
		Admin = rsAccess("Admin")
		Prefs = rsAccess("Prefs")
		Master = rsAccess("Master")
		if (rsAccess("Navigation") <> "") then Navigation = rsAccess("Navigation") else Navigation = 1
		if (rsAccess("ViewNum") <> "") then ViewNumSub = rsAccess("ViewNum") else ViewNumSub = 25
		PersonalEmail = rsAccess("RealEmail")
		PersonalName = rsAccess("RealName")
		PersonalPassword = rsAccess("Mypassword")
		allowedLists = rsAccess("allowedLists")
		showTips = rsAccess("showTips")
	set rsAccess = nothing

if Access = "User" then
	if (User <> "Y") then response.redirect NoAccessPage	
elseif Access = "Broadcast" then
	if (Broadcast <> "Y") then response.redirect NoAccessPage
elseif Access = "Admin" then
	if (Admin <> "Y") then response.redirect NoAccessPage
elseif Access = "Prefs" then
	if (Prefs <> "Y") then response.redirect NoAccessPage
elseif Access = "Master" then
	if (Master <> "Y") then	response.redirect NoAccessPage	
else
' do nothing
end if
%>