이번 예제는 도움이 될까해서 해외사이트에서 퍼온 소스입니다.
참고하세요.

<%

    Dim eConn, ePath, rs,Sql,my_count
    Set eConn = Server.CreateObject("ADODB.Connection")
    ePath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("YOUR DB!")
   
    eConn.Open ePath
    'Count the records to get a High number
    Sql = "select count(b_id)as cnt from tblbanner"
   
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open Sql, eConn, 3, 3
    'plug it into a varibale
    my_count = rs("cnt")
 
    'If the table is empty write something
    if my_count < "1" Then
     Response.Write("Empty banner text")
    else
    'Get the ID and the Text for the banner
     Sql = "select b_id,b_text from tblbanner"
     Set rs = Server.CreateObject("ADODB.Recordset")
     rs.Open Sql, eConn, 3, 3
     RANDOMIZE
     Small = 1
    'vaiable for the high number
     High = my_count
     RandomNumber = INT((High-Small+1)*Rnd+Small)
    'Loop thru the results
     Do While Not rs.EOF
     Select Case RandomNumber
    'when the random number has a match us i
    '     t
      Case rs("b_id")
    'write the random number text
       Response.Write(rs("b_text")) 
      End Select
     rs.MoveNext
     Loop
     End if
   
%>