|
|
| Venta exclusiva para Uruguay |
|
<%
sBaseDeDatos = left(server.MapPath(Request.ServerVariables("PATH_INFO")),len(server.MapPath(Request.ServerVariables("PATH_INFO")))-34)
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")
sCondicion = ""
sGrupo = 0 ' para manejar la cantidad de columnas
sSQL = "SELECT * FROM Productos WHERE CF_SubRubro = 3 ORDER BY NomProducto"
conConnection.Open sDriver
resResults.Open sSQL, conConnection
Contador = 0
PrimeraLetra = "x"
indiceLetra = 1
Dim ColorLetra(2)
ColorLetra(0) = "FF0000"
ColorLetra(1) = "0000FF"
Do Until resResults.EOF
If Contador Mod 2 = 0 Then
sColor = "FFF0F0"
Else
sColor = "FFFFFF"
End If
If Contador = 0 Then
%>
| Producto |
Descripción |
<%End If%>
<%
If PrimeraLetra <> Mid(Trim(resResults("NomProducto")),1,1) Then
PrimeraLetra = Mid(Trim(resResults("NomProducto")),1,1)
If indiceLetra = 1 Then
indiceLetra = 0
Else
indiceLetra = 1
End If
End If
%>
| <%=resResults("NomProducto")%> |
<%=resResults("Descripcion")%> |
<%
Contador = Contador + 1
resResults.MoveNext()
Loop
conConnection.Close()
%>
|
|
Realizar
Pedido |
|
|
|
 |
|
 |
| si desea registrarse haga click aquí |
|
|
 |
|
 |
Ver Lista de Pedido
haga click aquí |
|
|
|
|
|
