<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252" %>
<%
Dim rsGetBlogItems
Dim rsGetBlogItems_numRows
Set rsGetBlogItems = Server.CreateObject("ADODB.Recordset")
rsGetBlogItems.ActiveConnection = MM_strCon_STRING
rsGetBlogItems.Source = "SELECT * FROM tblJournal ORDER BY DATE_stamp DESC"
rsGetBlogItems.CursorType = 0
rsGetBlogItems.CursorLocation = 2
rsGetBlogItems.LockType = 1
rsGetBlogItems.Open()
rsGetBlogItems_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsGetBlogItems_numRows = rsGetBlogItems_numRows + Repeat1__numRows
%>
<%
Response.ContentType = "text/xml"
%>
Marketing-Helpers.com News
http://www.marketing-helpers.com/
Marketing Helpers is set out to be the Web's #1 resource to get the answers you need to successfully market your business on the Internet.admin@marketing-helpers.comen-us
<%
While ((Repeat1__numRows <> 0) AND (NOT rsGetBlogItems.EOF))
%> <%=(rsGetBlogItems.Fields.Item("Journal_title").Value)%><%= Server.HTMLEncode((rsGetBlogItems.Fields.Item("Journal_item").Value)) %>
http://www.marketing-helpers.com/free-internet-marketing-articles.htm?ai=<%=(rsGetBlogItems.Fields.Item("Journal_id").Value)%>
http://www.marketing-helpers.com/free-internet-marketing-articles.htm?ai=<%=(rsGetBlogItems.Fields.Item("Journal_id").Value)%><%=convertToRSSFriendlyDate(rsGetBlogItems("Date_stamp"))%><%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsGetBlogItems.MoveNext()
Wend
%>
<%
rsGetBlogItems.Close()
Set rsGetBlogItems = Nothing
%>