<%@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 %>
" rel="lightbox"> " alt="click photo to enlarge" width="110" border="1" class="border" />','img')">
enlarge
<% rsphotos.Close() Set rsphotos = Nothing %>