<%Call GetRandom%> Starry Constellation Magazine
  join our mailing list
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%>