Complete Show & Movie Listing:
<%
set ContentRs = Server.CreateObject("ADODB.Recordset")
ContentSql = "SELECT DISTINCT SHOW FROM CONTENT WHERE SHOW IS NOT NULL AND (TYPE = 'INTERVIEWS' OR TYPE = 'PODCAST') ORDER BY SHOW ASC"
ContentRs.Open ContentSql, Conn, 1, 1
Dim split
RecordCount = ContentRs.recordcount
split = Cint(RecordCount / 2)
Private Function EscapeApostrophe(ByVal toEscape)
EscapeApostrophe = replace(toEscape, "'", "''")
End Function
i = 1
For RECORD = 1 To ContentRs.recordcount
response.write "" & ContentRs("SHOW") & "
"
ContentRs.MoveNext
If ContentRs.EOF Then Exit For
If RECORD = split Then response.write " | "
Next
response.write " |
"
response.write "
Total Number Listed: " & RecordCount & " "
Set ContentRs = nothing%>
|
