Denver Judo

<% 'rsNews.Open "SELECT * FROM news ORDER BY RAND() LIMIT 2" Randomize() intRandomNumber = Int (1000*Rnd)+1 strSQL = "SELECT top 2 newsID, newsHead, newsTxt, Rnd(" & -1 * (intRandomNumber) & "*newsID) FROM news ORDER BY 2" rsNews.Open strSQL, adoCon Dim newsTxt Dim count count = 1 if NOT rsNews.EOF THEN DO WHILE NOT rsNews.EOF newsTxt = rsNews("newsTxt") newsTxt = left(newsTxt, 108) response.Write("" & rsNews("newsHead") & "
") response.Write(newsTxt & "...") response.Write("

") response.Write("entire article") response.Write("

") if count = 1 THEN response.Write("

") END if count = count + 1 rsNews.MoveNext loop ELSE response.Write("No News! Check back later.") END if %>