<% dim rst set rst=server.CreateObject("ADODB.recordset") rst.Open "Select * from Tbl_Gameonline ORDER BY Tbl_Gameonline.Id ASC",cnn,3,2 rst.CacheSize = 12 rst.PageSize = 12 dim condition,var,var1 condition = request.QueryString("condition") var = request.QueryString("var") var1 = request.QueryString("var1") if condition = "" then var1 = 2 var = 1 rst.AbsolutePage= 1 end if if var = "" then rst.AbsolutePage= var1 elseif var1 = "" then rst.AbsolutePage= var end if if condition = "Next" then var1 = var1 + 1 var = var1 - 2 elseif condition = "Previous" then var = var - 1 var1 = var + 2 end if %>

> Have fun with 1200 Games ..!!!!!!!! <% For i = 1 to rst.PageSize %> --------------------------------------------------------------------------------------------------------------------------------------------- <% dim W if rst("Width") > 728 then W = rst("Width") else W = 728 End if %> ..:: <%=rst("Id")%> ( <%=rst("Name")%> ) &Width=<%=rst("Width")%>&Height=<%=rst("Weight")%>&Name=<%=rst("Name")%>" target="_blank","<%=W%>","<%=rst("Weight") + 180%>">" width="120" height="100" hspace="3" border="0" align="left"> <%=rst("Description")%> Size: <%=rst("Width")%> x <%=rst("Weight")%> &Width=<%=rst("Width")%>&Height=<%=rst("Weight")%>&Name=<%=rst("Name")%>" target="_blank"" class="fonte11","<%=W%>","<%=rst("Weight") + 180%>>Play Game <%rst.MoveNext%> <%If rst.EOF Then Exit For%> <%Next%> <%if var + 1 = 1 then%> < Prev  <%else%> < Prev  <%end if%> <%For c = 1 to rst.PageCount%> <%if Cint(var1) - 1 = c then%> <%=c%> <%else%> <%=c%> <%end if%> <%next%> <%if var1 = rst.PageCount + 1 then%>  Next > <%else%>  Next > <%end if%>

<% rst.close set rst = Nothing %>