Hallo, bin ausgeschlafen und als am Testen.
Also, es geht um Die DNS Lookup-Geschichte. Habe korekte DNS Lookup installiert von server objects com, hatte noch eine Registrierungsnummer �brig.
Hier der Fehlercode der ausgespuckt wird:
Serverobjekt- Fehler 'ASP 0177 : 800401f3'
Server.CreateObject-Fehler
/benutzerverfolgung/stat.asp, line 23
Ung�ltige ProgID
Hier der ganze Code, Zeile 23 ist in der roten, fetten Farbe und unterstrichen:
<%
function MakeStat(LogPage, Comment, LookUp)
REM ** Diese Funktion �bertr�gt Log-Daten in die Datenbank **
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("DNS.NSLookup")
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
%>
Bitte helft mir, bin am Verzweifeln, wieso funzt die Kacke nicht?
Kai
| 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