|
<%if Request.querystring("Tipo_Producto") <> "" then %>
>
<%
tipo_producto = Request.querystring("Tipo_Producto")
else%>
>
<%
tipo_producto = Request.form("Tipo_Producto")
End if%>
<%
'------------------- MUESTRO LAS FOTOS -----------------------
sSQL="Select id_producto, descripcion_ingles as descripcion, alltrim(imagen) as imagen From Productos where tipo_producto = " & Tipo_Producto & _
" group by imagen"
ors.Open sSql, oconn
if (not(ors.EOF) and not(ors.BOF)) then
Response.write ""
while (not(ors.EOF))
Response.Write "![](../../" & trim(Ors("Imagen")) & "_m.jpg)
" & ors("Id_Producto") & " - " & ors("Descripcion") & " | "
ors.MoveNext
if not(ors.EOF) then
Response.Write "
" & ors("Id_Producto") & " - " & ors("Descripcion") & " | "
ors.MoveNext
else
Response.Write " | "
end if
if not(ors.EOF) then
Response.Write "
" & ors("Id_Producto") & " - " & ors("Descripcion") & " | "
ors.MoveNext
else
Response.Write " | "
end if
Response.Write " "
Wend
Response.write " "
end if
ors.Close
'------------------- FIN MUESTRO LAS FOTOS -----------------------
set ors = nothing
oConn.Close
set oConn = Nothing
%>
|
|
|