<%
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
%>
<%
Do While not rs.EOF
nombrefab=rs("desclistado")
%>
 <% = nombrefab %>
<%
rs.Movenext
Loop
rs.close
%>
|