Duda con Benditas Comillas

[Acostag]

Hola amigos... tengo este codigo.. que al momento de ejecutarlo.. me marca este Error Se requiere un objeto: Line 23''

<%
response.buffer=true
response.clear
response.expires=1000
%>
<CENTER>
<%=request.form("Mes")%>

<%
Response.Buffer = true
Dim miconexion, mirecordset, micomando, total, cantidad
Set miconexion = Server.CreateObject("ADODB.Connection")
miconexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("/Benavides/DB/Benavides.mdb")
Set micomando = Server.CreateObject("adodb.command")
micomando.ActiveConnection = miconexion

micomando.CommandText ="Select Responsable, Count(*) As Cantidad from Captura_Boletines where Meses = '" & Request("Mes") &"' group by Responsable"
Set mirecordset =micomando.Execute
While Not mirecordset.EOF

esta es la linea 23
do while not rs.eof
Total = Total + rs("cantidad")
response.write rs("Responsable")& ": " & Rs("cantidad")
response.write "<br>"
rs.movenext
loop
response.write "Total: " & Total
%>

<%
mirecordset.MoveNext
Wend
mirecordset.Close
Set mirecordset = Nothing
miconexion.Close
Set miconexion = Nothing
%>

alguien puede ayudarme y explicarme por que.. ???

Saludos
Luis.R.Acosta

[RootK]

Hola... quisiera saber en que momento estás declarando

do while not rs.eof

no te faltaría acaso agregar algo como esto:
Set rs = Server.CreateObject("adodb.recordset")


ya que en tu código al menos no lo veo declarado..


Saludos

[univercity]

Creo que ROOTK tiene toda la razon no haz declarado el recordset

[Acostag]

Gracias RootK.... ya lo Integre sobre las Lineas de BD..

pero ahora me marca este error.

ADODB.Recordset error '800a0e78'
The operation requested by the application is not allowed if the object is closed.


****** este es mi codigo...******

Response.Buffer = true
Dim miconexion, mirecordset, micomando, total, cantidad, rs
Set miconexion = Server.CreateObject("ADODB.Connection")
miconexion.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="& Server.MapPath("/Benavides/DB/Benavides.mdb")
Set micomando = Server.CreateObject("adodb.command")
Set rs = Server.CreateObject("adodb.recordset")
micomando.ActiveConnection = miconexion



Saludos

[Acostag]

::::::YA ENCONTRE EL ERROR::::::



como diriamos aca en Mexico-City... la estaba defecando...
y pa acabarla YO..Solito...

Sorry.. y gracias por ayudarme...

Saludos

[univercity]

RS.OPEN !!! ..... felicidades!!!