El error 500 es un error por default que casi seguro se debe a lo que te comenté actualmente, haz eso que te dije? lo hiciste ya? trátalo y si no, antes de la linea de error trata de hacer un errror handler
Código:
On error resume next
'Linea suceptible de error
If err.number <> 0 Then
Response.Write err.description
Response.End
End If
Salu2,