Hallo Experte!
Was sagt mir folgende Fehlermeldung bzw. was muss ich ändern?
Provider-Fehler ‚8002000a‘
Außerhalb des Bereichs.
/inc/header.inc, Zeile 35
Den Code von header.inc, die sich im richtigen Verzeichnis befindet, habe ich unten angefügt. Zeile 35 ist die fettgedruckte!
Zusatzfrage: Gibt es irgendwo im Web eine Übersicht über alle ASP-Fehlermeldungen und ausführliche Erklärungen dazu?
Besten Dank für deine Hilfe!
Daniel
header.inc
„“ THEN
sid = Request.QueryString(„sid“)
DSN_base=„DBQ=“&Server.Mappath(„db/univerm.mdb“)&";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set CONN = Server.CreateObject(„ADODB.Connection“)
CONN.Open DSN_BASE
Set rs = Server.CreateObject(„ADODB.Recordset“)
rs.Open „Sessions“, conn, 3, 3, adCMDTable
Do While Not rs.eof
arrFL = array(„aktuelleZeit“)
arrVL = array(NOW)
rs.Update arrFL, arrVL
rs.MoveNext
Loop
rs.close
Set rs = nothing
conn.close
Set conn = nothing
END IF
IF Request.QueryString(„sid“) = „“ THEN
sid = Replace(Request.ServerVariables(„REMOTE_ADDR“), „.“, „“) & Int((2^32 - 1) * Rnd + 1)
DSN_base=„DBQ=“&Server.Mappath(„db/univerm.mdb“)&";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"
Set CONN = Server.CreateObject(„ADODB.Connection“)
CONN.Open DSN_BASE
Set rs = Server.CreateObject(„ADODB.Recordset“)
rs.Open „Sessions“, conn, 3, 3, adCMDTable
arrFL = array(„sid“,„Status“,„Sessionstart“,„aktuelleZeit“)
arrVL = array(sid,2,NOW(),NOW())
rs.AddNew arrFL, arrVL
rs.Update
rs.close
Set rs = nothing
conn.close
Set conn = nothing
END IF
%>