Con el objeto err, un ejemplo sería algo así, con un rs vacio:
Set rs = Server.createObject("ADODB.Recordset")
strSQL="SELECT campo FROM tabla WHERE id=" & id
rs.open strSQL, ObjConn, 3, 3
On error resume next
Response.Write rs("campo")
If err.number <> "" Then
Response.redirect "index.asp"
End If
Obviamente puedes cachar el número de error...
Salu2,