Nun kommt der folgende Fehler:
Serverobjekt- Fehler 'ASP 0177 : 800401f3'
Server.CreateObject-Fehler
/benutzerverfolgung/stat.asp, line 23
Line 23 und was dazu geh�rt ist rot und fett:
<%
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.NSLookup")
' Set DNS = Server.CreateObject("DNS.NSLookup")
txtHost =
ReverseDNSLookup.Lookup(Request.ServerVariables("REMOTE_ADDR"))
' txtHost = DNS.RevNSLookup(Request.ServerVariables("REMOTE_ADDR"))
Set DNS = Nothing
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
%>
-----Urspr�ngliche Nachricht-----
Von: Alexander Veit [mailto:[EMAIL PROTECTED]]
Gesendet: Freitag, 19. April 2002 13:54
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Re: 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
Wie w�r's mal mit einem Blick in die Dokumentation.
Laut http://www.serverobjects.com/comp/aspdns.htm mu� es
ReverseDNSLookup hei�en.
| 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
