<% Dim xmlString,Url,Info response.ContentType = "text/xml" xmlString="" & Chr(13) xmlString=xmlString&""& Chr(13) &"" & Chr(13) xmlString=xmlString&" " & Chr(13) xmlString=xmlString&"" & Chr(13) Set Rs=Conn.Execute("Select Top 100 articleid,username,dateandtime,title,content From learning Order By dateandtime Desc") If Not Rs.Eof Then Do While Not Rs.Eof Info=Rs(4) Url="http://www.lovehn.com/cgi-bin/club/show.asp?id=" & Rs(0) & "" xmlString=xmlString&"" & Chr(13) xmlString=xmlString&"" & Chr(13) xmlString=xmlString&"" & Chr(13) xmlString=xmlString&"" & Chr(13) xmlString=xmlString&"" & Chr(13) xmlString=xmlString&"" & Chr(13) Rs.MoveNext Loop Else xmlString=xmlString&"" & Chr(13) xmlString=xmlString&"" & Chr(13) xmlString=xmlString&"" & Chr(13) End IF xmlString=xmlString&"" & Chr(13) & "" Rs.Close:Set Rs=Nothing Response.Write xmlString %>