CLIQUE NA FOTO PARA MAIS DETALHES
<% ' Session.Abandon() 'Reinicia a sessão a fim de evitar variáveis com valores incorretos SQL = "SELECT * FROM Galeria order by Codigo desc" Set RS = Conn.Execute(SQL) ArrJ = RS.GetRows 'Atribui todo o RecordSet a um vetor 'Permitindo assim que Set Consulta = Nothing 'a variável seja liberada e Conn.Close 'a conexão seja fechada %>

<% for i=0 to UBound(ArrJ, 2) Foto = Replace(ArrJ(3, i), ".jpg", ".jpg") marca = ArrJ(1, i) Codigo = ArrJ(0, i) Response.Write " " & Mid(ArrJ(1, i),1,15) & "...		" if i mod 3 = 2 then Response.Write "
" else Response.Write " " end if Next %>