<%
strQuery = "SELECT IdImage, Archivo, AtlText FROM images ORDER BY IdImage"
Set objDatabase = New Database
arrImages = objDatabase.GetArray(strQuery)
Set objDatabase = Nothing
if Isarray(arrImages) then
modulo = 3
for i = 0 to Ubound(arrImages,2)
id = arrImages(0,i)
archivo = arrImages(1,i)
atlText = arrImages(2,i)
if (i mod modulo)=0 then
%>
