Desktop Wallpapers Models List
<% col = 2 set rs = server.CreateObject ("adodb.recordset") for j = 65 to 65 + 25 sql = "SELECT photo_name, count(photo_name) as numb FROM wg_photos WHERE photo_name like '" & chr(j) & "%' AND online = 1 and category_id <> 4 group by photo_name" rs.Open sql, conn, 3, 3 if not rs.EOF then Response.Write "" Response.Write "" end if i = 0 do while not rs.EOF if i mod col = 0 then Response.Write ("") end if %> <% if i mod col = col - 1 then Response.Write ("") end if rs.MoveNext i = i + 1 loop rs.close Response.Write "
" next set rs = nothing %>
" & chr(j) & "
"><%=rs("photo_name").value%> (<%=rs("numb").value%>)
 

 




<% set conn = nothing %>