<% CONTENT = REQUEST.QUERYSTRING("CATEGORY") Dim ContentRs Dim ContentSql Dim HEADER1, HEADER2, WEBSITE, AUTHOR, THUMBNAIL1, THUMBNAIL2, THUMBNAIL3, 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 strText = "
Search our site:
  
Actor/Actress, TV, Movie, or Group:  
 
Search for Intervew by Featured Show: 
 
Full Interview List by Name | Full Interview List by Show




" end if Call GetRandom Sub GetArticle '***************************************************************** ' Get recordset and set paging information '***************************************************************** set ArticleRs = Server.CreateObject("ADODB.Recordset") ArticleSql = "SELECT FILENAME, URL FROM CONTENT WHERE PK_CONTENT = " & REQUEST.QUERYSTRING("ID") ArticleRs.Open ArticleSql, Conn, 1, 1 if ArticleRs.RecordCount <> 0 then FILENAME = ArticleRs("FILENAME") WEBSITE = ArticleRs("URL") Set ArticleRs = nothing end if '******************************************************************* 'Get Content from text file '******************************************************************* set fso= server.CreateObject ("scripting.filesystemobject") set file_load = fso.GetFile(Server.Mappath("content/" & FILENAME)) set filetext = file_load.OpenAsTextStream(1) Do While Not filetext.atendofstream strText = strText & filetext.ReadLine Loop filetext.Close '******************************************************************* End Sub %> Starry Constellation Magazine
<% IF LEN(WEBSITE) > 1 THEN response.write "website: " & WEBSITE & "" END IF%>
Featured <%=REPLACE(CONTENT, "_", " ")%>
<%=strText%>