Problème d'URL rewriting

J'arrive enfin à éxécuter mes pages même si elles ont des arguments dans l'URL, mais j'ai un autre problème. J'ai un probleme avec la pagination de mes pages, en fait ca marche plus.
Voici mon code pour l'engine:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
Dim fsoPage, strPath, fsoFolder
 
' *** @comments : Création d'un objet fichier
Set fsoPage = Server.CreateObject("Scripting.FileSystemObject")
strPath = Server.MapPath(".")
 
strDossierFichierArg = Replace(Request.QueryString("page"), ".", "\")
i = instr(strDossierFichierArg,"?")
j = len(strDossierFichierArg)
strArg = right(strDossierFichierArg,j-i+1)
if i > 0 then
	'si il y a des arguments dans l'url
	strDossierFichier = left(strDossierFichierArg,i-1)
	'path du fichier
	strExist = strPath&"\"&strDossierFichier&".asp"
	'path de la page à éxecuter
	strExecute = strDossierFichier&".asp"
else
	'si il n'y a pas d'argument
	strDossierFichier = Replace(Request.QueryString("page"), ".", "\")
	'path du fichier
	strExist = strPath&"\"&strDossierFichier&".asp"
	'path de la page à éxecuter
	strExecute = strDossierFichier&".asp"
end if
 
' *** @comments : Test si on a un element
If Request.QueryString("page") <> Empty And fsoPage.FileExists(strExist) Then	
 
	Server.Execute(strExecute)
 
Else
 
	Server.Execute("Framework/Messages/404-1.asp")
 
End If

et voici ma pagination

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
 
' =================== '
'		Bloc 4		  '
' =================== '
 
'Requête SQL généré en fonction de la recherche
sql = "SELECT ORG_UserOrg,ORG_DateCreat, ORG_CodeStructure_FK FROM PSO_ORGANISME "&strNom&strDateDeb&strDateFin&strStructure&" ORDER BY ORG_DateCreat ASC"
sql2 = "SELECT COUNT(*) AS res FROM PSO_ORGANISME "&strNom&""&strDateDeb&""&strDateFin&""&strStructure&""
Conn.execute sql2
Set rs2=conn.execute(sql2)
Set rs = server.createobject("ADODB.Recordset")
rs.Open sql,Conn , 3, 3
Nmax = 30 ' nombre par page
Ncur = 0 ' n° de la fiche courante
Ndeb = 0 ' 1ère fiche transmise par l'URL
Npag = int(RS.recordCount/Nmax) + 1
if request.queryString("num")<>"" then 
   Ndeb = Cint(request.queryString("num")) + 1
end if
%>
<%
' =================== '
'		Bloc 5		  '
' =================== '
%>
 
<div id = CadreTab>
	<div id=nom>Nom</div>
	<div id=date>Date de Création</div>
	<div id=struct>Structure</div>
	<div id=fusion>Fusion</div>
	<div id=modif>Modifier</div>
	<div id=del>Suppression</div>
	<div class="Texte3">
		<%while not rs.EOF and Ncur<Nmax+Ndeb %>
			<%if Ncur >= Ndeb then%>
			<!----------------Affichage du nom de l'organisme------------>
			<div id=resNom>
				<%'test si la chaine de caractère fait plus de 20 caractères
				if len(rs("ORG_UserOrg"))>25 then					
					response.write(left(rs("ORG_UserOrg"),25)&"...")
				else
					response.write(rs("Org_UserOrg"))
				end if
				%>
			</div>
			<!----------------------------------------------------------->
			<!------Affichage de la date de création de l'annonce-------->
			<div id=resDate>
				<%
				if len(rs("ORG_DateCreat"))>"" then					
					response.write(left(rs("ORG_DateCreat"),10)) 
				else
					response.write("-") 
				end if
				%>
			</div>
			<!----------------------------------------------------------->
			<!----------Affichage du code structure de l'annoce---------->
			<div id=resStruct>
				<%'test si le code structure est différent de NULL
				if rs("ORG_CodeStructure_FK")<>"" then 
					response.write(rs("ORG_CodeStructure_FK")) 
				else 
					response.write("-") 
				end if
				%>
			</div>
			<!----------------------------------------------------------->
			<div id=img2><img src="Images/fusion.jpg" width="13" height="13" alt="Fusion"></div>
			<div id=img2><img src="Images/update.jpg" width="13" height="13" alt="Modifier"></div>
			<div id=img><img src="Images/corbeille.jpg" width="13" height="13" alt="Supprimer"></div>
			<%end if%>
			<%rs.movenext%>
			<%Ncur = Ncur + 1%>
		<%wend%>
	</div>
		<div id=res>Nombres d'organisme : <%=rs2("res")%></div>
		<div id=mid></div>
		<div id=mid></div>
		<div id=page>Page : <%=Ndeb+1%>/<%=Npag%></div>
</div>
</p>		
<center><%
' Des fiches avant ?
if Ndeb > 0 then%>
      <A href="Accueil.asp?page=Organisme.SearchOrganisme-Action?num=<%=Ndeb-Nmax%>">Retour</A>
<%end if%>
<% ' N° des pages
Npag = int(RS.recordCount/Nmax)
if Npag < RS.recordCount/Nmax then Npag = Npag + 1
for i = 1 to Npag
   ' Page courante ?
   if Ndeb = (i-1)*Nmax then%>
     <%=i%>
   <%else%>
      <A href="Accueil.asp?page=Organisme.SearchOrganisme-Action?num=<%=(i-1)*Nmax%>">[<%=i%>]</A>
   <%end if
next%>
 
<% ' Des fiches après ?
if not RS.eof then%>
      <A href="Accueil.asp?page=Organisme.SearchOrganisme-Action?num=<%=Ncur%>">Suite</A>
<%end if
%></center><%
rs.close : set rs=nothing%>
<% conn.close : Set conn=nothing %>