Nosodes - Productos Miel

<%If Request.QueryString("cod") = "miel" Then%> <%ElseIf Request.QueryString("cod") = "cosmeticos" Then%> <%ElseIf Request.QueryString("cod") = "life" Then%> <%ElseIf Request.QueryString("cod") = "naturales" Then%> <%ElseIf Request.QueryString("cod") = "herboristeria" Then%> <%ElseIf Request.QueryString("cod") = "insienso" Then%> <%ElseIf Request.QueryString("cod") = "libros" Then%> <%End If%>

<% sBaseDeDatos = left(server.MapPath(Request.ServerVariables("PATH_INFO")),len(server.MapPath(Request.ServerVariables("PATH_INFO")))-14) 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 If Request.QueryString("cod") = "miel" Then sCondicion = "WHERE CF_SubRubro = 4" sGrupo = 1 ElseIf Request.QueryString("cod") = "cosmeticos" Then sCondicion = "WHERE CF_SubRubro = 5" sGrupo = 2 ElseIf Request.QueryString("cod") = "life" Then sCondicion = "WHERE CF_SubRubro = 10" sGrupo = 1 ElseIf Request.QueryString("cod") = "naturales" Then sCondicion = "WHERE CF_SubRubro = 6" sGrupo = 1 ElseIf Request.QueryString("cod") = "herboristeria" Then sCondicion = "WHERE CF_SubRubro = 7" sGrupo = 1 ElseIf Request.QueryString("cod") = "insienso" Then sCondicion = "WHERE CF_SubRubro = 8" sGrupo = 1 ElseIf Request.QueryString("cod") = "libros" Then sCondicion = "WHERE CF_SubRubro = 8" sGrupo = 3 End If sSQL = "SELECT * FROM Productos " & sCondicion & " ORDER BY NomProducto" conConnection.Open sDriver resResults.Open sSQL, conConnection Contador = 0 Do Until resResults.EOF If Contador Mod 2 = 0 Then sColor = "FFF8E8" Else sColor = "FFFFFF" End If If Contador = 0 Then %> <%End If%> <% Contador = Contador + 1 resResults.MoveNext() Loop conConnection.Close() %>

Producto	Descripción	Cant.	Precio
<%=resResults("NomProducto")%>	<%=resResults("Descripcion")%>		$ <%=resResults("Precio")%>	)">Agregar

<%If Request.QueryString("cod") = "life" Then%>

Otros productos naturales

<%End If%>