<!--#INCLUDE FILE="../../forum/config.asp"-->
<!--#INCLUDE FILE="../../forum/inc_func_common.asp"-->
<%
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString

intResults = 10 '#of results to show
intAge = 30 'age in days of topics to look through
lastDate = DateToStr(DateAdd("d",-(intAge),Now())) 'leave this alone
strMethod = "last_post"
subjectlength = 122 'length in characters of the subject line
subjectlengthe = 60 'length in characters of the description line
intPage = 1 'leave alone


strSql = "SELECT F.F_SUBJECT, T.TOPIC_ID, T.T_AUTHOR, T.T_SUBJECT, T.T_MESSAGE"
strSql = strSql & ", T.T_LAST_POST, T.T_LAST_POST_REPLY_ID, T.T_REPLIES, T.T_DATE, M.M_NAME"
strSql = strSql & ", MEMBERS_1.M_NAME AS LAST_POST_AUTHOR_NAME"
strSql = strSql & " FROM ((" & strTablePrefix & "FORUM F LEFT JOIN " & strTablePrefix & "TOPICS T"
strSql = strSql & " ON F.FORUM_ID = T.FORUM_ID) LEFT JOIN " & strMemberTablePrefix & "MEMBERS M"
strSql = strSql & " ON T.T_AUTHOR = M.MEMBER_ID) LEFT JOIN " & strMemberTablePrefix & "MEMBERS MEMBERS_1"
strSql = strSql & " ON T.T_LAST_POST_AUTHOR = MEMBERS_1.MEMBER_ID"
strSql = strSql & " WHERE T.T_STATUS < 2 ORDER BY T.T_LAST_POST DESC"



'-----------------------------------------end the getting of the data------------------


Set getForumRecentPostsFSO = Server.CreateObject("Scripting.FileSystemObject")
getForumRecentPostsFSO.DeleteFile "E:\path\path\path\path\path\dev\bfadmin\write\inc_forumrecentposts.asp" 'delete old one
Set getForumRecentPostsFile = getForumRecentPostsFSO.CreateTextFile("E:\path\path\path\path\path\dev\bfadmin\write\inc_forumrecentposts.asp", True) 'create new one
getForumRecentPostsFile.WriteLine("<ul class=""ulnav"">")


set objRs = my_Conn.execute(TopSQL(strSql,intResults))

do until objRs.eof

 intID = objRs("TOPIC_ID")
 strSubject = ChkString(objRs("T_SUBJECT"),"display")

 if Len(strSubject) > (subjectlength - 1) then
  strSubject = mid(strSubject,1,subjectlength) & "..."
 end if
 
 strTopicPart = ChkString(objRs("T_MESSAGE"),"display")
 strFSubject = ChkString(objRs("F_SUBJECT"),"display")


 strTopicPart = replace(strTopicPart, "<b>", "<b>") 'replace <b> open
 strTopicPart = replace(strTopicPart, "</b>", "</b>") 'replace </b> close
 strTopicPart = replace(strTopicPart, "<u>", "<u>") 'replace <u> open
 strTopicPart = replace(strTopicPart, "</u>", "</u>") 'replace </u> close
 strTopicPart = replace(strTopicPart, "<i>", "<i>") 'replace <i> open
 strTopicPart = replace(strTopicPart, "</i>", "</i>") 'replace </i> close 
 strTopicPart = replace(strTopicPart, " ,     />     replace close of img tag br /  strTopicPart = replace strTopicPart,  " target="_blank"> ,  < a href=      replace url open br /  strTopicPart = replace strTopicPart,  [/url] ,  < /a>     replace close of /a tag br /  strTopicPart = replace strTopicPart,   ,     />     replace close of img tag br /  strTopicPart = replace strTopicPart,  ", """>") 'replace url end enclosure
 strTopicPart = replace(strTopicPart, "<font", "<font ") 'replace font tag and comment out
 strTopicPart = replace(strTopicPart, "</font", "</font>< ") 'replace font tag and comment out
 strTopicPart = replace(strTopicPart, "">", " "">") 'replace font tag and comment out
 strTopicPart = replace(strTopicPart, "<ul>", "<ul>") 'replace font tag and comment out
 strTopicPart = replace(strTopicPart, "</ul>", "</ul>") 'replace font tag and comment out
 strTopicPart = replace(strTopicPart, "<li>", "<li>") 'replace font tag and comment out
 strTopicPart = replace(strTopicPart, "</li>", "</li>") 'replace font tag and comment out

'bust out the rgex here, and get rid of all tags.

 strTopicPart = removeHTML(strTopicPart)

'end regex bust out.

 strTopicPart = replace(strTopicPart, """, """") 'replace ascii quote with straight quote.

 'pear down the length of the description now that code has been cleaned.
 if Len(strTopicPart) > (subjectlengthe - 1) then
  strTopicPart = mid(strTopicPart,1,subjectlengthe) & "..."
 end if 
 
getForumRecentPostsFile.WriteLine("<li>")
getForumRecentPostsFile.WriteLine("<a href=""http://www.site.com/forum/topic.asp?TOPIC_ID=" & intID & "&whichpage=" & intPage & """ title=""" & strSubject & """>" & strSubject & "</a> - " & strTopicPart  & "") 
getForumRecentPostsFile.WriteLine("</li>")
 
 objRs.MoveNext
loop
  
getForumRecentPostsFile.WriteLine("</ul>")
  
'this is the function that removes the html from the post 
Function RemoveHTML( strText )
 Dim RegEx

 Set RegEx = New RegExp

 RegEx.Pattern = "<[^>]*>"
 RegEx.Global = True

 RemoveHTML = RegEx.Replace(strText, "")
End Function  

objRs.close
set objRs = nothing
my_conn.close
set my_Conn = nothing
getForumRecentPostsFile.close
set getForumRecentPostsFSO = nothing
set getForumRecentPostsFile = nothing
%>