<%set con = server.createobject("adodb.connection") con.open Datasource set rs = server.createobject("adodb.recordset") set rs1 = server.createobject("adodb.recordset") set rs10 = server.createobject("adodb.recordset")%>
<% rs.open "select count(*) from tblmovements",con mycount=rs(0) rs.close Dim myArray Dim myArray1 Dim myArray2 If mycount>0 Then ReDim myArray(mycount) ReDim myArray1(mycount) ReDim myArray2(mycount) rs.open "select * from tblmovements order by mid desc",con i=0 do while not rs.EOF myArray(i)=rs("mid") myArray1(i)=rs("title") myArray2(i)=rs("thumbnail") rs.movenext i=i+1 loop rs.close %> <%For i= 1 To UBound(myArray) 'If i Mod 4 <> 0 then %> <%i=i+3 next%> <%else%> <%End if%>
  MOMENTS  
     
  <%If i-1 < UBound(myArray) then%> <%End if%> <%If i < UBound(myArray) then%><%End if%> <%If i+1 < UBound(myArray) then%><%End if%> <%If i+2 < UBound(myArray) then%><%End if%>
<%=myArray1(i-1)%>
<%=myArray1(i)%>
<%=myArray1(i+1)%>
<%=myArray1(i+2)%>
 
  No moments available  
   
 
     
<%con.close%>