error asp

[loquillo7]

buenas foreros mi consulta es la siguiente en un recordset me sale este error:

Object doesn't support this property or method: 'eof'


pero lo que no entiendo es que ese mismo recordset lo utilizo en otra pagina y funciona sin ninugun inconveniente pero nose porque en esa opagina no funciona alguien espero me ayude gracias.

[daniel00]

Hola!.

1.- Puede ser que el recordset, lo este devolviendo una función y dicha función sea la que tenga el error y al final no devuelva un recorset, y por lo tanto no tenga propiedad EOF.
2.- Quiza sea un error al escribir el nombre de la variable (recordset) cuando llamas al método EOF.

Puedes incluir fragmento del código fuente para que se te pueda ayudar con más facilidad por favor. Además te recomiendo incluir el tag "OPTION EXPLICIT " en cada página para evitar el error 2.

Saludos.

[loquillo7]

<%
if bolData then
strValue = trim(varDatos(31))
else
strValue = ""
end if
dim objClass
dim varResult
dim sComboName
'- Instancia la clase CC_Display
Set objClass = server.CreateObject("hDisplay.CC_Display")
varResult = objClass.b_ListarPerfilDisplay3311("2")
sComboName = "cmbPefil"
Response.Write "<select name=" & sComboName & " id=" & sComboName & " class=""ComboBox"">" & vbcrlf
If Not varResult.EOF then
Do While Not varResult.EOF
if sComboValue = trim(varResult.fields(fld_CPERFILDISPLAY).Value) then
sDefault = " selected"
end if
Response.Write "<option value=""" & trim(varResult.fields(fld_CPERFILDISPLAY).Value) & """" & sDefault & ">"
Response.Write "" & trim(varResult.fields(fld_DPDNOMBRE).Value)
Response.Write "</option>" & vbcrlf
sDefault = ""
Loop
End If
Response.Write "</select>" & vbcrlf
%>


es parte del codigo pero como exlique anteriormente lo utilizo de la misma manera en otra pagina y sis funciona pero en esta no, gracias.

[daniel00]

Que tal.

Lo que debes de revisar o depurar es el método b_ListarPerfilDisplay3311 y comprobar que efectivamente devuelva un recordset, ya que cuando se devuelve un objeto, la asignación es usando la sentencia SET, como en el siguiente ejemplo:

Código:

Set varResult = objClass.b_ListarPerfilDisplay3311("2")

Saludos.

[loquillo7]

nose que me paso, tienes mucha razon funcionaba mal por ese motivo muchas gracias.