<%if request("r")<>"" then
for y=0 to ubr
if r(r_id,y)=cint(Request("r")) then lr=y
next%>
<%=fixtildes(r(r_txt,lr))%>
<%lr=lr+1
if lr>ubr and request("r")<>"" then lr=0%>
<%end if%>
<%for x=0 to ube%>
<%tam=e(e_tam,x):img=e(e_img,x):col=e(e_color,x)
if e(e_sub,x)=9999 or e(e_sub,x)=0 then
tam=tamGen(e(e_tipo,x))
img=imgGen(e(e_tipo,x))
col=colGen(e(e_tipo,x))
end if%>
-<%=e(e_co2,x)*e(e_num,x)%>
<%fechaBlog(e(e_fecha,x))%>
<%tami=" px18"
tamm=e(e_tam,x)
if (len(e(e_desc,x))>40 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>70 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then
tami=" px16"
end if
if (len(e(e_desc,x))>50 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>100 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then
tami=" px14"
end if
if (len(e(e_desc,x))>60 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>130 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then
tami=" px12"
end if
if (len(e(e_desc,x))>70 and (tamm="1x1" or tamm="1x2")) or (len(e(e_desc,x))>160 and (tamm="2x1" or tamm="2x2" or tamm="3x1")) then
tami=" px10"
end if%>
<%=fixTildes(e(e_desc,x))%>
<%randomize
val=fix(rnd()*10)
if val>5 and ld<=ubd then
if len(d(d_tit,ld))>0 then
tami=" px16"
end if
if len(d(d_tit,ld))>50 then
tami=" px14"
end if
if len(d(d_tit,ld))>85 then
tami=" px12"
end if
if len(d(d_tit,ld))>105 then
tami=" px10"
end if%>
<%end if
randomize
val=fix(rnd()*10)
if val>5 and lr<=ubr then%>
<%=fixtildes(r(r_txt,lr))%>
<%lr=lr+1
if lr>ubr and request("r")<>"" then lr=0%>
<%end if%>
<%next%>