Banner rotering

Hejsa, jeg har nu siddet i et godt stykke tid og rodet med et banner system, jeg har lavet det sådan man kan vælge om der skal være ratio på det banner man lægger ind, og hvor mange visninger det max skal have hvis man har valgt ratio.

Det virker jo fint nok, men nu kom det store problem, jeg har denne kode der tager et random banner.

Problemet er følgende:
Hvis et banner nu har ratio på og der ikke er flere visninger tilbage på dens konto og det er den post der bliver taget skal den vælge et andet banner.


koden:
________________________________________

<meta http-equiv=\"refresh\" content=\"20\">
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.Mappath(\"banners.mdb\")
Set rs = Server.CreateObject(\"ADODB.Recordset\")
Sql = \"Select * from banner\"
rs.open sql, conn, 1, 3
randomize
rs.Move(int(rs.RecordCount * rnd))
   
    if rs(\"bannerratio\") = true then
        if rs(\"bannerratiosize\") = \"0\" then
            rs.Move(int(rs.RecordCount * rnd))
        else
       
        rs.update
        rs(\"bannerratiosize\") = rs(\"bannerratiosize\") - 1
        rs.update
        end if
    end if



    rs.update
    rs(\"bannershown\") = rs(\"bannerShown\") + 1
    rs.update
%>
<a target=_new href=http://localhost/webmasterguide.dk/banner/banner_click.asp?id=<%=rs(\"bannerid\")%>>
<img border=0 src=\"banners/<%=rs(\"bannerid\")%>.<%=rs(\"bannertype\")%>\" alt=\"<%=rs(\"bannertitel\")%>\">
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
________________________________________