Bonjour a tous je souhaite recuperer mes parametres d'url de ma page ma page1.asp vers ma page rapport.asp afin de filtrer l'affichage de mes données :

[ Lien ]


voici la page rapport.asp
il faut filtrer via les 'id de l'url ci vous pouviez me trouver le code merci beaucou^p

<%@language=vbscript%>
<!-- #include file="fpdf.asp" -->
<%
 '----------------------------------------------------------------------
 ' Initialisatin de la base de données
 '----------------------------------------------------------------------
 dim Conn
 Set Conn=Server.CreateObject("ADODB.Connection")
 Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("/data/datasalon.mdb")
 
 '----------------------------------------------------------------------
 ' Variables et initialisation 
 '----------------------------------------------------------------------
 Set pdf=CreateJsObject("FPDF")
 set objInformations = server.createobject("ADODB.RECORDSET")
 objInformations.open "Select * from salons order by date_de_reservation;",conn
 pdf.CreatePDF()
 pdf.SetPath("fpdf/")
 pdf.Open()
 pdf.AddPage()
 
 '----------------------------------------------------------------------
 ' Entête du document
 '----------------------------------------------------------------------
 pdf.SetFont "Arial", "",16
 pdf.SetTextColor 255,255,255
 pdf.Cell 0,10, "Rapport Journalier",0,1,"C",1
 
 pdf.SetFont "Arial", "B",10
 pdf.SetFillColor 192,192,192
 pdf.SetTextColor 0,0,0
  
 '----------------------------------------------------------------------
 ' Liste des champs de la requête
 '----------------------------------------------------------------------
  pdf.Cell 25,5, "Salon", 1,0,"C"
 pdf.Cell 55,5, "Date de reservation", 1,0,"C"
 pdf.Cell 55,5, "remarques",1,1,"C"
 pdf.Cell 25,5, "remarques",1,1,"C"
 pdf.SetFont "Arial", "",10
 while not objInformations.EOF

  ' Liste des résultats
  pdf.Cell 25,5, "" & objInformations("salon"), 1,0,"C"
  pdf.Cell 55,5,"" & objInformations("date_de_reservation"), 1,0,"C"
  pdf.Cell 55,5,"" & objInformations("remarques"), 1,1,"C"
  
  
  objInformations.movenext
 wend
   
 '----------------------------------------------------------------------
 ' Affichage de l'espace pour inscrire des remarques
 '----------------------------------------------------------------------
 pdf.Cell 0,5, " ",0,1
 pdf.Cell 0,5, "Remarques" ,"TLR",1,"C"
 pdf.Cell 0,5, "" ,"LR",1,"C"
 pdf.Cell 0,5, "" ,"LR",1,"C"
 pdf.Cell 0,5, "" ,"LR",1,"C"
 pdf.Cell 0,5, "" ,"LR",1,"C"
 pdf.Cell 0,5, "" ,"LR",1,"C"
 pdf.Cell 0,5, "" ,"BLR",1,"C"
 pdf.Close()
 
 '----------------------------------------------------------------------
 ' Permet d'enregistrer automatiquement le fichier dans le c:\
 '----------------------------------------------------------------------
 'pdf.Output "c:\patante.pdf"
 
 '----------------------------------------------------------------------
 ' Permet d'afficher une boîte de "Save As" Pour enregistrer le document PDF créé
 '----------------------------------------------------------------------
 'pdf.Output "",true
 
 '----------------------------------------------------------------------
 ' Permet d'afficher le pdf tout simplement à l'écran
 '----------------------------------------------------------------------
 pdf.Output()
 
%>