<%
dim cn, 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
if mysql then
rs.open "SELECT DISTINCT FABRICANTES.DescListado FROM FABRICANTES WHERE FABRICANTES.Activo=1 AND FABRICANTES.ActivoWeb=1 AND FABRICANTES.TIPO='HOGAR' ORDER BY FABRICANTES.DescListado", cn
else
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
end if
%>
<%
Do While not rs.EOF
nombrefab=rs("desclistado")
%>
<% = nombrefab %>
<%
rs.Movenext
Loop
rs.close
%>
|