error asp

[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.