errori asp(global.asa e http 500)

[andreaciao_22]

si, scusa, ecco il codice:

<script language="vbscript" runat="server">
sub Application_onstart()
    application("UtentiAttivi") = 0
end sub
Sub session_onstart()
    Dim conn, strconn, strsql, rs
    strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("Sito Claudio.mdb")
    Set conn = Server.CreateObject("ADODB.connection")
    conn.Open strconn
    strsql = ""
    strsql = "update accessi set naccessi=naccessi+1 where id = 1"
    conn.Execute (strsql)
    conn.Close
    Set conn = Nothing
    application("UtentiAttivi") = application("UtentiAttivi") + 1
End Sub
Sub session_onend()
    application("UtentiAttivi") = application("UtentiAttivi") -1
End Sub
</script>