[Resolvido] Não estou entendendo a lógica

Pessoal,

Procurando como não fazer banners repetirem num sistema, encontrei esse codigo:

<%
Sub Rnd_Banner()
Dim strSQL
Dim strBanners
Dim intCounter
Dim intID
Dim strDisplay
Dim strDefault

intCounter = 0
strDefault = "default.gif" 'AQUI você COLOCA UM BANNER DEFAULT P/ CASO DA TBLA ESTAR VAZIA!

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("banners.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
set rs = server.createobject("adodb.recordset")

strSQL = "SELECT * FROM banners ORDER BY ID"

rs.open strSQL, conn

If not rs.EOF Then
strBanners = rs.getrows()
rs.movefirst
Do While Not rs.EOF
intCounter = intCounter + 1
rs.movenext
Loop
If intCounter < 2 Then

 strDisplay = "<a href="&strBanners(2,0)&" target=new><img src="&strBanners(1,0)&"></a>"
	Else
 Randomize
 intID = Int(Rnd * intCounter)
 strDisplay = "<a href="&strBanners(2,intID)&" target=new><img src="&strBanners(1,intID)&"></a>"
	End If

Else
strDisplay = "<img src="&strDefault&">"
End If

rs.close
set rs = nothing
set conn = nothing

Response.Write(strDisplay)

End Sub
%>
Então, aguém poderia me ajudar a compreender o que esse trecho:

If intCounter < 2 Then

 strDisplay = "<a href="&strBanners(2,0)&" target=new><img src="&strBanners(1,0)&"></a>"
	Else
 Randomize
 intID = Int(Rnd * intCounter)
 strDisplay = "<a href="&strBanners(2,intID)&" target=new><img src="&strBanners(1,intID)&"></a>"
	End If

Else
strDisplay = "<img src="&strDefault&">"
End If
não estou entendendo esse strBanners(2,intID) isso vem de um BD? Parece que não né???? http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Meu sistema de banners nao repete, mas gravo o ultimo exibido num BD e carrega muito porque são varios acessos.

Valeu pessoar!