<%@Language=VBScript%> <% articleID = Request.QueryString("id") statement = "SELECT article.fileName, article.title AS articleTitle, article.categoryID, category.title AS categoryTitle, category.subtitle " &_ "FROM article, category WHERE article.ID = " & articleID & " AND category.ID LIKE article.categoryID" dim RS set RS = Server.CreateObject("ADODB.Recordset") RS.Open statement, myConnection page_header "DUMMY", ucase(RS("articleTitle")) & " > ARTICLES" dim fso, file, line, filetxt Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile(Server.Mappath(".") & "\new_articles\" & RS("fileName"), 1) startDisplay = false function doSubtitle (subtitle) if len(RS("subtitle") & "") = 0 then doSubtitle = "" else doSubtitle = "

" & subtitle & "

" end if end function %>

<%=RS("categoryTitle")%> ARTICLES THAT WILL LEAVE YOU THINKING <%=doSubtitle(RS("subtitle"))%>

<% Do While file.AtEndOfStream <> True line = file.ReadLine if NOT instr(1, line, " 0 _ AND NOT instr(1, line, " 0 _ AND NOT instr(1, line, " 0 _ AND NOT instr(1, line, " 0 then if instr(1, line, "mp3") Or InStr(1, line, "MP3") then Set RE = New RegExp RE.pattern = "href=""" RE.ignorecase = true line = RE.replace(line, "href=""/new_articles/") Set Re = Nothing end if Response.Write(line) End if loop file.close RS.close Set file=Nothing Set fso=nothing set RS=nothing %>

TO SEND THIS ARTICLE TO A FRIEND CLICK HERE

COMMENTS? CLICK HERE

<% page_footer %>