MuLoT Paging

				
//**************************************
// Name: MuLoT Paging
// Description:With this code, you can make multiple link page to view results from a Search or a Query. Just look like this: |1| |2| |3| |4|
// By: Le MuLoT
//
//This code is copyrighted and has// limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=76&lngWId=9//for details.//**************************************

	<cfscript>	/***************************************************************************************\
		*	Auteur:	Frédéric Gauthier-Boutin													*
		*	Date:	15 avril 2003																*
		*	Description:																		*
		*		Fonction générant des sauts de pages (liens hypertexts).						*
		*																						*
 		*		Arguments :																		*
		*			Intervalle	=>	Contient le nombre de pages à afficher avant et après celle	*
		*							en cours de consultation.									*
		*			RecordCount	=>	Contient le nombre de résultats pour la recherche			*
		*			MaxRows		=>	Contient le nombre de résultats par pages					*
		*			StartRow	=>	Contient le numéro de l'enregistrement en cours				*
		*			Search		=>	Contient ce sur quoi on fait la recherche					*
		*			Collection	=>	Indique avec quelle(s) collection(s) nous recherchons		*
		*			GotoURL		=>	Contient l'URL vers lequel les liens des pages pointent		*
		*																						*
		*		Arguments Optionnels :															*	
					Middle		=>
		*	Version: #2.0																		*
		\***************************************************************************************/	
		function MuLoT_Paging(Intervalle, RecordCount, MaxRows, StartRow, Search, Collection, GotoURL) {
			
			//Déclarations divers
			var iCtr = 1;
			var Start = 1;
			var strPages = '';
			
			var Middle = '#chr(35)#iCtr#chr(35)#'; //Correspond à #iCtr#, mais si écrit tel quel, y a traitement tout de suite !!!
			var BeginTag = '<font color="blue" face="Arial, Helvetica, sans-serif" size="3">';
			var EndTag = '</font>';
			
			var CurrentMiddle = Middle;
			var CurrentBeginTag = '<font size="+1" color="blue">';
			var CurrentEndTag = EndTag;
			
			//Calcul des pages
			var CurrentPage = (StartRow + MaxRows - 1) / MaxRows;
			var BeginPage = 1;
			var MaxPage = (recordCount / MaxRows);
			if (RecordCount mod MaxRows NEQ 0) //Page de terminaison
				MaxPage = MaxPage + 1;
			
			//Vérification si nous avons reçu des arguments supplémentaires
			if(ArrayLen(arguments) GTE 8) 
				Middle = "#chr(35)#arguments[8]#chr(35)#";
				
			if(ArrayLen(arguments) GTE 9)
				BeginTag = "#chr(35)#arguments[9]#chr(35)#";
				
			if(ArrayLen(arguments) GTE 10)
				EndTag = "#chr(35)#arguments[10]#chr(35)#";
			if(ArrayLen(arguments) GTE 11)
				CurrentMiddle = "#chr(35)#arguments[11]#chr(35)#";
			
			//Ajustement de l'intervalle
			if (CurrentPage + Intervalle LT MaxPage)
				MaxPage = CurrentPage + Intervalle;
			if (CurrentPage - Intervalle GT BeginPage)
				BeginPage = CurrentPage - Intervalle;
				
			//Boucle parcourant chaque pages
			for(iCtr = BeginPage; iCtr LE MaxPage; iCtr = iCtr + 1){
				
				//Calcul du Début pour chaque pages
				Start = (iCtr * MaxRows) - MaxRows + 1;
					
				//Vérification si page en cours
				if (Start NEQ StartRow)
					strPages = strPages & 'a href="#GotoURL#?
										startrow=#Start#&
										MaxRows=#MaxRows#&
										search=#URLEncodedFormat("#Search#")#&
										collection=#URLEncodedFormat("#Collection#")#&
										Advanced=#URLEncodedFormat("#URL.Advanced#")#">'
											& '#BeginTag#'
											& Evaluate(Middle)
											& '#EndTag#'
											&'/a> ';
				else
					strPages = strPages & CurrentBeginTag & Evaluate(CurrentMiddle) & CurrentEndTag & ' ';
			}
			return strPages;
		}	
</cfscript>