%
nivel = 1
session("idi_error") = "es"
IdSeccion = 2
Acceso = 1
IdTipo = ValidaId(Request("IdTipo"))
IdProducto = ValidaId(Request("IdProducto"))
set cnn = AbrirConexionMDB()
CodigoEncabezado "Matadero de Pamplona", true, nivel
EncabezadoMenu IdSeccion, Acceso, IdTipo
if cint(IdProducto) = 0 then
if cint(IdTipo) = 0 then
'tipos superiores%>
No hay productos disponibles.
<%end if
end if
end if
else
'ficha producto
strWhere = "SELECT * FROM Productos WHERE IdProducto=" & IdProducto
set rs=server.createObject("adodb.recordset")
rs.Open strWhere, cnn, 1, 1%>
<%=ucase(rs("TituloES"))%>
<%if rs("TextoES") <> "" then%>
DESCRIPCIÓN<%=rs("TextoES")%>
<%end if
if rs("ConservacionES") <> "" then%>
CONSERVACIÓN<%=rs("ConservacionES")%>
<%end if
if cint(rs("Precio")) <> 0 then%>
PRECIO<%=PonerMoneda(rs("Precio")," €",2)%> / <%=iif(rs("UdKg")=0,"ud.","kg.")%>
El precio estará vigente para pedidos que se recojan hasta el <%=DameLunesCercano("castellano")%> (inclusive)
<%end if
strWhere = "SELECT * FROM Recetas WHERE IdProducto=" & IdProducto & " AND Activo=1 ORDER BY Prioridad"
set rsReceta=server.createObject("adodb.recordset")
rsReceta.Open strWhere, cnn, 1, 1
if not rsReceta.eof then%>
<%end if%>
Realizar pedido
Volver