<%Set rshome = Server.CreateObject("ADODB.Recordset")
sqlhome = "select * from home where visible=1 "&produccion&" and id_iso639='"&idioma&"' order by orden"
rshome.open sqlhome, conexionbd, 3, 3
%>
<%if not rshome.eof then
do while not rshome.eof
if rshome("id") = 1 then
if rshome("Foto") <> "" then
foto1 = Imagen(rshome("Foto"))
end if
if foto1 <> "" or rshome("Descripcion") <> "" then%>
<%end if
end if%>
<%if rshome("id") = 2 then
if rshome("Foto") <> "" then
foto2 = Imagen(rshome("Foto"))
end if
if foto2 <> "" or rshome("Descripcion") <> "" then%>
<%end if
end if%>
<%if rshome("id") = 3 then
if rshome("Foto") <> "" then
foto3 = Imagen(rshome("Foto"))
end if
if foto3 <> "" or rshome("Descripcion") <> "" then%>
<%end if
end if%>
<%rshome.movenext
loop
end if
rshome.close
set rshome = nothing%>
<%
Set rsnot = Server.CreateObject("ADODB.Recordset")
sqlnot="select * from noticias where ID_ISO639='"&idioma&"' and home=1 and visible=1 "&produccion&" order by fecha desc"
rsnot.open sqlnot,conexionbd,3,3
if not rsnot.eof then
'do while not rsnot.eof
%>
<%end if%>
<%
Set rsagen = Server.CreateObject("ADODB.Recordset")
sqlagen="select * from agenda where ID_ISO639='"&idioma&"' and home=1 and visible=1 "&produccion&" order by fecha desc"
rsagen.open sqlagen,conexionbd,3,3
if not rsagen.eof then
%>