Function showRecentXML(intTop)
	if intTop = "" Then intTop = 5
	
	strConnString = "Your Conn String Here"

	set my_Conn = Server.CreateObject("ADODB.Connection")
	my_Conn.Open strConnString

	strSQL = "SELECT TOP " & intTop  _
					 &  "MEMBERS.M_NAME, "       _
					 &  "FORUM.FORUM_ID, "       _
					 &  "FORUM.F_SUBJECT, "      _
					 &  "TOPICS.TOPIC_ID, "      _
					 &  "TOPICS.T_SUBJECT, "     _
					 &  "TOPICS.T_AUTHOR, "      _
					 &  "TOPICS.T_REPLIES, "     _
					 &  "TOPICS.T_DATE, "        _
					 &  "TOPICS.T_MESSAGE "      _
	             & "FROM FORUM_TOPICS TOPICS, FORUM_FORUM FORUM, FORUM_MEMBERS MEMBERS "  _
	             & "WHERE FORUM.F_PRIVATEFORUMS = 0 AND " _
					 & "FORUM.FORUM_ID <> 1 AND " _
					 & "TOPICS.FORUM_ID = FORUM.FORUM_ID AND "    _
					 & "TOPICS.T_AUTHOR = MEMBERS.MEMBER_ID " _
				 & "ORDER BY TOPICS.t_date desc"
	set rsInfo = my_Conn.Execute (StrSql)


		strXML =  "<snitz>" & VbCrLf
	While NOT rsInfo.EOF
strXML = strXML & "  <topic>" & VbCrLf _ 
				& "    <topic_id>" & rsInfo("TOPIC_ID") & "</topic_id>"  & VbCrLf _
				& "    <topic_subject>" & rsInfo("t_subject") & "</topic_subject>" & VbCrLf _
				& "    <author_id>" & rsInfo("t_author") & "</author_id>"  & VbCrLf _
				& "    <author_name>" & rsInfo("M_name") & "</author_name>"  & VbCrLf _
				& "    <post_date>" & chkDate(rsInfo("T_Date"), , False) &  "</post_date>"  & VbCrLf _
				& "    <post_time>" & chkTime(rsInfo("T_Date"))& "</post_time>" & VbCrLf _
				& "    <topic_message>" & rsInfo("t_message") & "</topic_message>" & VbCrLf _
				& "    <num_replies>" & rsInfo("T_REPLIES") & "</num_replies>"  & VbCrLf _
				& "    <forum_id>" & rsInfo("FORUM_ID") & "</forum_id>"  & VbCrLf _
				& "    <forum_subject>" & rsInfo("F_SUBJECT") & "</forum_subject>" & VbCrLf _
				& "  </topic>" & VbCrLf 
		rsInfo.MoveNext
	Wend
strXML = strXML & "</snitz>" & VbCrLf 

	my_Conn.Close
	Set my_Conn = Nothing
	Set rsInfo = NOthing
	
	showRecentXML = strXML
End Function

<%
Option Explicit
' -----------------
' RSS FILE
' -----------------
response.ContentType = "text/xml"

'VARIABLES
Dim conn, strDatabasePath, sql, rs
' -------

set conn = Server.CreateObject("ADODB.Connection") 

strDatabasePath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\clients\db.mdb;" 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDatabasePath & ";"

' SQL
sql = "SELECT TOP 9 * FROM tblMessages WHERE approved = 1 ORDER BY fldMessageId DESC"
' ----

set rs = Conn.Execute(sql)
rs.MoveFirst()

'----------------
' HEADER
'----------------
response.write("<?xml version=""1.0"" encoding=""windows-1254""?>") & vbcrlf
response.write("<rss version=""0.91"">") & vbcrlf
' ---------------

response.write("<channel>") & vbcrlf


response.write("<title>address.net/e</title>") & vbcrlf
response.write("<link>http://www.address.net/e/default.asp</link>") & vbcrlf
response.write("<description>e? alternatif, medya, mizah, muzik, tasarim, populer kultur, sinema, teknoloji, toplum, web tasarimi gibi konularda gunluk linkler, yorumlar ve notlardan olusan guncel bir derlemedir...</description>") & vbcrlf
response.write("<language>tr</language>") & vbcrlf & vbcrlf

' -----------------------
while (not rs.EOF)
 
 response.write("<item>") & vbcrlf
 response.write("<title>" & rs("fldMessageTitle") & "</title>") & vbcrlf
 response.write("<description>") & vbcrlf
 response.write("<![CDATA[") & vbcrlf
 response.write("<p>" & left(ClearHTMLTags(rs("fldMessageHeader"),""),100) & "...</p>") & vbcrlf
 response.write("]]>") & vbcrlf
 response.write("</description>") & vbcrlf
 response.write("<link>http://www.address.net/e/messages.asp?message=" & rs("fldMessageId") & "</link>") & vbcrlf
 response.write("</item>") & vbcrlf &  vbcrlf
  rs.MoveNext()
wend
' ------------------------


rs.close() 'clear
conn.close() ' clear

response.write("</channel>")

response.write("</rss>")







'#################################################################################
'# Function ClearHTMLTags().
'# by Jóhann Haukur Gunnarsson
'#
'# Variables needed to be defined before calling this
'# function are the following:
'#
'# @strHTML - String to be cleaned up
'# @strTag  - ""  - (Empty) if you want to remove all HTML tags
'#            Tag - To remove an especific tag ( img, p, b, etc )
'#################################################################################

Function ClearHTMLTags( strHTML, strTag )
  ' Variables used in the function
  dim regEx

  ' regEx initialization
  set regEx         = New RegExp 
  regEx.IgnoreCase  = True
  regEx.Global      = True
  regEx.Pattern     = "<" & strTag & "[^>]*>"
  strHTML           = regEx.Replace( strHTML, "" )
  set regEx         = nothing
  ClearHTMLTags     = strHTML

end function

%>