Chat Asp

[deccweb]

Estoy creando un xat en asp, un poco cutre pero weno. Es un chat solo para 2 horas. Podeis ir viend el funcionamiento aqui Chat .

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



%>