% @language=vbscript %> <% dim objconn, objrec 'Objet ASP pour naviguer dans la base de donnée Access set objconn=server.createobject ("adodb.connection") set produit=server.createobject ("adodb.recordset") chemin=Server.MapPath(".") & "\Produits.mdb" strconn="provider=Microsoft.Jet.OLEDB.4.0;data source="& chemin &"" objconn.open strconn collec="green" if not request.queryString("collec")="" then collec=request.queryString("collec") end if strsql="SELECT * FROM Collections WHERE Ref_collec=" & quote & collec & quote produit.open strsql, objconn, adOpenForwardOnly, adLockReadOnly, adCmdSql nom_collec=produit("Nom_collec") produit.close objconn.close %>
![]() |
![]() |
![]() |
![]() |
||||||||
Catalogue MAITO
|
||||||||||||||||||||||