|
Productos > DECO Design > Fabricantes |
Fabricantes informatizados en DECO Design |
|
<%
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
%>
<%
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 |
|