problemas con busador y SQlserver7 ayuda

[carlostapi]

ya lo resolvi la gracias es decirle al recordset2 que si esta vacio por la busqueda en la base de datos ponga todos

function GeneraSql(cadena,tabla,campos)
if len(cadena)>0 then '
generaSql="Select * from " & tabla & " Where " & Sacar(cadena,campos)
else
Response.Write "No hay criterios"
end if
end function

dim campos(3) 'el tamano del array debe superar en uno al numero de campos
campos(1)="nom_ser"
campos(2)="clave_ser"

tabla="servicio" ' le entrego valor servicio o tabla a busar
resultado=GeneraSql(cadena,tabla,campos)
strSQL2=resultado

'************************************************* ***********
'***********************************************

set rs=oConn.Execute(strSQL)
set rs2=oConn.Execute(strSQL2)

if rs2.eof then
strsql2="select * from servicio"
set rs2=oConn.Execute(strSQL2)
end if