%@LANGUAGE="VBSCRIPT"%>
<%
idcat01 = Request.QueryString("idcategoria")
if (idcat01 <> "") then
idcat01 = Request.QueryString("idcategoria")
else
idcat01 = "1"
end if
Select case idcat01
Case 1
idcat = "quesos_intro.htm"
Case 2
idcat = "quesos_tipos.htm"
Case 3
idcat = "quesos_cruda.htm"
Case 4
idcat = "quesos_sabor.htm"
Case 5
idcat = "quesos_curacion.htm"
Case 6
idcat = "quesos_denomi.htm"
Case 7
idcat = "quesos_pasta.htm"
Case 8
idcat = "quesos_textura.htm"
Case 9
idcat = "quesos_cata.htm"
Case 10
idcat = "quesos_vinos.htm"
Case 11
idcat = "quesos_salud.htm"
Case 12
idcat = "quesos_consejo.htm"
Case 13
idcat = "quesos_fabrica.htm"
Case 14
idcat = "quesos_etiquetado.htm"
End Select
%>
Cayetano y Euromarket >>> Hipermercado y Supermercados <<<