<%
'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("")
if count = 1 THEN
response.Write("
")
END if
count = count + 1
rsNews.MoveNext
loop
ELSE
response.Write("No News! Check back later.")
END if
%>
|
|
|
