Nur als kleiner Hinweis,
Dir ist klar das Du mit dieser sql mehr als 10 DS erh�lst. N�hmlich alle DS, die im
Count 10 unterschiedliche Werte haben > das k�nnen leicht 30 sein ??.
Der Fehler kommt wahrscheinlich von der globalen Einstellung. Ich w�rde versuchen, den
Treiber mal anders anzusprechen.
MfG
J. Schwalenberg
______________________
www.udex.de
www.ultradevextensions.de
[EMAIL PROTECTED]
______________________
Think big - UDEX Software !
Software & Extensions for Dreamweaver Ultradev & MX
----- Original Message -----
From: "Kai Beppler" <[EMAIL PROTECTED]>
To: "ASP Datenbankprogrammierung" <[EMAIL PROTECTED]>
Sent: Wednesday, November 27, 2002 9:11 AM
Subject: [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
