Puedes hacer lo siguiente:
Código:
Dim mostrar
Dim cant_paginas
Dim pagina_actual
Dim registro_mostrado
Dim I
mostrar = 10
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
openstr = "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("MiBase.mdb")
strsql = "SELECT * FROM tabla"
Set oConn = Server.CreateObject "ADODB.Connection")
'abro la base de datos con la cadena openstr
oConn.Open openstr
Set RS = Server.CreateObject("ADODB.Recordset")
'abro la cadena de cosulta strsql
rs.open strsql, oConn
RS.PageSize = mostrar
RS.CacheSize = mostrar
RS.Open strSQL, oConn,3,1
cant_paginas = RS.PageCount
..
..
..
donde strsql es la consulta que se mostrará y openstr para indicar que abra la base de datos.
Saludos y suerte..!!
<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=80 width=200><BR></embed></center></html>