
% varStartPage = 1 varMaxRecords = 4 vPhotoID = 0 if request.querystring("start") <> "" then varStartPage = request.querystring("start") end if if request.querystring("id") <> "" and IsNumeric(request.querystring("id")) then vPhotoID = cint(request.querystring("id")) end if set JournalRS = Server.CreateObject("ADODB.Recordset") JournalRS.CursorLocation = adUseClient JournalRS.CacheSize = varMaxRecords SQL = "select * from Journal where Category = 'Classes' and Active=-1 order by SortOrder;" JournalRS.Open SQL, MasterConn if NOT JournalRS.BOF and NOT JournalRS.BOF then JournalRS.MoveFirst JournalRS.PageSize = varMaxRecords JournalRS.AbsolutePage = varStartPage varNumPages = JournalRS.PageCount vRecordCount = JournalRS.RecordCount if vPhotoID = 0 then vPhotoID = JournalRS("JournalID") end if end if %>




|
<% if NOT JournalRS.EOF and NOT JournalRS.BOF then %>
<% vCounter = 0 %>
<% do while NOT JournalRS.EOF And vCounter < JournalRS.PageSize %>
"> Click to Enlarge <% if varNumPages > 1 then %> <% if varStartPage > 1 then %> Prev
<% else %>
Prev
<% end if %>
<% for i = 1 to varNumPages %>
<% if i = int(varStartPage) then %>
<% =i %>
<% else %>
<% =i%>
<% end if %>
<% next %>
<% if int(varStartPage) < int(varNumPages) then %>
Next
<% else %>
Next
<% end if %>
<% end if %>
<% end if %>
|
|
|
<% =JournalRS("Title")%><% =JournalRS("Description")%> |