<% Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DSN=beaupere" Set cmd = Server.CreateObject("ADODB.Command") Set cmd.ActiveConnection= cn cmd.CommandType = 1 Set rs = Server.CreateObject("ADODB.Recordset") Set rs.Source = cmd On Error Resume Next cmd.CommandText = "Select * From promo" rs.Open do while not rs.eof maz_img_prod = rs("img_prod") maz_nom_prod = rs("nom_prod") maz_marque = rs("marque") maz_caract = rs("caract") maz_prix = rs("prix") %> <% rs.MoveNext Loop rs.Close cn.Close %>

  Designation du produit

  Marque

  Caractéristiques
<%Response.Write(maz_img_prod)%>  <%'Response.Write(maz_nom_prod)%>

<%Response.Write(maz_marque)%>
<%Response.Write(maz_caract)%>
<%Response.Write(maz_prix)%>
  
COMMANDER 

- L'entreprise Beaupère - La métrologie - Table de mesure COME - Promotions - Contacts, renseignements -

Copyright © 2000 Beaupere Métrologie SARL. Tous droits réservés.