<% sBaseDeDatos = left(server.MapPath(Request.ServerVariables("PATH_INFO")),len(server.MapPath(Request.ServerVariables("PATH_INFO")))-10) sBaseDeDatos = sBaseDeDatos + "_database\ecommerce.mdb" sDriver = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" + sBaseDeDatos Set conConnection = Server.CreateObject("ADODB.Connection") Set resResults = Server.CreateObject("ADODB.Recordset") sSQL = "SELECT * FROM Productos WHERE Rubro = 'Libros' ORDER BY NomProducto" conConnection.Open sDriver resResults.Open sSQL, conConnection Contador = 0 Do Until resResults.EOF If Contador Mod 2 = 0 Then sColor = "F5FFD9" Else sColor = "FFFFFF" End If If Contador = 0 Then %>
Titulo
Descripción
Autor
Precio
Cant.
<%End If%>
<%=resResults("NomProducto")%>
<%=resResults("Descripcion")%>
<%=resResults("Autor")%>
$ <%=resResults("Precio")%>
)">
Agregar
<% Contador = Contador + 1 resResults.MoveNext() Loop conConnection.Close() %>
si desea registrarse haga click
aquí
Ver Lista de Pedido
haga click
aquí
