<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
set cn = Server.CreateObject("ADODB.connection")
Set rstmp = Server.CreateObject("ADODB.Recordset")
Set rstmp1 = Server.CreateObject("ADODB.Recordset")
Set rstmp2 = Server.CreateObject("ADODB.Recordset")
cn.open VarConn
titulo="PRODUCTOS"
flia=""
cat=""
subcat=""
if Request.QueryString("flia")<>"" then
flia=cint(Request.QueryString("flia"))
else
flia=0
end if
if Request.QueryString("cat")<>"" then cat=cint(Request.QueryString("cat"))
if Request.QueryString("subcat")<>"" then subcat=cint(Request.QueryString("subcat"))
%>
<%=Titulo_Sitio%>