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