<% 'SHOW PAGING ON LISTING PAGES - Subroutine '------------------------------------------------------------------- Sub ShowPaging(TotalRecs, TotalPages, NumPerPage, CurPage) If CInt(CurPage) = CInt(TotalPages) Then ToNum = TotalRecs Else ToNum = (CurPage * NumPerPage) End If If TotalPages <> 0 Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'Response.Write "

Page " & CurPage & " of " & TotalPages & "

Record(s) [" & (CurPage * NumPerPage - NumPerPage) + 1 & " to " & ToNum & "] of " & TotalRecs & "

Page  " For iLoop = 1 to TotalPages If cstr(CurPage) = cstr(iLoop) Then 'Response.Write "" & iLoop & " " Response.Write "" & iLoop & "" Else 'Response.Write "" & iLoop & "" & " " Response.Write "" & iLoop & "" End If Next Response.Write "

" If CurPage > 1 Then Response.Write "" Else Response.Write "" End If Response.Write " " If CInt(CurPage) <> CInt(TotalPages) Then Response.Write ">"" class=""pagingbutton_on"" onclick=""JavaScript:document.frm.curpage.value=" & CurPage + 1 & ";document.frm.submit();"">" Else Response.Write ">"" class=""pagingbutton_off"">" End If Response.Write "

" End If End Sub %>