<% '----------------------------------------------------------------- '--Page info '----------------------------------------------------------------- PAGE_NAME = "Broadcaster" PAGE_NAME_S = "Broadcasters" Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME , DATABASE_USERNAME , DATABASE_PASSWORD strQuery = "SELECT id, name, logo FROM library_broadcasters ORDER BY id, 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" For x=0 To numOfRecords Response.Write "" If x MOD 2 = 0 Then trClass = "NormalRow" Else trClass = "AlternatRow" End If If retRecords(2,x) <> "" Then img = BROADCASTER_IMAGE_PATH & retRecords(2,x) Else img = "/_cms/images/spacer.gif" End If Response.Write "" & _ "" & _ "" & _ "" Next Response.write "

" & retRecords(1,x) & "

" & _ "Edit Info | " & _ "Delete " & _ "

" End If %>