No consigo que esto cuente los registros

[eeeee]

Hola.....
no consigo hacer que esto me cuente el total.

Que debo incluir?

<p><font face="Tahoma" size="2"><%=Aqui_el_total%> Resultados obtenidos con <strong><%=Request("Palabra") %></strong></font></p>
<%
Dim Conexion,Tabla
Set Conexion=Server.CreateObject("adodb.connection")
Set Tabla=Server.CreateObject("adodb.recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("/mdb-database/audio.mdb")
Dim Temp
Temp="Select * From Tabla1 Where UCase(pal) like '%" & UCase(Request("palabra")) & "%'"
Tabla.Open Temp, Conexion
If Tabla.BOF And Tabla.EOF Then
%>
<table border="0" cellspacing="0" width="70%">
<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>
<%
Else
%>
<div align="left">
<table border="0" cellspacing="0" width="70%">
<tr>
<td width="65%" height="10">
<p align="center"><strong><font face="Tahoma" size="2">Portadas</font></strong></p>
</td>
</tr>
<% While Not Tabla.EOF%>
<tr>
<td width="35%" height="10">
<p align="left"><a href="<%=Tabla.Fields("url")%>"><%=Tabla.Fields("p al")%></font></td>
</tr>
<%
Tabla.MoveNext
Wend
Tabla.Close
Conexion.Close
End If
%>

gracias.

[u_goldman]

Esto te debe regresar el número de registros de tu consulta

Tabla.Open Temp, Conexion, 3, 3

If not Tabla.EOF Then
contador = Tabla.RecordCount
End If

Salu2,

[eeeee]

muchas gracias, funciona correctamente, me ha sido de ayuda