Bitte noch mal als Non-HTML >:(
Gru�, Thomas // http://www.drhirn.com/65 -----Original Message----- From: Kai Beppler [mailto:[EMAIL PROTECTED]] Sent: Friday, April 19, 2002 12:16 PM To: ASP Diskussionsliste fuer Anfaenger Subject: [aspdebeginners] AW: RE: AW: Re: Hilfe, es funzt nicht, 2.Tag Hab den Fehler behoben, hab ein neues Problem. Dieser Fehlercode wird ausgegeben: Laufzeitfehler in Microsoft VBScript- Fehler '800a01b6' Das Objekt unterst�tzt diese Eigenschaft oder Methode nicht.: 'DNS.RevNSLookup' /benutzerverfolgung/stat.asp, line 24 Hier der ganze neue Code noch mal in der �bersicht, Zeile 24 ist rot, fett und unterstrichen. <% function MakeStat(LogPage, Comment, LookUp) REM ********************************************************* REM ** Diese Funktion �bertr�gt Log-Daten in die Datenbank ** REM ** --------------------------------------------------- ** REM ** Version 3.0 - 00/10/09 - Stefan Mayer ** REM ********************************************************* REM On Error Resume Next REM Daten ermitteln: Browser & Version 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 [letzteres nur bei LookUp=TRUE] arrIP = Split(Request.ServerVariables("REMOTE_ADDR"),".") If LookUp Then Set DNS = Server.CreateObject("AspDNS.Lookup") txtHost = DNS.RevNSLookup(Request.ServerVariables("REMOTE_ADDR")) Set DNS = Nothing Else txtHost = "-" End If REM Daten ermitteln: alles Andere txtAgent = Request.ServerVariables("HTTP_USER_AGENT") if txtAgent = "" Then txtAgent = "-" If Comment = "" Then txtRefer = Request.ServerVariables("HTTP_REFERER") if txtRefer = "" Then txtRefer = "-" Else txtRefer = Comment End If REM Datenbank �ffnen strConn = "Driver={Microsoft Access Driver (*.mdb)};DriverID=25;DBQ=" rem strConn = strConn & Server.MapPath("log.mdb") strConn = strConn & "H:\testweb\benutzerverfolgung\log.mdb" strConn = strConn & ";FIL=MS Access;MaxBufferSize=512;PageTimeout=5;" Set Conn = CreateObject("ADODB.Connection") Conn.Open strConn Set RS = CreateObject("ADODB.Recordset") RS.Cursortype = 1 RS.LockType = 3 RS.Open "SELECT * FROM T_LOG WHERE ID=0", Conn RS.AddNew RS("Seite") = LogPage RS("IP1") = arrIp(0) RS("IP2") = arrIp(1) RS("IP3") = arrIp(2) RS("IP4") = arrIp(3) RS("Host") = txtHost RS("HTTP_USER_AGENT") = txtAgent RS("HTTP_REFERER") = txtRefer RS("Browser") = txtBro RS("Version") = txtVer RS.Update RS.Close Conn.Close end function %> | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp | Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/ | [aspdebeginners] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv | Sie knnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
