<% Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\base\productos.mdb")) set pro=server.createobject("ADODB.Recordset") pro.cursortype=adopenstatic pro.ActiveConnection = Conexion sql= "SELECT * FROM productos ORDER BY categoria,descripcion" pro.Open sql cat="" %>
<% while not pro.eof if(pro("categoria")<>cat) then if(cat<>"") then %> <%end if cat=pro("categoria") %> <%end if%> <% pro.movenext wend %> <% conexion.Close Set prod = Nothing Set conexion = Nothing %>
Precios sujetos a modificaciones
<%=pro("categoria")%>
Descripción
Precio
<%=pro("descripcion")%>
<%=formatNumber(pro("precio"),2)%>
Precios sujetos a modificaciones
 
Haga su pedido aqui

Apellido y Nombre

Direccion de respuesta

Pedido
LISTA DE PRECIOS