slumpa bland poster?

Någon som kan ett enklare och mindre resurs krävande sätt att slumpa fram en post ur en MySQL databas?

<% 
    Set RecSet1 = Connect.Execute("SELECT Count(id) AS strPosts FROM reklam WHERE width='468'")
    strPoster = RecSet1("strPosts")
    RecSet1.Close : Set RecSet1 = Nothing

    For i = 1 to 1

            Randomize
            strRandom = Int(RND*strPoster) - 1
 
            Set RecSet1 = Connect.Execute("SELECT * FROM reklam WHERE width='468'")
            
            Do While strRandom >= 0
                    RecSet1.MoveNext
 
            strRandom = strRandom - 1
            Loop

response.write ("<a target='_blank' href='"& RecSet1("url") &"'><img border='0' src='"& RecSet1("bildUrl") &"' alt='"& RecSet1("namn") &"  ("& RecSet1("klick") &")' width='"& RecSet1("width") &"' height='"& RecSet1("height") &"'></a>")

Connect.Execute ("update reklam set visad = visad +1 where ID ='" & RecSet1("ID") & "'")

Next
    RecSet1.Close : Set RecSet1 = Nothing
	Set strPoster = Nothing
	Set strRandom = Nothing
%>