<%
dim rs,es,ms,ars,ps, listaempresas
dim sql
dim aleat(41)
dim estilo, gama, material, articulo
sector=request.form("sector")
estilo=request.form("estilo")
gama=request.form("gama")
material=request.form("material")
articulo=request.form("articulo")
set con=server.createobject("adodb.connection")
con.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("web_asociados.mdb")&";"
%>
|
<%
'ars=con.execute("Select * from [Exposición-artículos] where idartículo =" & articulo)
%>
<%'=ars("artículo")%>
<%
sql="select asociados.nombre, asociados.[id empresa]"
if estilo<>0 then sql = sql &", [Exposición-Empresas y estilos].EstiloID"
if gama<>0 then sql = sql &", [Exposición-Empresas y gamas].gamaid"
if material<>0 then sql = sql &", [Exposición-Empresas y materiales].materialid"
if articulo<>0 then sql = sql &", [Exposición-Empresas y artículos].artículoid"
sql=sql &" from [asociados]"
if articulo <>0 then sql = sql &", [Exposición-Empresas y artículos]"
if material <>0 then sql = sql &", [Exposición-Empresas y materiales]"
if gama <>0 then sql = sql &", [Exposición-Empresas y gamas]"
if estilo <>0 then sql = sql &", [Exposición-Empresas y estilos]"
sql=sql & " where nombre is not null"
if estilo<>0 then sql=sql & " and [Exposición-Empresas y estilos].EstiloID="& estilo &" and " & "[Exposición-Empresas y estilos].EmpresaID=[id empresa]"
if gama<>0 then sql=sql & " and [Exposición-Empresas y gamas].gamaid="& gama &" and " & "[Exposición-Empresas y gamas].EmpresaID=[id empresa]"
if material<>0 then sql=sql & " and [Exposición-Empresas y materiales].materialid="& material &" and " & "[Exposición-Empresas y materiales].EmpresaID=[id empresa]"
if articulo<>0 then sql=sql & " and [Exposición-Empresas y artículos].artículoid="& articulo &" and " & "[Exposición-Empresas y artículos].EmpresaID=[id empresa]"
if sector<>0 then sql=sql & " and asociados.[subtipo]=" & sector
sql=sql & " order by asociados.nombre"
'response.write(sql)
set rs= con.execute(sql)
%>
<%
if rs.eof then response.write "No hay empresas que coincidan con sus criterios de búsqueda" else listaempresas="("&rs("id empresa")
do while not rs.eof
refe="asociado.asp?emp="&rs("id empresa")
if rs("id empresa")<>"886413022" then
%>
- <%=rs("Nombre")%>
<%
end if
rs.movenext
if not rs.eof then listaempresas= listaempresas &", "& rs("id empresa")
loop
listaempresas=listaempresas & ")"
rs.close%>
Volver
|
<%
sql="SELECT Count([Fotos Empresas].Idfoto) AS NumF FROM [Fotos Empresas] INNER JOIN asociados ON [Fotos Empresas].EmpresaID = asociados.[Id empresa] where asociados.[id empresa] in " & listaempresas
if gama<>0 then sql= "SELECT Count([Fotos Empresas].idFoto) AS NumF FROM ([Fotos Empresas] INNER JOIN [Fotos y gamas] ON [Fotos Empresas].Idfoto = [Fotos y gamas].Fotoid) INNER JOIN asociados ON [Fotos Empresas].EmpresaID = asociados.[Id empresa] WHERE [Fotos y gamas].Gamaid=" & gama & " and asociados.[id empresa] in " & listaempresas
set nums=con.execute(sql)
numf=nums("NumF")
'response.write numf
randomize
if numf<=40 then
for i=0 to numf-1
aleat(i+1)=i
next
else
aleat(1)=int(rnd*numf)
for i=1 to 40
aleat(i)=int(rnd*numf)
for j=1 to i-1
if aleat(j)=aleat(i) then
i=i-1
'j=i-2
end if
next
next
end if
if gama=0 then
sql="SELECT [Fotos Empresas].CatálogoID,[Fotos Empresas].EmpresaID, [login] & '0' & [catálogoid] AS foto,min([Fotos y gamas].Gamaid) as gamaid FROM ([Fotos Empresas] INNER JOIN [Fotos y gamas] ON [Fotos Empresas].Idfoto = [Fotos y gamas].Fotoid) INNER JOIN asociados ON [Fotos Empresas].EmpresaID = asociados.[Id empresa] GROUP BY [Fotos Empresas].CatálogoID, [Fotos Empresas].EmpresaID, [login] & '0' & [catálogoid]" &_
" having [Fotos Empresas].EmpresaID in " & listaempresas
else
sql="SELECT [Fotos Empresas].CatálogoID,[Fotos Empresas].EmpresaID, [login] & '0' & [catálogoid] AS foto, [Fotos y gamas].Gamaid FROM ([Fotos Empresas] INNER JOIN [Fotos y gamas] ON [Fotos Empresas].Idfoto = [Fotos y gamas].Fotoid) INNER JOIN asociados ON [Fotos Empresas].EmpresaID = asociados.[Id empresa] GROUP BY [Fotos Empresas].CatálogoID, [Fotos Empresas].EmpresaID, [Fotos y gamas].Gamaid, [login] & '0' & [catálogoid]" &_
" having [Fotos Empresas].EmpresaID in " & listaempresas & " and [Fotos y gamas].Gamaid=" & gama
end if
sql= sql &" ORDER BY [Fotos Empresas].CatálogoID"
'response.write sql
set fs=con.execute(sql)
for fila=1 to 10
for columna=1 to 4
ind=(columna+(fila-1)*4)
if ind<=numf then
%>
<%fs.movefirst
fs.move aleat(ind)
if not fs.eof then
refe="asociado.asp?emp="&fs("empresaid")
%>
 \<%=fs("foto")%>.jpg" width="100" height="121"> |
<% else response.write aleat(ind)
end if
end if
next %>
<% next %>
|
