Cómo implementar la disposición horizontal de llamadas ASP [Ejemplo]
lt;
sql="seleccione los 3 primeros * de NOTICIAS donde firstImageNamelt;gt;'' y ok=true ordenar por ID DESC"
set rs =conn.execute(sql)
si rs.eof y rs.bof entonces
response.write "lt;trgt;lt;brgt;lt;brgt;lt;brgt; lt;brgt;lt;td align=center colspan=2 bgcolor=#E8E8F4gt;Más tarde se lanzarán actividades interesanteslt;/tdgt;lt;/trgt;"
else
Hacer Mientras no sea RS.EOF
gt;
lt; table id='time' width='175' border='0' cellpadding='0'cellspacing='0'gt
lt;tr height='16'gt;
lt;td height='16' width="226"gt;lt;a href="onews.asp? id=lt;=rs("id")gt;" target="_blank" gt;lt;p align="left"gt;lt;font color='#ff3300'gt;lt;bgt;lt;=left (rs("título"),12)gt;lt;/bgt;lt;/fontgt;lt;/pgt;lt;/agt;lt;/tdgt;
lt;/trgt; /p>
lt;trgt;
lt;td width="226"gt;
lt;p align="center"gt;lt;a href=" onews.asp?id=lt;=rs("id")gt;" target="_blank" gt;lt;img src="uppic/lt;=trim(rs("firstImageName"))gt;" ancho= "224" altura="253" border="0"gt;lt;/agt;lt;/pgt;
lt;/tdgt;
lt;/trgt; /p>
lt;/tablegt;
lt;
RS.MoveNext
Bucle
finalizar
rs.close
set conn=nada
gt
debe ser:
sql="seleccione los 3 primeros * de NOTICIAS donde firstImageNamelt;gt;'' y ok=true ordenar por ID DESC"
set rs=conn.execute(sql)
if rs.eof y rs.bof luego
response.write "lt;trgt;lt;brgt;lt;brgt;lt;brgt;lt;brgt;lt;td align=center
colspan=2 bgcolor=#E8E8F4gt;Más tarde se lanzarán actividades interesanteslt;/tdgt;lt;/trgt;"
else gt;
lt;table id='time' width ='175' border='0' cellpadding='0'cellspacing='0'gt;
lt
Hacer mientras no sea RS.EOF
IF INT(T/5)=T/5 ENTONCES
gt;
lt; tr height='16'gt; END IFgt; lt;td height='16' width="226"gt;lt;a href="onews.asp?id=lt;=rs("id")gt;" target="_blank" gt;lt;p align ="left"gt;lt;font color='#ff3300'gt;lt;bgt;lt;=left(rs("title"),12)gt;lt;/bgt;lt;/fontgt;lt;/ pgt;lt;/agt;lt;/tdgt;
lt; T=T 1 gt;
''Mismo tratamiento a continuación
lt;/trgt
lt;trgt;
lt;td width="226"gt;
lt;p align="center"gt;lt;a href ="onews.asp?id=lt;=rs("id")gt;" target="_blank" gt;lt;img src="uppic/lt;=trim(rs("firstImageName"))gt;" width="224" height="253" border="0"gt;lt;/agt;lt;/pgt;
lt;/tdgt
lt;/trgt;
lt;
RS.MoveNext
Bucle
finalizar si
rs.close
establecer conn=nada
gt;
lt;/tablegt;