Para eso no necesitas el On Error Resume next
Con:
If Rs.BOF and Rs.EOF Then
'NO lees el registro
Response.Write "El registro no existe"
Else
'Lees el registro o los registros...
Do While Not Rs.EOF
Response.Write Rs("NombreCampo")
Rs.MoveNext
Loop
End if
Saludos
<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>