<%
response.buffer=true
response.ContentType = "text/xml"
Function ApplyXMLFormatting(strInput)
strInput = replace(strInput,"&","&")
strInput = replace(strInput,"'","'")
strInput = replace(strInput,"""",""")
strInput = replace(strInput,">",">")
strInput = replace(strInput,"<","<")
ApplyXMLFormatting = strInput
End Function
Function RemoveHTML( strText )
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
strText = Replace(strText, " ", chr(10))
strText = Replace(strText, " ", chr(10))
strText = Replace(strText, " ", chr(10))
strText = Replace(strText, " ", chr(10))
RemoveHTML = RegEx.Replace(strText, "")
End Function
%>
Champion Newspapers
http://www.champnews.com
All the latest news from Champion Newspapersen-ukCopyright 2007-2010 Champion Media Group. All Rights Reserved
<%
set connect=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
connect.open "dsn=chuser;UID=chuser;PWD=n29c18j28r12;"
mysql="SELECT * FROM tblcontent_champnews WHERE cmgtitle<>'' AND year(dateadded) = " & year(now()) & " ORDER BY dateadded DESC"
rs.open mysql,connect,3
do while not rs.eof
%>
<%=ApplyXMLFormatting(rs("cmgtitle"))%>
http://www.champnews.com/html/newsstory.asp?id=<%=rs("newsid")%>
Stories by Champion Newspapers, the BEST for news in your area<%=rs("dateadded")%>
<%
rs.movenext
loop
rs.close
set rs=nothing
connect.close
set connect=nothing
%>