<%
'=============================================================
'//
'// Repeater
'//
'// version: 1.1
'// last modified: 09-May-2004 03:03 by Sasha Vukovic
'=============================================================
%>
<%
Class Repeater
'Private mobjAccessControl
Private mTableName
Private mRowId
Private mEnabled
Private mDisabled
Private mControlObject
Private mStartPosition
Private mTotalRecords
Private mLastRecord
Private mNavigator
Private MAX_ROWS
Private objRs
Private RS_NAME
Public Property Let TableName ( sTableName )
mTableName = sTableName
End Property
Public Property Let RowId ( sRowId )
mRowId = sRowId
End Property
Public Property Let Row ( sRow )
mEnabled = ConstructRow( sRow )
End Property
Public Property Let Enabled ( sEnabled )
mEnabled = sEnabled
End Property
Public Property Let Disabled ( sDisabled )
mDisabled = sDisabled
End Property
Public Property Let ControlObject ( sControlObject )
mControlObject = sControlObject
End Property
Public Property Let MaxRows ( nMaxRows )
MAX_ROWS = nMaxRows
End Property
Public Property Let RecordSet ( ByRef oRs )
Set objRs = oRs
Call InitialiseNavigator()
End Property
'-----------------------------------------------------------------------------------------------------------------
Public Sub Render ( ByRef oAccessControl )
'--- Exit if Control Object is not supplied ---
If IsNull(mControlObject) Then
Err.Raise 8, "Repeater requires Access Control object name before Render!", ""
Exit Sub
End If
' Access Control module supplied
If oAccessControl.IsDataVisible ( mTableName, mRowId, mControlObject ) Then
If oAccessControl.IsDataActive ( mTableName, mRowId, mControlObject ) Then
Response.write mEnabled
Else
Response.write mDisabled
End If
End If
End Sub
'-----------------------------------------------------------------------------------------------------------------
Public Sub RenderDataGrid ()
'--- Render rows ---
Do While (NOT objRs.BOF) AND (NOT objRs.EOF)
If objRs.RowPosition => (mStartPosition + MAX_ROWS) Then Exit Do ' Limit the number of rows displayed
Response.write Eval( mEnabled )
objRs.MoveNext
Loop
End Sub
'-----------------------------------------------------------------------------------------------------------------
Public Sub Navigator ( bResults, bNavigator )
'== Definition ==
Dim sResults, sNavigator
'-- Create Results String
sResults = ""
If bResults Then
If mTotalRecords > 0 Then
sResults = "Showing "& mStartPosition &" - "& mLastRecord &" of "& mTotalRecords
Else
sResults = "No Results."
End If
End If
'-- Create Navigator String
sNavigator = ""
If bNavigator Then
sNavigator = mNavigator
End If
'-- Display Navigator
Response.write _
""&_
" "&_
" | "& sResults &" | "&_
" "& sNavigator &" | "&_
"
"&_
"
"
End Sub
'-----------------------------------------------------------------------------------------------------------------\
Private Sub InitialiseNavigator ()
Dim pageNumber
'--- Get page number ---
pageNumber = 0
If Request("reppg") <> "" Then
pageNumber = CInt(Request("reppg"))
End If
'--- Set Cursor start position ---
mStartPosition = pageNumber * MAX_ROWS + 1
If (NOT objRs.BOF) AND (NOT objRs.EOF) Then
objRs.MoveTo ( mStartPosition ) ' Set starting cursor point
End If
'--- Construct mNavigator
mNavigator = ""
If (NOT objRs.BOF) AND (NOT objRs.EOF) Then
mTotalRecords = objRs.RecordCount ' Get total number of records
'--- Create "Previous" link
If pageNumber > 0 Then
mNavigator = mNavigator &"« Previous"
End If
'--- Create "Next" link
If ( mStartPosition + MAX_ROWS ) <= mTotalRecords Then
mNavigator = mNavigator &" Next »"
End If
End If
'--- Calculate Last Record ---
If mTotalRecords > 0 Then
mLastRecord = ( mStartPosition - 1 + MAX_ROWS ) _
+ ( CInt( ( mStartPosition - 1 + MAX_ROWS )/mTotalRecords > 1) ) * ( ( mStartPosition - 1 + MAX_ROWS ) - mTotalRecords )
End If
End Sub
'-----------------------------------------------------------------------------------------------------------------
Private Function ConstructRow ( sRow )
Dim tempSTR
tempSTR = sRow
tempSTR = Replace (tempSTR, "<#", " objRs(""" )
tempSTR = Replace (tempSTR, "#>", """) " )
ConstructRow = """"& tempSTR &""""
End Function
'-----------------------------------------------------------------------------------------------------------------
Private Sub Class_Initialize()
'// Perform action on creation of object. e.g. Set myObj = New ThisClassName
mControlObject = NULL
MAX_ROWS = 50 ' Max rows rendered
RS_NAME = "objRs" ' Variable Name of the record set in this class
End Sub
'-----------------------------------------------------------------------------------------------------------------
Private Sub Class_Terminate()
'// Perform action on object disposal. e.g. Set myObj = Nothing
Set objRs = Nothing ' Record set object
End Sub
'-----------------------------------------------------------------------------------------------------------------
End Class
%>