- Ambientes
- Productos Metalpur
- Accesorios
- Solicite su catálogo <% 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 and not rstNov.bof then %> <%'end if 'rstNov.close 'cnnNov.close 'set rstNov=nothing 'set cnnNov=nothing %>
<%'=session("areaprof")%>Área profesionales
Diseño y Poliuretano, S.L. <%=year(Date)%>