Bekomme als die Fehlermeldung hier:
ADODB.Recordset- Fehler '800a0bb9'
Die Argumente sind vom falschen Typ, liegen au�erhalb des
G�ltigkeitsbereiches oder sind miteinander unvereinbar.
/liste.asp, line 43
line 43 sieht so aus, Auszug:
response.write ("<tr><td></td><td colspan=""3""><table>")
strSQL = "SELECT * FROM log_Action WHERE SID="&RS("ID")&" ORDER BY
Start"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open strSQL, Application("strSQL") <------- das soll der Fehler
sein------
while not rs1.eof
response.write("<tr><td>")
s = RS1.Fields("Start").Value
p = instr(s," ")
response.write mid(s,p+1)
response.write ("</td><td>")
Auszug aus global.asa:
<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=5;"
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.DNSLookup")
txtHost = DNS.GetNameFromIP(CStr(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>
F�r die Benutzerverfolgung brauche ich das, beschrieben auf der Seite:
http://www.aspheute.com/artikel/20020121.htm
Bitte helft mir, ich weiss nicht mehr weiter, danke.
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
