<% session("empresa")=1 'Cargamos empresa Pandora e idioma español, el idioma luego vendra de la principal if session("idioma")=1 then btnEmpresa="btn_vigarteN.gif" btnEmpresaH="btn_vigarteH.gif" btnFaq="btn_consultasN.gif" btnFaqH="btn_consultasH.gif" btnContact="btn_contactoN.gif" btnContactH="btn_contactoH.gif" elseif session("idioma")=2 then btnEmpresa="btn_vigarteN_en.gif" btnEmpresaH="btn_vigarteH_en.gif" btnFaq="btn_consultasN_en.gif" btnFaqH="btn_consultasH_en.gif" btnContact="btn_contactoN_en.gif" btnContactH="btn_contactoH_en.gif" elseif session("idioma")=3 then btnEmpresa="btn_vigarteN_po.gif" btnEmpresaH="btn_vigarteH_po.gif" btnFaq="btn_consultasN_po.gif" btnFaqH="btn_consultasH_po.gif" btnContact="btn_contactoN_po.gif" btnContactH="btn_contactoH_po.gif" elseif session("idioma")=4 then btnEmpresa="btn_vigarteN_fr.gif" btnEmpresaH="btn_vigarteH_fr.gif" btnFaq="btn_consultasN_fr.gif" btnFaqH="btn_consultasH_fr.gif" btnContact="btn_contactoN_fr.gif" btnContactH="btn_contactoH_fr.gif" end if %> Vigarte
Comenzar búsqueda « <%=session("volver")%>
<%=session("ambientes")%>
Vigarte Consultas Contacto
<%=session("ambientes")%>
<%=session("productos")%>
<%=session("solicitecat")%>
<% dim cnnNov dim rstNov dim sSQl set cnnNov = Server.CreateObject("ADODB.Connection") set rstNov = Server.CreateObject("ADODB.Recordset") cnnNov.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="&Server.MapPath("bbdd/grupop.mdb") if err.number<>0 then response.write err.description set rst=nothing set cnn=nothing response.end end if sSql= "select * from productos where idProducto in (select idProducto from novedades where visible=true)" rstNov.open sSql, cnnNov, 1, 2 if not rstNov.eof then %>
<%=session("novedades")%>
<%end if rstNov.close cnnNov.close set rstNov=nothing set cnnNov=nothing %>

<%=session("areaprof")%>

"/>

Vigarte <%=year(Date)%>