Auch schon probert, eine neue Datenbank anzulegen und die Tabellen aus der alten zu importieren?
-----Urspr�ngliche Nachricht----- Von: Kai Beppler [mailto:[EMAIL PROTECTED]] Gesendet: Mittwoch, 27. November 2002 09:26 An: ASP Datenbankprogrammierung Betreff: [aspdedatabase] Re: AW: Nach Neustart der fehler : Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005' Hab ich schon mehrfach gemacht, nutzt nichts, ich weiss echt nicht mehr weiter," heul". Gibt es noch eine andere Moglichkeit? ----- Original Message ----- From: "Mayer, Stefan" <[EMAIL PROTECTED]> To: "ASP Datenbankprogrammierung" <[EMAIL PROTECTED]> Sent: Wednesday, November 27, 2002 9:23 AM Subject: [aspdedatabase] AW: Nach Neustart der fehler : Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005' Mir kommt das irgendwie bekannt vor, dieser Code. *lach* Mach die Datenbank in Access auf und w�hle unter Extras Reparieren & Komprimieren! Stefan. -----Urspr�ngliche Nachricht----- Von: Kai Beppler [mailto:[EMAIL PROTECTED]] Gesendet: Mittwoch, 27. November 2002 09:12 An: ASP Datenbankprogrammierung Betreff: [aspdedatabase] Nach Neustart der fehler : Microsoft OLE DB Provider for ODBC Drivers- Fehler '80004005' Moin, nach jedem Neustart des PC's bekomme ich 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 0x634 Thread 0x7c4 DBC 0x2098014 Jet' kann nicht ge�ffnet werden. /top.asp, line 15 top.asp sieht so aus in dwer zeile 15: <% 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")%> <<<----------------------ZEILE 15 Global.asa sieht so aus, da ich denke das es auch wichtig ist: <!-- METADATA NAME="Microsoft ActiveX Data Objects 2.5 Library" TYPE="TypeLib" UUID="{00000205-0000-0010-8000-00AA006D2EA4}" --> <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=10;" 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> Wiw verdammte Hacke bekomme ich das hin das jedesmal der Fehler nicht mehr auftaucht. Ich werd' noch wahnsinnig. Helft mir bitte weiter. Die datenbank ist �brigens in Ordnung. 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 | [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 | [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 | [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
