<%
'-----------------------------------------------------------------
'--Page info
'-----------------------------------------------------------------
PAGE_NAME = "Program"
PAGE_NAME_S = "Programs"
Set DB = New clsDatabase
DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD
strQuery = "SELECT library_categories.id, library_categories.name, library_programs.id, library_programs.name, library_programs.large_image FROM library_categories, library_programs WHERE library_categories.id = library_programs.category_id ORDER BY library_categories.id, library_categories.name, library_programs.id, library_programs.name"
'------------------------------------
'--select records
'------------------------------------
numOfRecords = DB.RunQuery(strQuery) - 1
If numOfRecords > -1 Then retRecords = DB.GetLastResults()
Set DB = Nothing
%>
Managing <%=PAGE_NAME_S%>
<%
If numOfRecords < 0 Then
Response.Write "
" & _
"
" & _
"
None at the moment!
" & _
"
"
orderButtonState = " disabled"
Else
If numOfRecords < 1 Then orderButtonState = " disabled"
strLastCategory = ""
For x=0 To numOfRecords
Response.Write "
"
If strLastCategory <> retRecords(0,x) Then
strLastCategory = retRecords(0,x)
Response.Write "
" & retRecords(1,x) & "
"
Response.Write "
"
End If
If x MOD 2 = 0 Then
trClass = "NormalRow"
Else
trClass = "AlternatRow"
End If
Response.Write "