<%

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
function NumRecordsPerPage()
	NumRecordsPerPage = 10
end function
function PageConstant()
	PageConstant = 10
end function
if ( rs2.eof = false ) then

'		nopages = round(TotalRec / NumRecordsPerPage(),0) 		

		nopages = int(TotalRec / NumRecordsPerPage())
		intres = TotalRec / NumRecordsPerPage()
		if ( intres > nopages ) then
			nopages = nopages + 1
		end if

		
' Paging logic relative to PGNO varaible
			activelnk = 0

		if (Request.QueryString("PGNO") = "") then
			strec = 0	
			edrec = strec + NumRecordsPerPage()
			if (edrec >  TotalRec) then
				edrec = TotalRec 
			end if
		 else
		
				activelnk = Request.QueryString("PGNO") 
				strec = Request.QueryString("PGNO") * NumRecordsPerPage()  
				edrec = strec + NumRecordsPerPage()
				if (edrec >  TotalRec) then
					edrec = TotalRec
				end if
		end if

end if

if (Request.QueryString("START") = 0) then

		start = 0
		if ( nopages <= PageConstant() ) then		
			nextflag = 0
			prevflag = 0
		else
			nextflag = 1
			prevflag = 0
		end if
		end1= start +  PageConstant()
		if ( end1 > nopages) then
			end1 = 	nopages
			nextflag = 0	
		end if 
else

			start = request.QueryString("START")
			end1 = start +  PageConstant()
			
			if ( end1 >= nopages ) then
				end1 = 	nopages 
				nextflag = 0	
			else
				nextflag = 1	
			end if 
						
			if( start = 0 ) then
					prevflag = 0
			else
					prevflag = 1
			end if		
			
end if

prevlnk = start - PageConstant()


'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
%>