En la primer línea poné On error Resume Next
Y después de hacer hacer todas las conexiones poné
if err.number<>0 then
response.write "Hubo un errror"
response.end
end if
EL problema es que ASP y Visual no tienen capturas de error como sí lo tiene .NET
SALUDOS!