Ok, te decía que el problema es que tu consulta no te regresó registros, debes de validar eso, por ejemplo:
Código:
Buscar= "SELECT Detalle FROM InvItm WHERE CodItem='" & Code & "' ORDER BY Detalle"
Set Resulta = DB.Execute(Buscar)
if Not Resulta.EOF Then
Info=Resulta("Detalle")
else
Info = "NA"
End If Con eso en caso de que no haya registros que cumplan la condición, aparecerá un NA (
No Aplica).
Pero si tu dices que SIEMPRE debe haber registros que cumplan la condición, entonces una de dos, o en tu BD hay un problema, o en tu consulta. Para saber qué pasa, puedes colocar algo como esto
a fin de probar:
Código:
Buscar= "SELECT Detalle FROM InvItm WHERE CodItem='" & Code & "' ORDER BY Detalle"
Set Resulta = DB.Execute(Buscar)
if Not Resulta.EOF Then
Info=Resulta("Detalle")
else
Response.write Buscar
Response.end
Info = "NA"
End If Con esas dos lineas cuando no se regresen registros, se mostrará la consulta para que puedas revisarla y se detendrá el programa.
saludos