Mi problema es el siguiente, tengo una consulta de noticias, en la que al realizarla desconzco el tamaño que tienen las mismas, ya que pueden ser mas o menos extensas.
Realice un codigo para ller las noticias, y presentarlas en la Web, pero el resultado es que al haber muhcas noticias,y no limitar el número se salian del espacio diseñado para ello, luego las he limitado con el elemento for, para que solo muestre un número de registros limitado, pero aún me sucede que dependiendo del tamaño de las noticias (texto escrito en la tabla de acces) o bien me sobra espacio para una noticia más, o bien se me salen por abajo por que alguien se alargo demasiado en el texto.
¿Puedo mediante algún control, conocer el número de lineas que he ocupado, y de ese modo solicitar que se salga del bucle para no mostrar más noticias?
Os paso el codigo que he usado en ambas ocasiones por si ayuda en algo, ya os digo que soy nuevo en asp, y poco a poco voy aprendiendo pero aveces me atasco.
Gracias de antemano.
Codigo con el control EOF, me da todas las noticias que hay en la tabla, y se me sale por abajo del diseño de la página.
Código asp:
Ver original<%
Dim oConn, RS
'conectamos a la tabla.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("basedatos.mdb")
'Abrmios el RecordSet (accedemos a los datos de la BD).
sql = "SELECT * FROM noticias"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
'Mostramos los campos hasta que nuestro RS no termine.
'Cuando termine... sale del bulcle automaticamente.
Do While Not RS.EOF
Dim links
links = RS("Link")
Response.Write ("<p align= left>")& RS("Portada")
Response.Write ("<p align= right><a href="&links&">Mas información</a>")
Response.Write ("<p align=center><font size=5 color=#808080><b>...................................................</b></font></p>")
'MoveNext nos movera al siguiente registro de la tabla. A la siguiete fila.
RS.MoveNext
Loop
'primero cerramos los objetos y luego los limpiamos.
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
Codigo con el bucle For, me arregla algo pero no limita por tamaño que es lo que necesito.
Código asp:
Ver original<%
'conectamos a la tabla.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("basedatos.mdb")
'Abrmios el RecordSet (accedemos a los datos de la BD).
sql = "SELECT * FROM noticias ORDER BY Id DESC"
Set RS = Server.CreateObject ("ADODB.RecordSet")
RS.Open sql, oConn
'Mostramos los campos hasta que nuestro RS no termine.
'Cuando termine... sale del bulcle automaticamente.
cuen = 0
For cuen = 0 To 5 Step 1
links = RS("Link")
Response.Write ("<p align= left>")& RS("Portada")
Response.Write ("<p align= right><a href="&links&">Mas información</a>")
Response.Write ("<p align=center><font size=5 color=#808080><b>...................................................</b></font></p>")
'MoveNext nos movera al siguiente registro de la tabla. A la siguiete fila.
RS.MoveNext
Next
'primero cerramos los objetos y luego los limpiamos.
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>
Bueno lo dicho gracias por la colaboración.