Problemas al Validar EOF and BOF

[Lisandroaa]

Asi quedaria el codigo:

<%
Dim consulta_regcliente__MMColParam
consulta_regcliente__MMColParam = "1"
If (Request.Form("ci") <> "") Then
consulta_regcliente__MMColParam = Request.Form("ci")

Dim consulta_regcliente
Dim consulta_regcliente_cmd
Dim consulta_regcliente_numRows

Set consulta_regcliente_cmd = Server.CreateObject ("ADODB.Command")
consulta_regcliente_cmd.ActiveConnection = MM_bdviccell_STRING
consulta_regcliente_cmd.CommandText = "SELECT * FROM regserv WHERE ci = '" & Request.Form("ci") & "'"
consulta_regcliente_cmd.Prepared = true
consulta_regcliente_cmd.Parameters.Append consulta_regcliente_cmd.CreateParameter("param1", 200, 1, 255, consulta_regcliente__MMColParam) ' adVarChar

Set consulta_regcliente = consulta_regcliente_cmd.Execute
consulta_regcliente_numRows = 0
If consulta_regcliente.EOF Then
%>

<SCRIPT LANGUAGE="JavaScript">
alert("NO HAY REGISTRO");
document.location=("src_cliente.asp");
</SCRIPT>
<%else%>
<script>
alert("Si hay registros");
</script>
<%
End If
End If
%>

Ahora me arroja el error:

Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''

en la Linea 142, la linea 142 es la siguiente:

<%
consulta_regcliente.Close()
Set consulta_regcliente = Nothing
%>




De verdad que me estoy rompiendo la cabeza :(