<%
dim pob(3)
dim foto(3)
dim txt(3)
dim id(3)
sql="select * from promociones where tipo=2 order by ubicacion"
set rs=cn.execute(sql)
n=0
while not rs.Eof
n=n+1
sql2="select * from ubicaciones where id=" & rs("ubicacion")
set rs2=cn.execute(sql2)
if not rs2.eof then
pob(n)=rs2("txt")
else
pob(n)=""
end if
rs2.close
foto(n)=rs("i1")
txt(n)=CrLfToBr(rs("txtES"))
id(n)="promocion.asp?id=" & rs("id")
if n=3 then
n=0 %>