<% 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 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, 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") THUMBNAIL1 = ArticleRs("THUMBNAIL1") THUMBNAIL2 = ArticleRs("THUMBNAIL2") THUMBNAIL3 = ArticleRs("THUMBNAIL3") 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 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 <%=REPLACE(CONTENT, "_", " ")%>
<%=strText%>