Ich h�tte da mal ein problem.
Vorher lief alles, nun nicht mehr, was soll ich machen? bekomme folgende
Fehlermeldung:
Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005'
[Microsoft][ODBC Microsoft Access Driver]Allgemeiner Fehler
Registrierungsschl�ssel 'Temporary (volatile) Jet DSN for process 0x7c4
Thread 0x728 DBC 0x20b7014 Jet' kann nicht ge�ffnet werden.
/top.asp, line 15
</head>
<body topmargin="0" leftmargin="0" bgcolor="#D5FFD5">
<table>
<tr><td colspan="2"><h1>TOP 10s</h1></td></tr>
<table border="0" cellpadding="2" cellspacing="10"><tr><td>
<% strSQL = "SELECT top 10 Referrer, COUNT(*) AS C FROM log_session GROUP BY
Referrer ORDER BY Count(*) desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL, Application("strConn")%> <<< -------
hier soll der fehler liegen
<table border="0" cellpadding="2" cellspacing="0">
<tr><td colspan="3" bgcolor="#000000" height="1"></td></tr>
<tr><td bgcolor="#008000" colspan="3"><b><font color="#FFFFFF">Verweis
von</font></b></td></tr>
<tr><td bgcolor="#008000"><font color="#FFFFFF">Platz</font></td>
<td bgcolor="#008000"><font color="#FFFFFF">#</font></td>
<td bgcolor="#008000" colspan="1"><font
color="#FFFFFF">Referrer</font></td></tr>
<tr><td colspan="3" bgcolor="#000000" height="1"></td></tr>
Hier ein Auszug aus der global.asa:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
Application("strConn") = "Driver={Microsoft Access Driver
(*.mdb)};DriverID=25;DBQ=" & Server.MapPath("elog.mdb") & ";FIL=MS
Access;MaxBufferSize=512;PageTimeout=5;"
END Sub
Sub Application_OnEnd
'
End Sub
Sub Session_OnStart
on error resume next ' Besser kein Eintrag im LOG als eine
Globa-Asa-Fehlermeldung
REM Hier wird der verwendete Browser ermittelt
Set BC = Server.CreateObject("MSWC.BrowserType")
txtBro = bc.browser
if txtBro = "" Then txtBro = "-"
txtVer = bc.Version
if txtVer = "" Then txtVer = "-"
Set BC = Nothing
REM Daten ermitteln: IP-Adresse und Host-Name
txtIP = Request.ServerVariables("REMOTE_ADDR")
REM Hier wird unter Verwendung der Komponente "ASPDNS" der zugh�rige Name
des Hosts ermittelt
REM verwendet man eine andere Komponente, so mu� der Aufruf entsprechend
ge�ndert werden
REM will (oder kann) man keine DNS-Aufl�sung machen, mu� man einfach txtHost
= "-" eintragen
Set DNS = Server.CreateObject("AspDNS.Lookup")
txtHost = DNS.ReverseDNSLookup(Request.ServerVariables("REMOTE_ADDR"))
Set DNS = Nothing
REM andere Daten ermitteln
txtAgent = Request.ServerVariables("HTTP_USER_AGENT")
if txtAgent = "" Then txtAgent = "-"
txtRefer = Request.ServerVariables("HTTP_REFERER")
if txtRefer = "" Then txtRefer = "-"
txtScript = Request.Servervariables("SCRIPT_NAME")
if txtScript = "" Then txtScript = "-"
REM Datenbank �ffnen
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("strConn")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Cursortype = 1
RS.LockType = 3
RS.Open "SELECT * FROM log_Session WHERE 1=0", Conn
RS.AddNew
RS.Fields("Start").Value = Now
RS.Fields("IP").Value = txtIP
RS.Fields("Host").Value = txtHost
RS.Fields("StartPage").Value = txtScript
RS.Fields("Referrer").Value = txtRefer
RS.Fields("BrowserTxt").Value = txtAgent
RS.Fields("BTyp").Value = txtBro
RS.Fields("BVer").Value = txtVer
RS.Update
Session("ID") = RS.Fields("ID").Value
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
End Sub
Sub Session_OnEnd
If Session("ID") > 0 Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application("strConn")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Cursortype = 1
RS.LockType = 3
RS.Open "SELECT * FROM log_Session WHERE ID="&Session("ID"), Conn
if not rs.eof then
SAlt = RS.Fields("Start").Value
rs.Fields("Dauer").Value = DATEDIFF("s", SAlt, now)
RS.Fields("Ende").Value = Now
RS.Update
end if
RS.Close
Set RS = Nothing
Conn.Close
Set Conn = Nothing
End If
End Sub
</SCRIPT>
Bitte helft mir weiter.
MfG
Kai
| [aspdedatabase] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdedatabase/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdedatabase.asp
