<% response.contentType="text/xml"
function detag (s)
detag = replace (replace (s, " ", " "), " ", "")
end function
%>
The Webgineers
http://www.the-webgineers.co.uk/
Latest articles from The Webgineers
<%
set Con=Server.CreateObject ("ADODB.Connection")
con.mode=3
Con.open "articles"
set rs = Server.CreateObject ("ADODB.Recordset")
rs.open "Select * from articles order by date DESC", con
k = 0
while (k<10) and not rs.eof
if rs("released") then
response.write "" & vbcrlf
title = rs("title")
response.write "" & sanitise(title) & "" & vbcrlf
response.write "http://www.webgineers.co.uk" & getLongName (rs("aID"), title) & "" & vbcrlf
response.write "" & detag (sanitise(rs("intro"))) & "" & vbcrlf
response.write "" & vbcrlf
k = k+1
end if
rs.movenext
wend
%>