Me gustarai saber alguna manera para actualizar esta pagina cada 5 segundos, porque esto del "<META HTTP-EQUIV="Refresh" CONTENT="5;URL=xat.asp">" va fatal, va cuando quiere.
Despues me gustaria que se pudieran ver los ultimos mensajes abajo del todo.
Código HTML:
<META HTTP-EQUIV="Refresh" CONTENT="5;URL=xat.asp"> <% Dim oConn, rs, SQL Dim PaginaActual ' en qué pagina estamos Dim PaginasTotales ' cuántas páginas tenemos Dim TamPagina ' cuantos registros por pagina Dim CuantosRegistros ' la cuenta que os he mencionado 'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA TamPagina=20 'Leemos qué página mostrar. La primera vez será la inicial if Request.Querystring("pagina")="" then PaginaActual=1 else PaginaActual=CInt(Request.Querystring("pagina")) end if set oConn=Server.CreateObject("ADODB.Connection") set rs=Server.CreateObject("ADODB.Recordset") ' Conexión por OLEDB oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _ "Data Source="&Server.MapPath("xattcm.mdb")&";" SQL="SELECT * FROM xat ORDER BY id DESC" ' Defino el tamaño de las páginas rs.PageSize=TamPagina rs.CacheSize=TamPagina ' Abro el recordset rs.Open SQL, oConn, 1, 2 'Cuento las páginas PaginasTotales=rs.PageCount 'Compruebo que la pagina actual está en el rango if PaginaActual < 1 then PaginaActual = 1 end if if PaginaActual > PaginasTotales then PaginaActual = PaginasTotales end if 'Por si la consulta no devuelve registros! if PaginasTotales=0 then Response.Write("No se encontraron resultados.") else 'Vamos a paginar rs.AbsolutePage=PaginaActual Response.Write("<font size=2 face=arial>") CuantosRegistros=0 do while not rs.EOF and CuantosRegistros < TamPagina 'Pinto una línea de la tabla por cada registro Response.Write("<b>"&rs.Fields("nick")&":</b> ") Response.Write(""&rs.Fields("missatge")&"<br>") CuantosRegistros=CuantosRegistros+1 rs.MoveNext loop Response.Write("") end if rs.Close oConn.Close set rs=nothing set oConn=nothing %>