<%@ Page Language="vb" %>
Error event example
Sub Page_Load()
Dim x, y, overflow As Integer
x = 1
y = 0
overflow = x / y
End Sub
Sub Page_Error()
Response.Write(Server.GetLastError.ToString())
Server.ClearError
End Sub