<%Call GetRandom%> Starry Constellation Magazine
  join our mailing list
<% set ContentRs = Server.CreateObject("ADODB.Recordset") ContentSql = "SELECT PK_CONTENT, SUBJECT, SHOW, TYPE FROM CONTENT WHERE SHOW = '" & (REQUEST.QUERYSTRING("ITEM")) & "' ORDER BY SUBJECT ASC" ContentRs.Open ContentSql, Conn, 1, 1 RecordCount = ContentRs.recordcount response.write "

List of interviews for: " & ContentRs("SHOW") & "

" response.write " " set fso = server.CreateObject ("scripting.filesystemobject") if fso.fileExists (server.mappath("showimg/" & ContentRs("SHOW") & ".jpg")) then response.write "" END if i = 1 For RECORD = 1 To ContentRs.recordcount IF ContentRs("TYPE") = "PODCAST" THEN response.write "

" response.write ContentRs("SUBJECT") & "

" ContentRs.MoveNext If ContentRs.EOF Then Exit For Next response.write "
" Set ContentRs = nothing%>