muchas gracias adler:
Llevo un buen rato intentando poner este codigo en mi pagina pero siempre me da errores, tambien he mirado el de resultado paginados que me has puesto pero ese no me da ningun error pero no me hace ningun cambio, te pongo el codigo de mi pagina para que lo veas y ver si me puedes orientar.
gracias por vuestra ayuda
<title>CLIENTES ENCONTRADOS</title>
</head>
</script
<center>
<body style="text-align: center">
<table border="1" cellspacing="1" style="border-width:0px; border-collapse: collapse; " bordercolor="#C0C0C0" width="750" id="AutoNumber1" height="101">
<tr>
<td width="90%" bgcolor="#3F3F3F" height="30" style="border-left:medium none #C0C0C0; border-right:medium none #C0C0C0; border-top-style:none; border-top-width:medium; ">
<p align="center">
<font face="Lucida Sans Unicode" size="2" color="#FFFFFF">ESTADO DE
LOS CONTACTOS</font></td>
</tr>
<tr>
<td width="86%" bgcolor="#FBFBFB" height="69" align="center" valign="top" style="border-right:1px solid #C0C0C0; border-left:1px solid #C0C0C0; border-bottom-style: solid; border-bottom-width: 1px; border-top-style:solid; border-top-width:1px">
<%
Dim oConn, RS, sql, varName
'on error resume next
Set oConn = Server.CreateObject ("ADODB.Connection")
Set RS = Server.CreateObject ("ADODB.RecordSet")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/contactos.mdb")
varName= Trim(Request.Form ("T1"))
sql = "SELECT * FROM altacontactos WHERE (respuestas=0) and (CONTACTO & DIRECCION & FECHA) like '%" & varName & "%'" & "ORDER BY Fecha DESC"
RS.Open sql, oConn,3 ,1
%>
<%
if rs.EOF then
Response.Write("No se encuentran resultados con estos criterios.")
end if
%>
<%
do while not rs.EOF
%>
</font>
</font>
<div align="center">
<table border="1" width="100%" id="table1" cellspacing="1" style="border-width:0; border-collapse: collapse; " bordercolor="#336699" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="10">
<tr>
<td bgcolor="#E0DFE3" align="center" width="28%" style="border-left:1px solid #C0C0C0; border-right-style:solid; border-right-width:1px; border-top-style:solid; border-top-width:1px; border-bottom-style:solid; border-bottom-width:1px" bordercolor="#C0C0C0" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
CONTACTO</font></td>
<td bgcolor="#E0DFE3" align="center" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" width="32%" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">DIRECCIÓN</font></td>
<td bgcolor="#E0DFE3" align="center" width="13%" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
ESTADO</font></td>
<td bgcolor="#E0DFE3" align="center" width="11%" style="border-style: solid; border-width: 1px" bordercolor="#C0C0C0" height="16">
<font face="Lucida Sans Unicode" style="font-size: 8pt">FECHA
SOLICI</font></td>
</tr>
<tr>
<td width="28%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="30" style="border-left: 1px solid #C0C0C0; border-right-style: solid; border-right-width: 1px; border-top-style: solid; border-top-width: 1px; border-bottom-style: solid; border-bottom-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
<%= rs("CONTACTO") %><br></font></td>
<td align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" width="32%" height="30" style="border-style: solid; border-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt">
<%= rs("DIRECCION") %></IMG><br></td>
<td width="13%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="30" style="border-style: solid; border-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt"> <%= rs("ESTADO") %></font></td>
<td width="11%" align="center" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" height="30" style="border-style: solid; border-width: 1px">
<font face="Lucida Sans Unicode" style="font-size: 8pt"> <%= rs("FECHAFS") %></font></td>
</tr>
<tr>
<td align="center" style="border-left-style:none; border-left-width:medium; border-right-style:none; border-right-width:medium; border-top-style:solid; border-top-width:1px; border-bottom-style:none; border-bottom-width:medium" bordercolor="#C0C0C0" bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" colspan="4" height="0">
<span style="font-size: 1pt"> </span></td>
</tr>
</table></div>
</table>
<p align="center"> </p>
<%
RS.MoveNext
Loop
RS.Close
oConn.Close
Set RS = nothing
Set oConn = nothing
%>