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

List of interviews of: " & ContentRs("SUBJECT") & "


" response.write "
    " IF ContentRs.Recordcount = 1 AND ContentRs("TYPE") = "PODCAST" THEN response.redirect "podcast.asp?ID=" & ContentRs("PK_CONTENT") & "&CATEGORY=" & ContentRs("TYPE") ELSEIF ContentRs.Recordcount = 1 AND ContentRs("TYPE") = "INTERVIEWS" THEN response.redirect "content.asp?ID=" & ContentRs("PK_CONTENT") & "&CATEGORY=" & ContentRs("TYPE") END IF Function FormatMediumDate(DateValue) Dim strYYYY Dim strMM strYYYY = CStr(DatePart("yyyy", DateValue)) strMM = CStr(DatePart("m", DateValue)) If Len(strMM) = 1 Then strMM = "0" & strMM FormatMediumDate = strMM & "/" & strYYYY End Function i = 1 For RECORD = 1 To ContentRs.recordcount IF ContentRs("TYPE") = "PODCAST" THEN response.write "
  1. " response.write ContentRs("SUBJECT") & " - " & ContentRs("TYPE") & " - " & FormatMediumDate(ContentRs("DATE_WRITTEN")) & "
  2. " ContentRs.MoveNext If ContentRs.EOF Then Exit For Next response.write "
" Set ContentRs = nothing%>