<% gv_perpage = 10 If Request.QueryString("cat")="" then background_cat = "misc" main_area = 0 Else background_cat = Request.QueryString("cat") main_area = 1 End If If background_cat="exotic-brands" or background_cat="car-logos" then disclaimerer = "
" disclaimerer = disclaimerer & "Disclaimer: All logos are copyrighted and/or trademarked to their respecitve owners." disclaimerer = disclaimerer & "

" End If If main_area=0 then %> Background Categories:
Miscellaneous Backgrounds
Exotic Brands Backgrounds
Car Logos Backgrounds <% end if if main_area=1 then 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 backgrounds WHERE cat='" & background_cat & "'", conn, 3, 3 icount=0 do while not items.EOF icount=icount+1 items.MoveNext loop items.movefirst imagecount = icount pcount = round(imagecount/gv_perpage) pnumtemp = 0 do 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 loop ' NEWS CODE Response.Write "

Free MySpace Backgrounds

" Response.Write "Copy the code from the Text box into your "About Me" Box
" Response.Write pagelist Response.Write "
" Response.Write disclaimerer Response.Write "" myx=0 do while not items.EOF if myx>=gv_lmin and myx<=gv_lmax then gv_img = items("img") %> <% If background_cat="exotic-brands" or background_cat="car-logos" then %> <% Else %> <% End If %> <% ' wtf? end if items.MoveNext myx = myx + 1 loop Response.Write "
" height="100" width="100">">
" Response.Write disclaimerer Response.Write pagelist Response.Write "
" end if %>