<%
        Const adCmdText = &H0001
        sql = "SELECT RANDOMDATA FROM RANDOMTABLE"
        rs.Open sql, connstr , 3, , adCmdText
	Randomize Timer
	intRnd = (Int(RND * rs.RecordCount))
	rs.Move intRnd
	Response.Write "<b>" & rs("RANDOMDATA ") & "</b>"
%>