<%@LANGUAGE="VBSCRIPT"%>
[an error occurred while processing this directive]
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="memberlogin.asp"
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 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 rsMemberAudio__MMColParam
rsMemberAudio__MMColParam = "0"
If (Application("DomainID") <> "") Then
rsMemberAudio__MMColParam = Application("DomainID")
End If
%>
<%
Dim rsMemberAudio
Dim rsMemberAudio_numRows
Set rsMemberAudio = Server.CreateObject("ADODB.Recordset")
rsMemberAudio.ActiveConnection = MM_awsprofiles_STRING
rsMemberAudio.Source = "SELECT * FROM aws_member_downloads WHERE DomainID = " + Replace(rsMemberAudio__MMColParam, "'", "''") + " AND MemberFileType = 'A' ORDER BY LastUpdate ASC"
rsMemberAudio.CursorType = 0
rsMemberAudio.CursorLocation = 2
rsMemberAudio.LockType = 1
rsMemberAudio.Open()
rsMemberAudio_numRows = 0
%>
<%
Dim rsMemberGraphics__MMColParam
rsMemberGraphics__MMColParam = "0"
If (Application("DomainID") <> "") Then
rsMemberGraphics__MMColParam = Application("DomainID")
End If
%>
<%
Dim rsMemberGraphics
Dim rsMemberGraphics_numRows
Set rsMemberGraphics = Server.CreateObject("ADODB.Recordset")
rsMemberGraphics.ActiveConnection = MM_awsprofiles_STRING
rsMemberGraphics.Source = "SELECT * FROM aws_member_downloads WHERE DomainID = " + Replace(rsMemberGraphics__MMColParam, "'", "''") + " AND MemberFileType = 'G' ORDER BY LastUpdate ASC"
rsMemberGraphics.CursorType = 0
rsMemberGraphics.CursorLocation = 2
rsMemberGraphics.LockType = 1
rsMemberGraphics.Open()
rsMemberGraphics_numRows = 0
%>
<%
Dim rsMemberVideos__MMColParam
rsMemberVideos__MMColParam = "0"
If (Application("DomainID") <> "") Then
rsMemberVideos__MMColParam = Application("DomainID")
End If
%>
<%
Dim rsMemberVideos
Dim rsMemberVideos_numRows
Set rsMemberVideos = Server.CreateObject("ADODB.Recordset")
rsMemberVideos.ActiveConnection = MM_awsprofiles_STRING
rsMemberVideos.Source = "SELECT * FROM aws_member_downloads WHERE DomainID = " + Replace(rsMemberVideos__MMColParam, "'", "''") + " AND MemberFileType = 'V' ORDER BY LastUpdate ASC"
rsMemberVideos.CursorType = 0
rsMemberVideos.CursorLocation = 2
rsMemberVideos.LockType = 1
rsMemberVideos.Open()
rsMemberVideos_numRows = 0
%>
<%
Dim rsMemberGalleries__MMColParam
rsMemberGalleries__MMColParam = "0"
If (Application("DomainID") <> "") Then
rsMemberGalleries__MMColParam = Application("DomainID")
End If
%>
<%
Dim rsMemberGalleries
Dim rsMemberGalleries_numRows
Set rsMemberGalleries = Server.CreateObject("ADODB.Recordset")
rsMemberGalleries.ActiveConnection = MM_awsprofiles_STRING
rsMemberGalleries.Source = "SELECT * FROM aws_gallery WHERE DomainID = " + Replace(rsMemberGalleries__MMColParam, "'", "''") + " AND GalleryMember <> 0"
rsMemberGalleries.CursorType = 0
rsMemberGalleries.CursorLocation = 2
rsMemberGalleries.LockType = 1
rsMemberGalleries.Open()
rsMemberGalleries_numRows = 0
%>
<%
Dim rsArticles__MMColParam
rsArticles__MMColParam = "1"
If (Application("DomainID") <> "") Then
rsArticles__MMColParam = Application("DomainID")
End If
%>
<%
Dim rsArticles
Dim rsArticles_numRows
Set rsArticles = Server.CreateObject("ADODB.Recordset")
rsArticles.ActiveConnection = MM_awsprofiles_STRING
rsArticles.Source = "SELECT * FROM ttmprofiles.aws_articles WHERE DomainID = " + Replace(rsArticles__MMColParam, "'", "''") + " AND Hidden = 0"
rsArticles.CursorType = 0
rsArticles.CursorLocation = 2
rsArticles.LockType = 1
rsArticles.Open()
rsArticles_numRows = 0
%>
<%
Dim rsConfig__MMColParam
rsConfig__MMColParam = "1"
If (Application("DomainID") <> "") Then
rsConfig__MMColParam = Application("DomainID")
End If
%>
<%
Dim rsConfig
Dim rsConfig_numRows
Set rsConfig = Server.CreateObject("ADODB.Recordset")
rsConfig.ActiveConnection = MM_awsprofiles_STRING
rsConfig.Source = "SELECT * FROM ttmprofiles.aws_config WHERE DomainID = " + Replace(rsConfig__MMColParam, "'", "''") + ""
rsConfig.CursorType = 0
rsConfig.CursorLocation = 2
rsConfig.LockType = 1
rsConfig.Open()
rsConfig_numRows = 0
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsMemberAudio_total
Dim rsMemberAudio_first
Dim rsMemberAudio_last
' set the record count
rsMemberAudio_total = rsMemberAudio.RecordCount
' set the number of rows displayed on this page
If (rsMemberAudio_numRows < 0) Then
rsMemberAudio_numRows = rsMemberAudio_total
Elseif (rsMemberAudio_numRows = 0) Then
rsMemberAudio_numRows = 1
End If
' set the first and last displayed record
rsMemberAudio_first = 1
rsMemberAudio_last = rsMemberAudio_first + rsMemberAudio_numRows - 1
' if we have the correct record count, check the other stats
If (rsMemberAudio_total <> -1) Then
If (rsMemberAudio_first > rsMemberAudio_total) Then
rsMemberAudio_first = rsMemberAudio_total
End If
If (rsMemberAudio_last > rsMemberAudio_total) Then
rsMemberAudio_last = rsMemberAudio_total
End If
If (rsMemberAudio_numRows > rsMemberAudio_total) Then
rsMemberAudio_numRows = rsMemberAudio_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsMemberGraphics_total
Dim rsMemberGraphics_first
Dim rsMemberGraphics_last
' set the record count
rsMemberGraphics_total = rsMemberGraphics.RecordCount
' set the number of rows displayed on this page
If (rsMemberGraphics_numRows < 0) Then
rsMemberGraphics_numRows = rsMemberGraphics_total
Elseif (rsMemberGraphics_numRows = 0) Then
rsMemberGraphics_numRows = 1
End If
' set the first and last displayed record
rsMemberGraphics_first = 1
rsMemberGraphics_last = rsMemberGraphics_first + rsMemberGraphics_numRows - 1
' if we have the correct record count, check the other stats
If (rsMemberGraphics_total <> -1) Then
If (rsMemberGraphics_first > rsMemberGraphics_total) Then
rsMemberGraphics_first = rsMemberGraphics_total
End If
If (rsMemberGraphics_last > rsMemberGraphics_total) Then
rsMemberGraphics_last = rsMemberGraphics_total
End If
If (rsMemberGraphics_numRows > rsMemberGraphics_total) Then
rsMemberGraphics_numRows = rsMemberGraphics_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsMemberVideos_total
Dim rsMemberVideos_first
Dim rsMemberVideos_last
' set the record count
rsMemberVideos_total = rsMemberVideos.RecordCount
' set the number of rows displayed on this page
If (rsMemberVideos_numRows < 0) Then
rsMemberVideos_numRows = rsMemberVideos_total
Elseif (rsMemberVideos_numRows = 0) Then
rsMemberVideos_numRows = 1
End If
' set the first and last displayed record
rsMemberVideos_first = 1
rsMemberVideos_last = rsMemberVideos_first + rsMemberVideos_numRows - 1
' if we have the correct record count, check the other stats
If (rsMemberVideos_total <> -1) Then
If (rsMemberVideos_first > rsMemberVideos_total) Then
rsMemberVideos_first = rsMemberVideos_total
End If
If (rsMemberVideos_last > rsMemberVideos_total) Then
rsMemberVideos_last = rsMemberVideos_total
End If
If (rsMemberVideos_numRows > rsMemberVideos_total) Then
rsMemberVideos_numRows = rsMemberVideos_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsArticles_total
Dim rsArticles_first
Dim rsArticles_last
' set the record count
rsArticles_total = rsArticles.RecordCount
' set the number of rows displayed on this page
If (rsArticles_numRows < 0) Then
rsArticles_numRows = rsArticles_total
Elseif (rsArticles_numRows = 0) Then
rsArticles_numRows = 1
End If
' set the first and last displayed record
rsArticles_first = 1
rsArticles_last = rsArticles_first + rsArticles_numRows - 1
' if we have the correct record count, check the other stats
If (rsArticles_total <> -1) Then
If (rsArticles_first > rsArticles_total) Then
rsArticles_first = rsArticles_total
End If
If (rsArticles_last > rsArticles_total) Then
rsArticles_last = rsArticles_total
End If
If (rsArticles_numRows > rsArticles_total) Then
rsArticles_numRows = rsArticles_total
End If
End If
%>
<%
' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables
Dim rsMemberGalleries_total
Dim rsMemberGalleries_first
Dim rsMemberGalleries_last
' set the record count
rsMemberGalleries_total = rsMemberGalleries.RecordCount
' set the number of rows displayed on this page
If (rsMemberGalleries_numRows < 0) Then
rsMemberGalleries_numRows = rsMemberGalleries_total
Elseif (rsMemberGalleries_numRows = 0) Then
rsMemberGalleries_numRows = 1
End If
' set the first and last displayed record
rsMemberGalleries_first = 1
rsMemberGalleries_last = rsMemberGalleries_first + rsMemberGalleries_numRows - 1
' if we have the correct record count, check the other stats
If (rsMemberGalleries_total <> -1) Then
If (rsMemberGalleries_first > rsMemberGalleries_total) Then
rsMemberGalleries_first = rsMemberGalleries_total
End If
If (rsMemberGalleries_last > rsMemberGalleries_total) Then
rsMemberGalleries_last = rsMemberGalleries_total
End If
If (rsMemberGalleries_numRows > rsMemberGalleries_total) Then
rsMemberGalleries_numRows = rsMemberGalleries_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsMemberAudio_total = -1) Then
' count the total records by iterating through the recordset
rsMemberAudio_total=0
While (Not rsMemberAudio.EOF)
rsMemberAudio_total = rsMemberAudio_total + 1
rsMemberAudio.MoveNext
Wend
' reset the cursor to the beginning
If (rsMemberAudio.CursorType > 0) Then
rsMemberAudio.MoveFirst
Else
rsMemberAudio.Requery
End If
' set the number of rows displayed on this page
If (rsMemberAudio_numRows < 0 Or rsMemberAudio_numRows > rsMemberAudio_total) Then
rsMemberAudio_numRows = rsMemberAudio_total
End If
' set the first and last displayed record
rsMemberAudio_first = 1
rsMemberAudio_last = rsMemberAudio_first + rsMemberAudio_numRows - 1
If (rsMemberAudio_first > rsMemberAudio_total) Then
rsMemberAudio_first = rsMemberAudio_total
End If
If (rsMemberAudio_last > rsMemberAudio_total) Then
rsMemberAudio_last = rsMemberAudio_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsMemberGraphics_total = -1) Then
' count the total records by iterating through the recordset
rsMemberGraphics_total=0
While (Not rsMemberGraphics.EOF)
rsMemberGraphics_total = rsMemberGraphics_total + 1
rsMemberGraphics.MoveNext
Wend
' reset the cursor to the beginning
If (rsMemberGraphics.CursorType > 0) Then
rsMemberGraphics.MoveFirst
Else
rsMemberGraphics.Requery
End If
' set the number of rows displayed on this page
If (rsMemberGraphics_numRows < 0 Or rsMemberGraphics_numRows > rsMemberGraphics_total) Then
rsMemberGraphics_numRows = rsMemberGraphics_total
End If
' set the first and last displayed record
rsMemberGraphics_first = 1
rsMemberGraphics_last = rsMemberGraphics_first + rsMemberGraphics_numRows - 1
If (rsMemberGraphics_first > rsMemberGraphics_total) Then
rsMemberGraphics_first = rsMemberGraphics_total
End If
If (rsMemberGraphics_last > rsMemberGraphics_total) Then
rsMemberGraphics_last = rsMemberGraphics_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsMemberVideos_total = -1) Then
' count the total records by iterating through the recordset
rsMemberVideos_total=0
While (Not rsMemberVideos.EOF)
rsMemberVideos_total = rsMemberVideos_total + 1
rsMemberVideos.MoveNext
Wend
' reset the cursor to the beginning
If (rsMemberVideos.CursorType > 0) Then
rsMemberVideos.MoveFirst
Else
rsMemberVideos.Requery
End If
' set the number of rows displayed on this page
If (rsMemberVideos_numRows < 0 Or rsMemberVideos_numRows > rsMemberVideos_total) Then
rsMemberVideos_numRows = rsMemberVideos_total
End If
' set the first and last displayed record
rsMemberVideos_first = 1
rsMemberVideos_last = rsMemberVideos_first + rsMemberVideos_numRows - 1
If (rsMemberVideos_first > rsMemberVideos_total) Then
rsMemberVideos_first = rsMemberVideos_total
End If
If (rsMemberVideos_last > rsMemberVideos_total) Then
rsMemberVideos_last = rsMemberVideos_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsArticles_total = -1) Then
' count the total records by iterating through the recordset
rsArticles_total=0
While (Not rsArticles.EOF)
rsArticles_total = rsArticles_total + 1
rsArticles.MoveNext
Wend
' reset the cursor to the beginning
If (rsArticles.CursorType > 0) Then
rsArticles.MoveFirst
Else
rsArticles.Requery
End If
' set the number of rows displayed on this page
If (rsArticles_numRows < 0 Or rsArticles_numRows > rsArticles_total) Then
rsArticles_numRows = rsArticles_total
End If
' set the first and last displayed record
rsArticles_first = 1
rsArticles_last = rsArticles_first + rsArticles_numRows - 1
If (rsArticles_first > rsArticles_total) Then
rsArticles_first = rsArticles_total
End If
If (rsArticles_last > rsArticles_total) Then
rsArticles_last = rsArticles_total
End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them
If (rsMemberGalleries_total = -1) Then
' count the total records by iterating through the recordset
rsMemberGalleries_total=0
While (Not rsMemberGalleries.EOF)
rsMemberGalleries_total = rsMemberGalleries_total + 1
rsMemberGalleries.MoveNext
Wend
' reset the cursor to the beginning
If (rsMemberGalleries.CursorType > 0) Then
rsMemberGalleries.MoveFirst
Else
rsMemberGalleries.Requery
End If
' set the number of rows displayed on this page
If (rsMemberGalleries_numRows < 0 Or rsMemberGalleries_numRows > rsMemberGalleries_total) Then
rsMemberGalleries_numRows = rsMemberGalleries_total
End If
' set the first and last displayed record
rsMemberGalleries_first = 1
rsMemberGalleries_last = rsMemberGalleries_first + rsMemberGalleries_numRows - 1
If (rsMemberGalleries_first > rsMemberGalleries_total) Then
rsMemberGalleries_first = rsMemberGalleries_total
End If
If (rsMemberGalleries_last > rsMemberGalleries_total) Then
rsMemberGalleries_last = rsMemberGalleries_total
End If
End If
%>
James Roy | Members
