Fabricantes DECO Office Design. El Diseño de Oficinas a su alcance. Software 3D para el Mundo del Mueble Oficina.

<% mysql = true %> Fabricantes DECO Office Design. El Diseño de Oficinas a su alcance. Software 3D para el Mundo del Mueble Oficina.

<% dim cn dim rs, mensajeError set cn = Server.CreateObject("adodb.connection") set rs = Server.CreateObject("adodb.recordset") if mysql then cn.ConnectionString = conexion else cn.ConnectionString = "dsn=acaes.com.data" end if cn.Open rs.open "SELECT DISTINCT FABRICANTES.DescListado FROM FABRICANTES WHERE FABRICANTES.Activo=True AND FABRICANTES.ActivoWeb=True AND FABRICANTES.TIPO='oficina' ORDER BY FABRICANTES.DescListado", cn %>

Productos > DECO Office Design > Fabricantes

Fabricantes informatizados en DECO Office Design

<% dim inicial inicial = "0" Do While not rs.EOF nombrefab=rs("desclistado") nuevo=Mid(nombrefab,1,1) inicial=Cstr(inicial) nuevo=Cstr(nuevo) if(nuevo<>inicial) then Response.write("" + nuevo + " ") 'response.write(nuevo + " ") inicial=nuevo end if rs.Movenext 'inicial=Mid(nombrefab,1,1) Loop rs.close %>

Listado completo