<%
gv_perpage = 5
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 contacts 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 Contact Tables
"
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 ""
%>
