<% dim myQuote myQuote = chr(34) response.write("") response.write("") response.write("http://www.tumbleweeds.me.uk/news.asp") response.write("The latest entries from Tumbleweeds' News Page") response.write("keith@tumbleweeds.me.uk") response.write("http://cyber.law.harvard.edu/rss/rss.html") response.write("") response.write("") response.write("Shore Road, Warsash") response.write("http://www.tumbleweeds.me.uk/images/shore_road.gif") response.write("http://www.tumbleweeds.me.uk/news.asp") response.write("") %> <% 'You must include connect_to_db.asp on the page which uses this 'Just show the first 10 - the TOP 10 clause works fine here, but not at OneAndOne sql = "SELECT t_News.*" sql = sql & " FROM t_News" sql = sql & " ORDER BY T_News.t_news_epoch DESC;" rs.Open sql, conn, adLockOptimistic, adCmdText dim myID dim myTitle dim myTeaser dim myDate dim myCounter dim myMaxCount myMaxCount=10 rs.movefirst %> <%do myID = rs("t_News_myID") myTitle = rs("t_news_Title") myTeaser = rs("T_News_Teaser") myDate = rs("T_News_entered") 'myDate = FormatDateTime(myDate, 1) 'Now write the tag for each item in the list response.write("") response.write("" & "Tumbleweeds" & myID & "") response.write("") response.write("http://www.tumbleweeds.me.uk/news.asp#A" & myID & "") response.write("" & myTeaser & "") 'response.write("" & myDate & "") 'response.write("keith@tumbleweeds.me.uk") response.write("") myCounter = myCounter + 1 rs.MoveNext loop until (rs.EOF) or (myCounter >= myMaxCount) rs.close conn.close response.write("") response.write("") %>