<% response.buffer=false id=killchars(request.querystring("id")) Response.ContentType = "text/xml" set con = server.CreateObject("adodb.connection") con.open strCon set rs=Server.CreateObject("ADODB.Recordset") sqltxt="SELECT top 12 id,title FROM table1 where status=1 and not id="&id&" and admin_no is NULL order by sticky desc,date desc" 'response.write sqltxt rs.open sqltxt,con,0,1 Response.Write "<?xml version=""1.0"" encoding=""iso-8859-1"" ?>" & vbCrlf Response.Write "<rss version=""2.0"">" & vbCrlf Response.Write "<channel>" & vbCrlf Response.Write "<title>Recent results</title>" & vbCrlf Do while Not rs.eof Response.Write "<item>" & vbCrlf Response.Write "<title>" & encode(rs("title")) &"</title>" & vbCrlf Response.Write "<link>http://localhost/news/"&cleanstring(rs("title"))&"-"&rs("id")&".asp</link>" & vbCrlf 'Response.Write "<price>" & rs("sb_price")&"</price>" & vbCrlf 'Response.Write "<description>" & vbCrlf 'Response.Write "<![CDATA[" & vbCrlf 'Response.Write left(replace(rs("sb_details"),"&","and"),100)& "...]]>" & vbCrlf 'Response.Write "</description>" & vbCrlf Response.Write "</item>" & vbCrlf rs.MoveNext Loop Response.Write "</channel>" & vbCrlf Response.Write "</rss>" & vbCrlf rs.Close set rs = nothing con.Close set con= nothing %>
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)