<% dim i, lngCountRS, arrDaten(), bolFound, lngRND, strBild, strLink i=1 bolFound=false objConn.Open strDSN set objRS=objConn.Execute ("SELECT ID FROM DatenBanner") if not objRS.EOF then bolFound=true do while not objRS.EOF redim Preserve arrDaten(i) arrDaten(i)=objRS("ID") i=i+1 objRS.MoveNext loop objRS.Close set objRS=nothing randomize lngRND=0 do until lngRND<>0 lngRND = Int((ubound(arrDaten) * Rnd) + 1) loop set objRS=objConn.Execute ("SELECT * FROM DatenBanner WHERE ID=" & arrDaten(lngRND)) strBild=objRS("Bild") strLink=objRS("Link") objRS.Close set objRS=nothing objConn.Close set objConn=nothing end if %>