<% gv_perpage = 10 gv_pnum=Request.QueryString("p") if gv_pnum="" Then gv_pnum=0 end if gv_lmin=gv_pnum*gv_perpage gv_lmax=gv_lmin+gv_perpage gv_xr3=1 pagelist= "
Page:
" Set items = Server.CreateObject("ADODB.Recordset") items.Open "SELECT * FROM onlinenow ORDER BY id DESC", conn, 3, 3 icount=0 while not items.EOF icount=icount+1 items.MoveNext wend items.movefirst imagecount = icount pcount = round(imagecount/gv_perpage) pnumtemp = 0 While pnumtemp" & pnum2 & " " Else pagelist = pagelist & "" & pnum2 & " " End If If gv_xr3=20 then pagelist = pagelist & "
" gv_xr3 = 0 End If gv_xr3 = gv_xr3 + 1 pnumtemp = pnumtemp + 1 wend ' NEWS CODE Response.Write "

Free MySpace Online Now Images

" Response.Write "Copy the code from the Text box into your "About Me" Box
" Response.Write pagelist Response.Write "" myx=0 while not items.EOF if myx>=gv_lmin and myx<=gv_lmax then gv_img = items("img") %> <% ' wtf? end if items.MoveNext myx = myx + 1 Wend Response.Write "

" Response.Write pagelist Response.Write "
" %>