<%
Response.Clear()
Response.Buffer=false
%>
<% mysql = true %>
Fabricantes DECO Design. El estándar en Decoración Virtual. Diseño de Muebles por Ordenador en 3D.
Fabricante:
Catálogos:
<%
dim cn
dim rs, rs2, rec, mensajeError, nombrefab
set cn = Server.CreateObject("adodb.connection")
set rs = Server.CreateObject("adodb.recordset")
set rs2 = 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, FABRICANTES.Fichero_Gif FROM FABRICANTES WHERE FABRICANTES.Activo=1 AND FABRICANTES.ActivoWeb=1 AND FABRICANTES.TIPO='HOGAR' ORDER BY FABRICANTES.DescListado", cn
rs.open "SELECT DISTINCT FABRICANTES.DescListado, FABRICANTES.Fichero_Gif, CATALOGOS.DESCRIPCION FROM CATALOGOS, FABRICANTES WHERE CATALOGOS.ID_FABRICANTE=FABRICANTES.CODIGO AND FABRICANTES.Activo=1 AND FABRICANTES.ActivoWeb=1 AND FABRICANTES.TIPO='HOGAR' AND CATALOGOS.VIGENTE=1 AND CATALOGOS.ActivoWeb=1 ORDER BY FABRICANTES.DescListado, CATALOGOS.DESCRIPCION", cn
nombrefab=""
Do While not rs.EOF
Fichero_Gif=rs("Fichero_Gif")
Telefono=""
Fax=""
EMAIL=""
URL=""
'rs2.open "select distinct id_nc.telefono,id_nc.fax,id_nc.email,id_nc.url from id_nc, fabricantes where id_nc.id=fabricantes.id_fab and fabricantes.desclistado='" + rs("desclistado") + "'",cn
'if nombrefab <> rs("DescListado") then
rs2.open "SELECT DISTINCT Id_NC.Telefono, Id_NC.Fax, Id_NC.EMAIL, Id_NC.URL FROM Id_NC, FABRICANTES WHERE Id_NC.Id=FABRICANTES.ID_FAB AND FABRICANTES.DescListado='" & rs("DescListado") & "'",cn
if not rs2.eof then
if not isnull(rs2("Telefono")) then
Telefono=rs2("Telefono")
else
Telefono=""
end if
if not isnull(rs2("Fax")) then
Fax=rs2("Fax")
else
Fax=""
end if
if not isnull(rs2("EMAIL")) then
EMAIL=rs2("EMAIL")
else
EMAIL=""
end if
if not isnull(rs2("URL")) then
URL=rs2("URL")
else
URL=""
end if
end if
rs2.close
'end if
nombrefab=rs("DescListado")
%>
<%'rs2.open "SELECT DISTINCT CATALOGOS.DESCRIPCION FROM CATALOGOS,FABRICANTES WHERE CATALOGOS.ID_FABRICANTE=FABRICANTES.CODIGO AND CATALOGOS.VIGENTE=1 AND CATALOGOS.ActivoWeb=1 AND FABRICANTES.DescListado='" & rs("DescListado") & "'ORDER BY CATALOGOS.DESCRIPCION", cn %>
<% 'while nombrefab = rs("DescListado") and not rs.eof %>
<% check = 0 %>
<%
'Cierro todo, incluso en el Response, si el usuario se ha ido de la página, para que así no se siga ejecutando la consulta.
if not Response.IsClientConnected then
rs.close
rs2.close
cn.close
Response.End
end if
%>
<% while check = 0 and not rs.eof %>
<% if nombrefab = rs("DescListado") then %>
<%'while not rs2.eof%>
<%=rs("DESCRIPCION")%>
<%rs.movenext
else
check=1
end if
wend%>
<% 'rs2.close%>
<%
'rs.MoveNext
loop
rs.close
cn.close
%>
Catálogos Genéricos
El programa incluye siempre una colección de catálogos genéricos:
