Complete Listing of Interviews by Name:
<%
set ContentRs = Server.CreateObject("ADODB.Recordset")
ContentSql = "SELECT DISTINCT SUBJECT FROM CONTENT WHERE (TYPE = 'INTERVIEWS' OR TYPE = 'PODCAST') ORDER BY SUBJECT ASC"
ContentRs.Open ContentSql, Conn, 1, 1
Dim split
RecordCount = ContentRs.recordcount
split = Cint(RecordCount / 2)
i = 1
For RECORD = 1 To ContentRs.recordcount
response.write "" & ContentRs ("SUBJECT") & "
"
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%>
|
