<%
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
strPath = Request.serverVariables("PATH_INFO")
strPath = replace(strPath,"syndicate.asp","link.asp")
strDomain = "http://" & Request.serverVariables("SERVER_NAME")
strMethod = Request.queryString("method")
intResults = Int(Request.queryString("results"))
if intResults < 1 or intResults = "" then
	intResults = 1
end if
if strMethod = "" then
	strMethod = "last_post"
end if

select case strMethod
	case "last_post"
		strSql = "SELECT TOP " & intResults & " T_AUTHOR,T_LAST_POST,T_LAST_POSTER,T_DATE,T_SUBJECT,TOPIC_ID," & strTablePrefix & "TOPICS.FORUM_ID," & strTablePrefix & "TOPICS.CAT_ID,T_REPLIES from " & strTablePrefix & "TOPICS," & strTablePrefix & "FORUM where " & strTablePrefix & "TOPICS.FORUM_ID=" & strTablePrefix & "FORUM.FORUM_ID "
		if request.queryString("p")<>"y" then
			strSql = strSql & "and " & strTablePrefix & "FORUM.F_PRIVATEFORUMS=0 "
		end if
		strSql = strSql & "order by " & strTablePrefix & "TOPICS.T_LAST_POST DESC"
	case "most_popular"
		intAge = Int(Request.queryString("age"))
		if intAge < 1 or intAge = "" then
			intAge = 1
		end if
		intAge = 0 - intAge
		lastDate = DateToStr(DateAdd("d",intAge,Now()))
		strSql = "SELECT TOP " & intResults &_
		" T_AUTHOR,T_LAST_POST,T_LAST_POSTER,T_DATE,T_SUBJECT,TOPIC_ID," &_
		strTablePrefix & "TOPICS.FORUM_ID," & strTablePrefix &_
		"TOPICS.CAT_ID,T_REPLIES from " & strTablePrefix & "TOPICS," &_
		strTablePrefix & "FORUM and where " & strTablePrefix & "TOPICS.FORUM_ID=" &_
		strTablePrefix & "FORUM.FORUM_ID "
		if request.queryString("p")<>"y" then
			strSql = strSql & "and " & strTablePrefix & "FORUM.F_PRIVATEFORUMS=0 "
		end if
		strSql = strSql & "and T_LAST_POST > '" & lastDate & "' order by T_REPLIES DESC"
end select
set objRs = my_Conn.execute(strSql)
select case Request.QueryString("xml")
	case "xml"
		xml = ""
		xml = "<?xml version=""1.0"" encoding=""ISO-8859-1"" ?><links>"
		do until objRs.eof
			intID=objRs("TOPIC_ID")
			strSubject=objRs("T_SUBJECT")
			xml = xml & "<item>"
			xml = xml & "<title>" & strSubject & "</title>"
			xml = xml & "<link>" & strDomain & strPath & "?TOPIC_ID=" & intID & "</link>"
			xml = xml & "<responses>" & objRs("T_REPLIES") & "</responses>"
			xml = xml & "</item>"
			objRs.movenext
		loop
		xml = xml & "</links>"
		response.clear
		response.expires = 0
		response.contentType = "text/xml"
		response.write xml
	case "rdf"
		xml = ""
		xml = "<?xml version=""1.0"" encoding=""ISO-8859-1"" ?><rdf:RDF xmlns:rdf=""http://www.w3.org/1999/02/22-rdf-syntax-ns#"" xmlns=""http://my.netscape.com/rdf/simple/0.9/"">"
		do until objRs.eof
			intID=objRs("TOPIC_ID")
			strSubject=objRs("T_SUBJECT")
			xml = xml & "<item>"
			xml = xml & "<title>" & strSubject & "</title>"
			xml = xml & "<link>" & strDomain & strPath & "?TOPIC_ID=" & intID & "</link>"
			xml = xml & "<responses>" & objRs("T_REPLIES") & "</responses>"
			xml = xml & "</item>"
			objRs.movenext
		loop
		xml = xml & "</rdf:RDF>"
		response.clear
		response.expires = 0
		response.contentType = "text/xml"
		response.write xml
	case "sql"
		response.clear
		response.contentType = "text/html"
		response.write strSql
	case else
		strJs = ""
		if request.queryString("bullets") = "y" then
			strPreLink = "<li>"
			strPostLink = "</li>"
		else
			strPreLink = ""
			strPostLink = "<br />"
		end if
		if request.queryString("responses") = "y" then
			bResponses = true
		else
			bResponses = false
		end if
		do until objRs.eof
			intID=objRs("TOPIC_ID")
			strSubject=objRs("T_SUBJECT")
			intPage = 1
			if request.queryString("lp")="y" then
				intPage = objRs("T_REPLIES") \ strPageSize + 1
			end if
			strJs = strJs & strPreLink & "<a href=""" & strDomain & strPath & "?TOPIC_ID=" & intID & "&p=" & intPage & """ >" & strSubject & "</a>" 
			if bResponses = true then
				strJs = strJs & " (" & objRs("T_REPLIES") & ")"
			end if
			strJs = strJs & strPostLink
			objRs.movenext
		loop
		strJs = replace(strJs,"""","\""")
		strJs = replace(strJs,vbCrLf,"\n")
		response.clear
		response.expires = 0
		response.ContentType = "text/javascript"
		response.write "document.writeln(""" & strJs & """);"
		'response.write strJs
end select
set objRs = nothing
set my_Conn = nothing
%>