PB de PAGINATION des résultats en ASP

J'arrive bien à effectuer la pagination des résultats mais le problème c'est qu'à chaque fois je réexécute ma reqûete de recherche. Au niveau performance c'est pas le top!.

Pouvez vous me dire comment je dois faire pour ne pas réexecuter à chaque fois ma requête?


MERCI D'AVANCE
Malerune

PS: VOICI Mon code

<!--#include file="../codes/fonctions.asp"--> <% dim trisql if (request.QueryString("Tri") <> "") then tri = request("Tri") trisql = tri & " " else trisql = "IES_status" end if ' Récupération des éléments du formulaire de SearchAdd_IES.asp Action=Request.queryString("Action") Confirmation=Request.queryString("Confirmation") ' Lorsque l'utilisateur effectue un tri asc/desc sur les colonnes du tableau, les champs de chaque colonne sont ' passés en paramètre. Si le champ contient un "%", le champ est interprêté sans le "%" lors du passage de paramètres ' Le caractère "%" est remplacé par "$" au moment du passage de paramètres --> nomf ' Le caractère "$" est remplacé par "%" au niveau de la requête de recherche --> nom_init nom=GestionApost(Request.queryString("nom")) nomf=replace(nom,"%","$") nom_init=replace(nomf,"$","%") descr=GestionApost(Request.queryString("descr")) IESversion=GestionApost(Request.queryString("version")) verf=replace(IESversion,"%","$") ver_init=replace(verf,"$","%") categ=Request.queryString("category") subcategory=Request.queryString("subcategory") dvlpt=Request.queryString("lstDevelopment") deploy=Request.queryString("lstDeployment") IESstatus=Request.queryString("lstStatus") statusComment=GestionApost(Request.queryString("txtStatusComment")) generalComment=GestionApost(Request.queryString("txtGeneralComment")) busi=GestionApost(Request.queryString("txtBusinessOwner")) busif=replace(busi,"%","$") busi_init=replace(busif,"$","%") technical=GestionApost(Request.queryString("txtTechnicalLead")) other1=GestionApost(Request.queryString("txtOtherContact1")) other2=GestionApost(Request.queryString("txtOtherContact2")) ' Récupération des noms pour l'affichage des mots recherchés vendor=Request.queryString("txtVendor") txtME=Request.queryString("txtME") dpt=Request.queryString("lstService") ' Récupération des identifiants pour l'éxécution de la requête de recherche hidVendor=request.QueryString("hidVendor") hidME=request.QueryString("hidME") hidService=request.QueryString("hidService") installDate=Request.queryString("installDate") retireDate=Request.queryString("retireDate") createDate=Request.queryString("txtCreationDate") createUser=Request.queryString("txtCreationUser") modifDate=Request.queryString("txtLastModifDate") modifUser=GestionApost(Request.queryString("txtLastModifUser")) ' Initialisation de erreur erreur="NoError" ' Initialisation de Action Action="recherche" ' Définition d'une variable remplit, permet de savoir si le champ est vide Dim remplit remplit=0 ' motsRecherches: permet d'afficher les mots qui ont été saisis dans le formulaire searchAdd_IES ' Cela renseigne l'utilisateur lorsqu'il y a plusieurs résultats à sa recherche Dim motsRecherches motsRecherches="<span class='Style4'>Words researched :</span>"& "<br>" ' Requete permettant d'effectuer la recherche ' Si l'utilisateur ne saisit aucun critère au niveau du formulaire searchAdd_IES.asp ' la recherche s'effectue sur le statut de l'IES, par défaut il a comme valeur "Active" sqlSearch= "SELECT IES_id,IES_name, IES_version, IES_status, IES_category, IES_subcategory,"_ &" IES_deployment, IES_development,IES_recCreationUser, IES_Dpt_id, IES_V_id, IES_ME_id, IES_statusComment,"_ &" IES_comment,IES_description,IES_businessOwner, IES_technicalLead, IES_otherContact1, IES_otherContact2, "_ &" IES_retirementDate,IES_installationDate, IES_recCreationDate, IES_recCreationUser, IES_lastModifDate, "_ &" IES_lastModifUser FROM IES WHERE IES_status='"&IESstatus&"'" motsRecherches=motsRecherches +"<b><span class='Style5'>Status</span></b><span class='Style5'>="&IESstatus&"</span>" & " " ' Si l'utilisateur a saisi qqc dans le champ nom alors on effectue la recherche ' sur ce qu'il vient de saisir. On procède de même pour l'ensemble des champs du formulaire. if nom_init>"" then sqlSearch=sqlSearch & " AND ((IES_name) like '"&nom_init&"')" remplit=remplit+1 motsRecherches=motsRecherches +"<b><span class='Style5'>Name</span></b><span class='Style5'>="&nom_init&"</span>"&" " end if if descr > "" then sqlSearch=sqlSearch & " AND ((IES_description) like '"&descr&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Description</span></b>=<span class='Style5'>="&descr&"</span>"&" " end if if ver_init> "" then sqlSearch=sqlSearch & " AND ((IES_version) like '"&ver_init&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Version</span></b><span class='Style5'>="&ver_init&"</span>"&" " end if if categ > "" then sqlSearch=sqlSearch & " AND (IES_category='"&categ&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Category</span></b><span class='Style5'>="&categ&"</span>"&" " end if if subcategory > "" then sqlSearch=sqlSearch & " AND (IES_subcategory='"&subcategory&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Subategory</span></b><span class='Style5'>="&subcategory&"</span>"&" " end if if dvlpt > "" then sqlSearch=sqlSearch & " AND (IES_development='"&dvlpt&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Development</span></b><span class='Style5'>="&dvlpt&"</span>"&" " end if if deploy > "" then sqlSearch=sqlSearch & " AND (IES_deployment='"&deploy&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Deployment</span></b><span class='Style5'>="&deploy&"</span>"&" " end if if statusComment > "" then sqlSearch=sqlSearch & " AND (IES_statusComment like '"&statusComment&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Status comment</span></b><span class='Style5'>="&statusComment&"</span>"&" " end if if generalComment > "" then sqlSearch=sqlSearch & " AND (IES_generalComment like '"&generalComment&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>General comment</span></b><span class='Style5'>="&generalComment&"</span>"&" " end if if busi_init> "" then sqlSearch=sqlSearch & " AND (IES_businessOwner like '"&busi_init&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Business owner</span></b><span class='Style5'>="&busi_init&"</span>"&" " end if if technical > "" then sqlSearch=sqlSearch & " AND (IES_technicalLead like '"&technical&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Technical lead</span></b><span class='Style5'>="&technical&"</span>"&" " end if if other1 > "" then sqlSearch=sqlSearch & " AND (IES_otherContact1 like '"&other1&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Other contact 1</span></b><span class='Style5'>="&other1&"</span>"&" " end if if other2 > "" then sqlSearch=sqlSearch & " AND (IES_otherContact1 like '"&other2&"')" motsRecherches=motsRecherches +"<b><span class='Style5'>Other contact 2</span></b><span class='Style5'>="&other2&"</span>"&" " end if if vendor > 0 then sqlSearch=sqlSearch & " AND (IES_V_id="&vendor&")" motsRecherches=motsRecherches +"<b><span class='Style5'>Vendor</span></b><span class='Style5'>="&hidVendor&"</span>"&" " end if if txtME > 0 then sqlSearch=sqlSearch & " AND (IES_ME_id="&txtME&")" motsRecherches=motsRecherches +"<b><span class='Style5'>Manufacturer/editor</span></b><span class='Style5'>="&hidME&"</span>"&" " end if if dpt > 0 then sqlSearch=sqlSearch & " AND (IES_Dpt_id="&dpt&")" motsRecherches=motsRecherches +"<b><span class='Style5'>Service</span></b><span class='Style5'>="&hidService&"</span>"&" " end if if installDate > "" then sqlSearch=sqlSearch & " AND (IES_installationDate like '"&installDate&"')" motsRecherches=motsRecherches+"<b><span class='Style5'>Creation user</span></b> <span class='Style5'> "&installDate&"</span>" & " " end if if retireDate > "" then sqlSearch=sqlSearch & " AND (IES_retirementDate like '"&retireDate&"')" motsRecherches=motsRecherches+"<b><span class='Style5'>Retirement Date</span></b> <span class='Style5'> "&retirementDate&"</span>" & " " end if if createUser > "" then sqlSearch=sqlSearch & " AND (IES_recCreationUser like '"&createUser&"')" motsRecherches=motsRecherches+"<b><span class='Style5'>Creation user</span></b> <span class='Style5'> "&createUser&"</span>" & " " end if if createDate > "" then sqlSearch=sqlSearch & " AND (IES_recCreationDate like '"&createDate&"')" motsRecherches=motsRecherches+"<b><span class='Style5'>Creation date</span></b> <span class='Style5'> "&createDate&"</span>" & " " end if if modifDate > "" then sqlSearch=sqlSearch & " AND (IES_lastModifUser like '"&lastModifDate&"')" motsRecherches=motsRecherches+"<b><span class='Style5'>Last modification date</span></b> <span class='Style5'> "&lastModifDate&"</span>" & " " end if if modifUser > "" then sqlSearch=sqlSearch & " AND (IES_lastModifUser like '"&lastModifUser&"')" motsRecherches=motsRecherches+"<b><span class='Style5'>Last modification user</span></b> <span class='Style5'> "&lastModifUser&"</span>" & " " end if sqlSearch=sqlSearch & " order by " & trisql set rsSearch=server.CreateObject("ADODB.recordset") ' Par défaut, un recordset est ouvert en lecture seule (constante ADO adLockReadOnly = 1) et en avance seule (constante ADO adOpenForwardOnly = 0). ' Or, pour pouvoir compter le nombre de lignes renvoyées par l'exécution de la requête, le curseur doit pouvoir se déplacer dans les deux sens (en avant et en arière) ' afin d'être repositionné sur le premier enregistrement une fois le comptage effectué. Il faut donc paramétrer le recordset (avant ouverture ou lors de son ouverture) au minimum avec un curseur statique (constante ADO adOpenStatic = 3) ou par clés (constante ADO adOpenKeyset = 1) pour pouvoir utiliser la propriété ADO RecordCount. ' Paramétrage du type de curseur:adOpenKeySet 3 ' Le jeu d'enregistrement est figé : tout ajout sur la base de donnée ne sera pas repercuté sur le Recordset. ' paramétrage du type de verrou:adLockPessimistic 1 rsSearch.open sqlSearch,conn, 3,1 ' Lorsqu'aucun résultat n'a été trouvé, un message le signale à l'utilisateur if rsSearch.recordcount=0 then erreur="No results have been found !" response.redirect("searchAdd_IES.asp?erreur="+Erreur+"&action="+Action) end if ' Selon le nombre de résultats trouvés, l'affichage est différent ' en mode formulaire, lorsqu'il y a un résultat if rsSearch.recordcount=1 then page="delChangeCopyIES.asp" ID=cstr(rsSearch.fields("IES_id")) response.Redirect(page &"?Id="+ID) end if if rsSearch.recordcount>1 then ' en mode tableau, si résultat de la recherche >1 Nmax = 10 ' nombre par page Ncur = 0 ' n° de la fiche courante Ndeb = 0 ' 1ère fiche transmise par l'URL %> <html> <head> <title>Document sans titre</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <link href="../templates/monstyle.css" rel="stylesheet" type="text/css"> <style type="text/css"> <!-- .Style4 { font-size: 12px; font-family: "Comic Sans MS"; } .Style5 { font-size: 11px; font-family: "Times"; } --> </style> </head> <body class="ImageFont"> <blockquote> <p align="center" class="GrandTitre">Results of your search on IES : <%=rsSearch.recordcount%></p> <%response.Write(motsRecherches &"<br>")%> <blockquote></blockquote> <form name='results'> <script language="JavaScript" type="text/JavaScript"> /* Fonction permettant de récupérer l'identifiant de l'IES sélectionné par l'utilisateur Elle prend en paramètre "chaine" correspondant à rec_no. Lorsque l'utilisateur sélectionne un IES, il est dirigé sur la fiche détaillée de l'IES choisi */ function afficheID(chaine) { var valueId=eval("document.results.IESid"+chaine+".value") window.location="delChangeCopyIES.asp?Id="+valueId; } </script> <table align="center" cols="8"> <!-- Affichage dynamique des éléments du tableau, le nom de chaque élément est incrémenté --> <tr> <td class="affResultats"></td> <td class="affResultats"> Name<br> <a href="#"><img src="../images/arrow_up.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&lstStatus=<%=IESstatus%>&tri=IES_name desc'"></a>     <a href="#"><img src="../images/arrow_down.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&lstStatus=<%=IESstatus%>&tri=IES_name asc'"></a> </td> <td class="affResultats"> Version<br> <a href="#"><img src="../images/arrow_up.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&lstStatus=<%=IESstatus%>&tri=IES_version desc'"></a>     <a href="#"><img src="../images/arrow_down.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&lstStatus=<%=IESstatus%>&tri=IES_version asc'"></a> </td> <td class="affResultats"> Category<br> <a href="#"><img src="../images/arrow_up.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&lstStatus=<%=IESstatus%>&tri=IES_category desc'"></a>     <a href="#"><img src="../images/arrow_down.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&lstStatus=<%=IESstatus%>&tri=IES_category asc'"></a> </td> <td class="affResultats"> Service<br> <a href="#"><img src="../images/arrow_up.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&lstStatus=<%=IESstatus%>&tri=IES_Dpt_id desc'"></a>     <a href="#"><img src="../images/arrow_down.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&lstStatus=<%=IESstatus%>&tri=IES_Dpt_id asc'"></a> </td> <td class="affResultats" nowrap> Business owner<br> <a href="#"><img src="../images/arrow_up.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&busif=<%=txtBusinessOwner%>&lstStatus=<%=IESstatus%>&tri=IES_businessOwner desc'"></a>     <a href="#"><img src="../images/arrow_down.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&busif=<%=txtBusinessOwner%>&lstStatus=<%=IESstatus%>&tri=IES_businessOwner asc'"></a> </td> <td class="affResultats"> Development<br> <a href="#"><img src="../images/arrow_up.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&busif=<%=txtBusinessOwner%>&dvlpt=<%=lstDevelopment%>&lstStatus=<%=IESstatus%>&tri=IES_development desc'"></a>     <a href="#"><img src="../images/arrow_down.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&busif=<%=txtBusinessOwner%>&dvlpt=<%=lstDevelopment%>&lstStatus=<%=IESstatus%>&tri=IES_development asc'"></a> </td> <td class="affResultats"> Deployment<br> <a href="#"><img src="../images/arrow_up.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&busif=<%=txtBusinessOwner%>&dvlpt=<%=lstDevelopment%>&deploy=<%=lstDeployment%>&lstStatus=<%=IESstatus%>&tri=IES_deployment desc'"></a>     <a href="#"><img src="../images/arrow_down.gif" width="13" height="13" border="0" class="MisEnFormeImage" onClick="window.location='affResults.asp?Action=<%=Action%>&Confirmation=<%=Confirmation%>&nom=<%=nomf%>&version=<%=verf%>&categ=<%=category%>&dpt=<%=lstService%>&busif=<%=txtBusinessOwner%>&dvlpt=<%=lstDevelopment%>&deploy=<%=lstDeployment%>&lstStatus=<%=IESstatus%>&tri=IES_deployment asc'"></a> </td> <td colspan="1"></td> </tr> <tr> <td colspan="8"><hr></td> </tr> <% ' Affichage des résultats une ligne par enregistrement dim rec_no ' rec_no: permet de compter le nombre de lignes lors de l'affichage de la requête rec_no=0 if request.queryString("num")<>"" then _ Ndeb = Cint(request.queryString("num")) ' Réquête permettant de définir les rôles associés à l'utilisateur connecté sqlVerif="SELECT Function_List.FL_name FROM UserGroup_Function, Function_List "_ &"WHERE UserGroup_Function.UGF_UG_id ="&session("profilId")&" AND UserGroup_Function.UGF_FL_id = Function_List.Function_List_id" set rsVerif=server.CreateObject("ADODB.recordset") rsVerif.open sqlVerif,conn, 3,1 dim bool_IES_RW, bool_IES_RWD, bool_IES_R bool_IES_R= false bool_IES_RW = false bool_IES_RWD = false rsVerif.movefirst do while not rsVerif.eof if rsVerif.fields("FL_name")="IES_RW" or rsVerif.fields("FL_name")="IES_RWD" then bool_IES_RW =true bool_IES_RWD =true end if if rsVerif.fields("FL_name")="IES_R" then bool_IES_R =true end if rsVerif.movenext loop ' tant qu'il y a des fiches do while not rsSearch.eof and Ncur<Nmax+Ndeb rec_no=rec_no+1 ' si elle est à afficher if Ncur >= Ndeb then %> <tr> <td class="affRes" align="center"><%=rec_no%></td> <td class="affRes"><%=rsSearch.fields("IES_name")%></td> <td class="affRes"><%=rsSearch.fields("IES_version")%></td> <td class="affRes"><%=rsSearch.fields("IES_category")%></td> <td class="affRes"> <% ' Récupération de l'identifiant du département ' Création d'une requête permettant de récupérer le nom du département pour l'affichage idDpt=rsSearch.fields("IES_Dpt_id") sqlDpt="SELECT Department.Department_id,Department.Dpt_name, IES.IES_Dpt_id FROM Department,IES "_ &" WHERE Department.Department_id=IES.IES_Dpt_id AND IES.IES_Dpt_id="&idDpt&"" set rsDpt=server.CreateObject("ADODB.recordset") rsDpt.open sqlDpt, conn, 3,3 ' Si l'IES possède un département, alors on affiche son nom if not rsDpt.eof then response.Write(rsDpt.fields("Dpt_name")) end if rsDpt.close set rsDpt=nothing %> </td> <td class="affRes"><%=rsSearch.fields("IES_businessOwner")%></td> <td class="affRes"><%=rsSearch.fields("IES_development")%></td> <td class="affRes"><%=rsSearch.fields("IES_deployment")%></td> <% if bool_IES_RW=true or bool_IES_RWD=true then%> <td align="center"> <input name="Edit<%=rec_no%>" type="button" value="Edit" onClick="afficheID(<%=rec_no%>)" style="width:40px"> </td><%else%> <td align="center"> <input name="View<%=rec_no%>" type="button" value="View" onClick="afficheID(<%=rec_no%>)" style="width:40px"> </td> <%end if%> <input type="hidden" name="IESid<%=rec_no%>" value="<%=rsSearch.fields("IES_id")%>"> </tr> <tr> <td colspan="8"><hr></td> </tr> <% end if ' fiche suivante rsSearch.movenext ' une de plus Ncur = Ncur + 1 loop%> </table> <table cellpadding=3 align="center"><tr> <% ' Navigation ' Des fiches avant ? if Ndeb > 0 then%> <td> <A href="?num=<%=Ndeb-Nmax%>&lstStatus=<%=IESstatus%>&Action=<%=Action%>&Confirmation=<%=Confirmation%>">Previous</A> </td> <%end if ' N° des pages Npag = int(rsSearch.recordCount/Nmax) if Npag < rsSearch.recordCount/Nmax then Npag = Npag + 1 for i = 1 to Npag%> <td> <% ' Page courante ? if Ndeb = (i-1)*Nmax then%> Page <%=i%> <%else%> <A href="?num=<%=(i-1)*Nmax%>&lstStatus=<%=IESstatus%>&Action=<%=Action%>&Confirmation=<%=Confirmation%>" > <%=i%> </A> <%end if%> </td> <%next ' Des fiches après ? if not rsSearch.eof then%> <td> <A href="?num=<%=Ncur%>&lstStatus=<%=IESstatus%>&Action=<%=Action%>&Confirmation=<%=Confirmation%>">Next >></A> </td> <%end if%> </tr></table> <div align="center"><a href="#" class="MisEnFormeImage"> <img src="../images/back.gif" width="43" height="37" border="0" onClick="window.history.back()"></a> </div> </form> </body> </html> <% end if rsVerif.close set rsVerif=nothing rsSearch.close set rsSearch=nothing conn.close %>