Michael Reagan's Art Gallery
Home Artwork Images My Story Store Catalog Contact Information Celebrity Comments

 
 

Artwork Categories
  Celebrities
  Actors/Actresses
Local Celebrities
Music/Media
Playmates
Politics
Commercial
Miscellaneous
Sports
  Baseball
Basketball
Football
Other Sports
Wildlife









<% connectme="DSN=Drawings" sqltemp="select * from people WHERE category=11 order by drawing_ID" mypage=request("whichpage") If mypage="" then mypage=1 end if mypagesize=request("pagesize") If mypagesize="" then mypagesize=20 end if mySQL=request("SQLquery") IF mySQL="" THEN mySQL=SQLtemp END IF set rstemp=Server.CreateObject("ADODB.Recordset") rstemp.cursorlocation=aduseclient rstemp.cachesize=5 rstemp.open mySQL,connectme rstemp.movefirst rstemp.pagesize=mypagesize maxpages=cint(rstemp.pagecount) maxrecs=cint(rstemp.pagesize) rstemp.absolutepage=mypage countme = rstemp.recordcount howmanyrecs=0 howmanyfields=rstemp.fields.count -1 holder = cint(maxpages) counterstart = 1 counterend = maxpages ' Now loop through the data %>
Page <%= mypage & " of  " & maxpages %>
<%DO UNTIL rstemp.eof OR howmanyrecs>=maxrecs%> <% rstemp.movenext howmanyrecs=howmanyrecs+1 %> <% LOOP %>
Name Quantity Size
<% if rstemp("image file") <> "No" then if rstemp("width") > 350 then response.write "" & rstemp("first name") & " " & rstemp("last name") & "" else response.write "" & rstemp("first name") & " " & rstemp("last name") & "" end if else response.write rstemp("first name") & " " & rstemp("last name") end if %> <%= rstemp("Quantity") %> <%= rstemp("Size") %>
<% ' close, destroy rstemp.close set rstemp=nothing ' Now make the page _ of _ hyperlinks Call PageNavBar sub PageNavBar() pad="" scriptname=request.servervariables("script_name") response.write "" response.write "" response.write "" response.write "
" response.write "" session("temphold") = cstr(mypage) if mypage > 1 then %> Back <% end if Response.Write "[" for counter=counterstart to counterend if cstr(counter) = session("temphold") then %> <%= pad & counter %> <% else %> <%= pad & counter %> <% end if response.write ref if counter <> counterend then response.write " " next Response.Write "]" response.write "" if mypage <> holder then if cint(mypage) >= cint(holder) then response.write "" mypage = holder else %> Next <% end if end if response.write "
" end sub %>
              All Rights Reserved to Michael Reagan 1999©