<%@ Page Language="VB" Debug="true" %>
<%@ import namespace="System.Data" %>
<%@ import namespace="System.Data.SQLClient" %>
<%@ import namespace="System.Diagnostics" %>
<%@ import namespace="System.Configuration" %>
<script language="VB" runat="server">
Sub Page_Load(Source as Object, E as EventArgs)
Dim objCon As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("strCon"))
Dim objCmd As SqlCommand = New SqlCommand("insert into LOG_ERRORI (PAGINA) values '" & _
trim(request.querystring("aspxerrorpath")) & "', objCon)
objCon.Open()
objCmd.ExecuteNonQuery()
objCon.Close()
end sub
</script>
<html>
<head>
</head>
<body>
<b>Errore nel caricamento della pagina.</b>
</body>
</html>