%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim rsphotos
Dim rsphotos_numRows
Set rsphotos = Server.CreateObject("ADODB.Recordset")
rsphotos.ActiveConnection = MM_amazona_STRING
rsphotos.Source = "SELECT * FROM Photos"
rsphotos.CursorType = 0
rsphotos.CursorLocation = 2
rsphotos.LockType = 1
rsphotos.Open()
rsphotos_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -8
Dim HLooper1__index
HLooper1__index = 0
rsphotos_numRows = rsphotos_numRows + HLooper1__numRows
%>
Photo gallery : Foto
<%
startrw = 0
endrw = HLooper1__index
numberColumns = 8
numrows = -1
while((numrows <> 0) AND (Not rsphotos.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<%
While ((startrw <= endrw) AND (Not rsphotos.EOF))
%>
|
<%
startrw = startrw + 1
rsphotos.MoveNext()
Wend
%>
<%
numrows=numrows-1
Wend
%>