<% '----------------------------------------------------------------- '--Page info '----------------------------------------------------------------- PAGE_NAME = "Episodes" '----------------------------------------------------------------- '--Page code '----------------------------------------------------------------- Dim numOfRecords VIDEO_ID = Request.QueryString("VIDEO_ID") Set DB = New clsDatabase DB.OpenDatabase DATABASE_NAME, "", "" '------------------------------------ '--get parent information '------------------------------------ numOfRecords = DB.RunQuery("SELECT name FROM tsv_videos WHERE id=" & VIDEO_ID) - 1 If numOfRecords > -1 Then ParentName = DB.GetField("name") Else Call myError("Invalid Video ID") End If '------------------------------------ '--select all records '------------------------------------ numOfRecords = DB.RunQuery("SELECT id, name FROM tsv_videos_episodes WHERE video_id=" & VIDEO_ID & " ORDER BY name ASC, id ASC") - 1 If numOfRecords > -1 Then retRecords = DB.GetLastResults() Set DB = Nothing %>

Managing <%=ParentName & "'s " & PAGE_NAME%>

<% 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 Response.Write "" & _ "" & _ "" & _ "

" & retRecords(1,x) & "

Edit Info | Delete

" Next End If %>