1: <HTML> 2: <BODY> 3: <H1>タイトル</H1> 4: <% 5: ' 実行時エラーが出ても止まらないようにする 6: On Error Resume Next 7: ' ここに何らかの処理を記す 8: Response.Write "正常終了" 9: If Err.Number <> 0 Then 10: ' 実行時エラーの処理 11: Response.Clear 12: Response.Write "<HTML><BODY>" 13: Response.Write "サーバー障害が発生しました" 14: Response.Write "</BODY></HTML>" 15: Response.End 16: End If 17: %> 18: </BODY> 19: </HTML>