% Ref = Request("Art") 'Response.Write Ref Set conn1 = Server.CreateObject("ADODB.Connection") connstring= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base\infos.mdb") conn1.Open connstring If Ref <> "" Then sql1="SELECT * from Articles, Icones, Couleurs WHERE Articles.Categorie = Couleurs.Categorie AND Couleurs.NumCat = Icones.NumCat AND Ref="& Ref 'sql1="SELECT * from Articles Where Ref="& Ref Set Rs1= Server.CreateObject("ADODB.Recordset") Rs1.Open sql1, conn1, 3, 3 Else sql1="SELECT * from Articles, Icones, Couleurs WHERE Articles.Categorie = Couleurs.Categorie AND Couleurs.NumCat = Icones.NumCat" 'sql1="SELECT * from Articles" Set Rs1= Server.CreateObject("ADODB.Recordset") Rs1.Open sql1, conn1, 3, 3 Rs1.MoveLast End If %>
![]() |
|
|||||||||||
|
||||||||||||
|
|
||||||
|
|
|
|||||
| Afin d'avoir accès aux offres enregistrées au format PDF, vous pouvez télécharger gratuitement le programme Acrobat Reader 6.01 en cliquant sur l'icône ci-contre (9,4 mb) afin de l'installer sur votre poste. | ||||||
|
Communauté d'Agglomération Fréjus Saint Raphaël - Rue des Châtaigniers (rond-point A.Karr) - 83700 SAINT-RAPHAEL |
||||||