Eliminera bort vissa delar

Har lite kod som jag använder för att rotera ett antal annonser på min sida. Men jag upplever att koden inte är så optimerad och att den känns lite seg.

Den går nu efter hur många gånger en viss annons har visats. Det är just detta som jag vill eliminera helt och vill att den bara ska slumpa fram en banner. Inte gå efter ett visst fält som den nu gör. Nu använder den sig av fältet "rotator". Men jag vill att den helt enkelt slumpar fram en banner.

Är det möjligt?

	<% 
	Set ConnADS = Server.CreateObject("Adodb.Connection") 
	ConnADS.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=g:\annons.mdb"

	Set RecSetADS = ConnADS.Execute("SELECT TOP 1 * FROM banner ORDER BY rotator")

	If RecSetADS.EOF Then
        Response.Write "Inga annonser inlagda!"
	Else 
	%> 
        <a href="/public/ads.asp?RefID=<%=RecSetADS("id")%>" target="_blank"><img src="<%=RecSetADS("banner")%>" border="0" width="88" height="31" alt="annonser"></a>    
	<% 

        ConnADS.Execute "UPDATE banner SET rotator = rotator+1 WHERE id = " & RecSetADS("id")
	End If 

	RecSetADS.Close 
	Set RecSetADS = Nothing

	ConnADS.Close 
	Set ConnADS = Nothing
	%>