 
 |
|
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 "- "
response.write ContentRs("SUBJECT") & " - " & ContentRs("TYPE") & " - " & FormatMediumDate(ContentRs("DATE_WRITTEN")) & "
"
ContentRs.MoveNext
If ContentRs.EOF Then Exit For
Next
response.write " |
|
|
| | |
