<%
function StripHTML(ByRef asHTML)
ashtml=replace(ashtml, "&", "and")
Dim loRegExp ' Regular Expression Object
' Create built In Regular Expression object
Set loRegExp = New RegExp
loRegExp.Global = True
' Set the pattern To look For HTML tags
loRegExp.Pattern = "<[^>]*>"
' Return the original String stripped of HTML
StripHTML = loRegExp.Replace(asHTML, "")
' Release object from memory
Set loRegExp = Nothing
End function
%>
<% Response.ContentType = "text/xml" %>
Shooterville.com RSS News Feed
http://www.hcdsb.org
This RSS feed will contain the latest news from Shoterville.comCopyright (C) Shooterville.com All rights reserved.
<% Set conn = Server.CreateObject("ADODB.Connection") %>
<% conn.Open "DSN=SOROKO;uid=sa;pwd=rivermesa" %>
<% set news = conn.execute("select top 1 * from p_news where ArchiveDate >= GetDate() and LiveDate <= GetDate() order by LiveDate DESC") %>
<% do while not news.eof %>
<% =news("subject") %>
http://www.shooterville.com/fullstory.asp?item=<% =news("ID") %>
<% =striphtml(left(news("info"), InStr(200, news("info"), ". "))) %><% =news("livedate") %>
<% news.movenext %>
<% loop %>