<% CONTENT = REQUEST.QUERYSTRING("CATEGORY") Dim ContentRs Dim ContentSql Dim HEADER1, HEADER2, WEBSITE, AUTHOR, THUMBNAIL1, THUMBNAIL2, THUMBNAIL3, RSSD, FILENAME, fso, file_load, filetext, strtext Dim PAGE, PAGE_SIZE, i, PAGE_COUNT on error resume next PAGE = Request("PAGE") if PAGE = "" then PAGE = 1 PAGE_SIZE = 10 If CINT(REQUEST.QUERYSTRING("ID")) > 0 then Call GetArticle Else Call GetRandom end if Sub GetArticle '***************************************************************** ' Get recordset and set paging information '***************************************************************** set ArticleRs = Server.CreateObject("ADODB.Recordset") ArticleSql = "SELECT HEADER1, HEADER2, URL, AUTHOR, IMAGE, THUMBNAIL1, THUMBNAIL2, THUMBNAIL3, RSSD, FILENAME FROM CONTENT WHERE PK_CONTENT = " & REQUEST.QUERYSTRING("ID") ArticleRs.Open ArticleSql, Conn, 1, 1 if ArticleRs.RecordCount <> 0 then HEADER1 = ArticleRs("HEADER1") HEADER2 = ArticleRs("HEADER2") WEBSITE = ArticleRs("URL") AUTHOR = ArticleRs("AUTHOR") IMAGE = "uploads/" & ArticleRs("IMAGE") FILENAME = ArticleRs("FILENAME") RSSD = ArticleRs("RSSD") THUMBNAIL1 = ArticleRs("THUMBNAIL1") THUMBNAIL2 = ArticleRs("THUMBNAIL2") THUMBNAIL3 = ArticleRs("THUMBNAIL3") Set ArticleRs = nothing end if End Sub %> Starry Constellation Magazine
<%IF CINT(REQUEST.QUERYSTRING("ID")) > 0 THEN%>

<%=HEADER1%>

<%=HEADER2%>
<%="by: " & AUTHOR%>

<%IF RIGHT(THUMBNAIL1, 1) = "f" or RIGHT(THUMBNAIL1, 1) = "g" THEN%><%END IF%> <%IF RIGHT(THUMBNAIL2, 1) = "f" or RIGHT(THUMBNAIL2, 1) = "g" THEN%><%END IF%> <%IF RIGHT(THUMBNAIL3, 1) = "f" or RIGHT(THUMBNAIL3, 1) = "g" THEN%><%END IF%> <%ELSE%>
<%END IF%>
<% IF LEN(WEBSITE) > 1 THEN response.write "website: " & WEBSITE & "" END IF%>
Featured Podcasts
<%If CINT(REQUEST.QUERYSTRING("ID")) > 0 then%>

Right Click and select "Save As.." to download the podcast,
then play on your computer or portable MP3 player.



MP3 Player

<%=FILENAME%>

<%=RSSD%>






  <%ELSE%>

Now you can listen to your favorite celebrity interview on your computer, or take it with you on the go with your mp3 player.

MP3 Player

Check out our featured Podcasts and enjoy!

  Compact Disk with Whole Note

Our podcasts are also available through Apple Itunes® for you to download. Click Here

  <%END IF%>