<% gv_perpage = 10 If Request.QueryString("cat")="" then background_cat = "funny" main_area = 0 Else background_cat = Request.QueryString("cat") main_area = 1 End If If main_area=0 then %> Icon Categories:

Alcohol Icons
Animal Icons
Anime Icons
Asian Icons
Black Icons
Blonde Icons
Boy Icons
Brunette Icons
Car Icons
Celebrity Icons
Cheerleader Icons
Emo Icons
Fantasy Icons
Friends Icons
Funny Icons

Ghetto Icons
Girl Icons
Gothic Icons
Hair Icons
Heart Icons
Holiday Icons
Love Icons
Nationality Icons
Redheads Icons
Sexy Icons
Sports Icons
Star Icons
TV/Movie Icons

<% 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 icons 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 Icons

" Response.Write "Copy the code from the Text box and paste it wherever you'd like the icon shown!
" Response.Write pagelist Response.Write "" myx=0 do 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 loop Response.Write "

	<a href="<%=gv_baseurl%>/" target="_blank"><img src="<%=gv_baseurl%>/images/icons/<%=background_cat%>/<%=gv_img%>" alt="Free MySpace Icons"></a>

" Response.Write pagelist Response.Write "" end if %>