<% mysql = true %>
<% 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.ConnectionString="Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:\Documents and Settings\elara.ACA\Mis documentos\Web\acaes\Data\Acaweb.mdb" cn.open rs.open "SELECT DISTINCT FABRICANTES.DescListado FROM FABRICANTES WHERE FABRICANTES.Activo=True AND FABRICANTES.ActivoWeb=True AND FABRICANTES.TIPO='hogar' ORDER BY FABRICANTES.DescListado", cn %>
Productos > DECO Design > Fabricantes
Fabricantes informatizados en DECO 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
 
 
Copyright © 2005  Architecture & Computer Aids ACA ESPAÑA, S.L.  C/ Lira, 1. 28007 MADRID  Tel.: 91 557 21 21  Fax: 91 557 21 25  aca@acaes.com