si algo de eso, pero no se como ni donde insertarlo ya que mi código es así:
<%
if(Request.Form("fldValorBuscado") <> "") then
Dim rstBusqueda
Dim rstBusqueda_numRows
Set rstBusqueda = Server.CreateObject("ADODB.Recordset")
rstBusqueda.ActiveConnection = MM_Editorial_STRING
rstBusqueda.Source = "SELECT Libros.* FROM Libros WHERE Libros." & Request.Form("lstCampo") & " like '%"&Request.Form("fldValorBuscado")&"%' " & "ORDER BY Libros.titulo"
rstBusqueda.CursorType = adOpenStatic
rstBusqueda.CursorLocation = adUseServer
rstBusqueda.LockType = adLockBatchOptimistic
rstBusqueda.Open()
rstBusqueda_numRows = 0
If rstBusqueda.BOF And rstBusqueda.EOF Then
Response.Write("<center><h3>No se encontraron datos con '" & Request.Form("fldValorBuscado") & "'</h3></center>")
else
Response.Write("<table width='95%' border='1' cellspacing='0' cellpadding='0'>")
Response.Write("<tr>")
for each Campo in rstBusqueda.fields
Response.Write("<td>" & Campo.name & "</td>")
next
Response.Write("</tr>")
Response.Write("<tr>")
Dim Campo
Do While Not rstBusqueda.eof
for each Campo in rstBusqueda.fields
if not isnull(Campo.value) then
Response.Write("<td>" & Campo.value & "</td>")
else
Response.Write("<td> </td>")
end if
next
Response.Write("</tr>")
rstBusqueda.MoveNext
Loop
Response.Write("</table>")
end if
end if
%>
Espero me puedas ayudar, gracias