|
| |
| |
|
|
|
|
|
 |
|
 |
<%
dim pob(3)
dim foto(3)
dim txt(3)
dim id(3)
sql="select * from promociones where tipo=2 order by referencia"
set rs=cn.execute(sql)
n=1
while not rs.Eof and n<=3
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")
n=n+1
rs.MoveNext()
wend
%>
 |
<%=pob(1)%> |
|
<%=pob(2)%> |
|
<%=pob(3)%> |
|
|
|
<%=txt(1)%> |
<%=txt(2)%> |
<%=txt(3)%> |
| más
información |
más
información |
|
| |
|
| |
<%
for j=1 to 3
pob(j)=""
foto(j)=""
txt(j)=""
id(j)=""
next
sql="select * from promociones where tipo=1 and principal=true order by referencia"
set rs=cn.execute(sql)
n=1
while not rs.Eof and n<=3
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)=rs("id")
id(n)="promocion.asp?id=" & rs("id")
n=n+1
rs.MoveNext()
wend
%>
|
<%=pob(1)%> |
|
<%=pob(2)%> |
|
<%=pob(3)%> |
|
|
|
<%=txt(1)%> |
<%=txt(2)%> |
<%=txt(3)%> |
| más
información |
más
información |
|
|
