erro em tempoo de execução

[David Silva 0]

Erro de tempo de execução do Microsoft VBScript erro '800a01a8'

 

Objeto necessário

 

/CestaConsumo/Analise.asp, line 323

 

 

O código é esse

 

<%tmediasv = 0

tcmediosv = 0

contasv = 0

if RS.Fields("Tipop") is not(null and rs.eof) then ****ESTA É A LINHA 323

Do While RS.Fields("Tipop")= "Serviços"

smedia = rs.fields("Media")

tmediasv=Round((tmediasv + smedia),3)

scmedio = rs.fields("CMedio")

tcmediosv=Round((tcmediosv + scmedio),2)%>

 

****NESTE ESPAÇO FAÇO A EXIBIÇÃO DE RESULTADOS EM HTML****

 

<%RS.MoveNext

contasv = contasv + 1

Loop

end if%>

[jrcardozo 4]

pela mensagem você não criou o objeto recordset, onde está a aprte que você abre ele?

[Mário Monteiro 179]

qual a linah exata do erro?