Salut tt le monde,
J'ai un pb avec mes liens... l'utilisateur part depuis une page où il peut faire pls choix. En fonction de son choix (genre recherche par société, par secteur..) il tombe sur une page où est affiché le résultat de sa recherche... maintenant ça se complique : j'ai fait en sorte que si il existe pls réponses, une seule solution s'affiche par page et un lien vers la réponse précédente apparait... or lorsque je clique sur ce lien et bien la page qui s'affiche est tjrs la même (cela dit le nombre exact de liens est crée, càd que si g 4 réponses alors il y aura 4 liens!!! malheuresement tous identiques!!)
Voici le code asp utilisé (enfin l'essentiel)
<% @Language="VBScript"%>
<%
p_societe = request.form("societe")
p_societe = replace (p_societe,"'","''")
p_secteur = request.form("secteur")
p_solutions = request.form("solutions")
Select Case Request.QueryString("Direction")
Case ""
Session("CurrentPage") = 1
Case "Next"
Session("CurrentPage") = Session("CurrentPage") + 1
Case "Prev"
Session("CurrentPage") = Session("CurrentPage") - 1
End Select
Const adOpenKeyset = 1
'Ouverture d'une connexion à la base de données Access qui stocke les
'informations sur les clients. La connexion est non DSN.
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString= "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("bases/success.mdb")
objConn.open
Dim strSQL
strSQL = "SELECT * FROM table1 where societe like '%" & p_societe & "%' OR secteur like '%" & p_secteur & "%' OR solutions like '%" & p_solutions & "%' "
'Création d'une instance de l'objet Recordset objRS
Dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
'ouverture du recordset avec un curseur clés
objRS.PageSize = 1
objRS.Open strSQL, objConn, adOpenKeyset
objRS.AbsolutePage = CLng(Session("CurrentPage"))
%>
---------------------------------dans le body----------------------
<% if......
else
Dim i
For i = 1 To objRS.PageSize ....... end if%>
<% objRS.MoveNext
If objRS.EOF then
exit for
End If
Next
%>
'Le problème:
<%If CLng(Session("CurrentPage")) > 1 Then %>
<a href="recherche.asp?Direction=Prev"> <% End If %>
<%If CLng(Session("CurrentPage")) < objRS.Pagecount Then %> <a href="recherche.asp?Direction=Next">
<% End If %>
----------------------------------------
Merci pour votre aide