-----Urspr�ngliche Nachricht----- Von: Lyris ListManager [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 18. April 2002 17:39 An: [EMAIL PROTECTED] Betreff: Re: Problem mit Besucherverfolgung Sorry, but Lyris ListManager did not find your email address -> "[EMAIL PROTECTED]" listed as a member of aspdebeginners. Only members of aspdebeginners are allowed to contribute messages. Because Lyris ListManager could not confirm that you are a member of aspdebeginners, your message was not accepted. --- Return-Path: <[EMAIL PROTECTED]> Received: from mail.gmx.net ([213.165.64.20]) by lyris01.hosting.innerhost.com with SMTP (Lyris ListManager WIN32 version 5.0 beta); Thu, 18 Apr 2002 10:38:41 -0500 Received: (qmail 1500 invoked by uid 0); 18 Apr 2002 14:38:39 -0000 Received: from p50888fd1.dip.t-dialin.net (HELO detonator) (80.136.143.209) by mail.gmx.net (mp015-rz3) with SMTP; 18 Apr 2002 14:38:39 -0000 From: "DJBeppi" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Subject: Problem mit Besucherverfolgung Date: Thu, 18 Apr 2002 16:38:36 +0200 Message-ID: <000801c1e6e6$bad2ac80$[EMAIL PROTECTED]> MIME-Version: 1.0 Content-Type: multipart/alternative; boundary="----=_NextPart_000_0009_01C1E6F7.7E5B7C80" X-Priority: 3 (Normal) X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook, Build 10.0.3416 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2600.0000 Importance: Normal This is a multi-part message in MIME format. ------=_NextPart_000_0009_01C1E6F7.7E5B7C80 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Hi, Habe Problem mit der Besucher verfolgung. Hier ist der Fehler der angezeigt wird: ADODB.Recordset'800A0BB9' Die Argumente sind vom falschen Typ, liegen au=DFerhalb des G=FCltigkeitsbereiches oder sind miteinander unvereinbar. /besuchervervolgung/liste.asp, Zeile 43 Hier der Code der liste.asp <% =20 Such =3D Request("Such") STyp =3D Request("STyp")=20 strSQL =3D "SELECT top "&Request("top")&" * FROM log_Session WHERE " = & Request("STyp") &" like '%"&Request("Such")&"%' ORDER BY Start DESC" if request("OderBy") <> "" Then strSQL =3D Replace(strSQL,"Start DESC",Request("OrderBy")) Set rs =3D Server.CreateObject("ADODB.Recordset") rs.open strSQL, Application("strConn") %> <html> <head> <title>Logfile</title> <%=3DApplication("CSS")%> <base target=3D"_blank"> </head> <body topmargin=3D"0" leftmargin=3D"0" bgcolor=3D"#D5FFD5"> <table border=3D"0" cellpadding=3D"2" cellspacing=3D"10"><tr><td> <table border=3D"0" cellpadding=3D"2" cellspacing=3D"0"> <tr><td colspan=3D"4"><h1>Zugriffsstatistik</h1></td></tr> <tr><td colspan=3D"4" bgcolor=3D"#000000" height=3D"1"></td></tr> <tr><td bgcolor=3D"#008000"><b><font color=3D"#FFFFFF">Session</font></b></td><td = bgcolor=3D"#008000"><b><font color=3D"#FFFFFF">Datum/Zeit</font></b></td> <td bgcolor=3D"#008000"><b><font color=3D"#FFFFFF">Zugriff von</font></b></td> <td bgcolor=3D"#008000"><b><font color=3D"#FFFFFF">Referrer/Einstieg</font></b></td> </tr><tr><td colspan=3D"4" bgcolor=3D"#000000" height=3D"1"></td></tr> <% Count =3D 0 while not rs.eof response.write ("<tr><td>" & count & " - <b>" & RS.Fields("ID").Value &"</b></td>") response.write ("<td>" & RS.Fields("Start").Value & "</td>") response.write ("<td>" & RS.Fields("Host").Value & " (" & RS.Fields("IP").Value &")</td>") txtRef =3D RS.Fields("Referrer").Value If txtRef <> "-" Then response.write ("<td><a href=3D" & CHR(34) & txtRef & CHR(34) = &">" & txtRef & "</a></td></tr>") end If response.write ("<tr><td></td><td colspan=3D""2"">") response.write replace(replace(RS("BrowserTxt"),"Mozilla/4.0 (compatible; ",""),")","") response.write ("</td>") response.write ("<td>" & RS.Fields("StartPage").Value & "</td></tr>") response.write ("<tr><td></td><td colspan=3D""3""><table>") strSQL =3D "SELECT * FROM log_Action WHERE SID=3D"&RS("ID")&" = ORDER BY Start" Set rs1 =3D Server.CreateObject("ADODB.Recordset") rs1.open strSQL, Application("strSQL") while not rs1.eof response.write("<tr><td>") s =3D RS1.Fields("Start").Value p =3D instr(s," ") response.write mid(s,p+1) response.write ("</td><td>") response.write (RS1.Fields("Art").Value & " - " & RS1.Fields("Txt").Value &" - " & RS1.Fields("Zahl").Value & "</td>") d =3D RS1.Fields("Dauer1").Value response.write ("<td>") if d > 0 then response.write (d & " Sekunden") response.write ("</td>") rs1.movenext response.write("</tr>") wend rs1.close response.write ("</table></td></tr><tr><td colspan=3D""4"" bgcolor=3D""#000000"" height=3D""1""></td></tr>") count =3D count + 1 rs.movenext wend rs.close set rs=3DNothing %> </table> </table> | 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 </BODY> </html> W=E4re sch=F6n, wenn geholfen wird Kai ------=_NextPart_000_0009_01C1E6F7.7E5B7C80 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN"> <HTML> <HEAD> <META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; = charset=3Diso-8859-1"> <META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version = 6.0.4630.0"> <TITLE>Problem mit Besucherverfolgung</TITLE> </HEAD> <BODY> <!-- Converted from text/rtf format --> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 = FACE=3D"Arial">Hi,</FONT></SPAN><SPAN LANG=3D"de"></SPAN><SPAN = LANG=3D"de"></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 FACE=3D"Arial">Habe = Problem mit der Besucher verfolgung.</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 FACE=3D"Arial">Hier ist = der Fehler der angezeigt wird:</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 = FACE=3D"Arial">ADODB.Recordset'800A0BB9'</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 FACE=3D"Arial">Die = Argumente sind vom falschen Typ, liegen au=DFerhalb des = G=FCltigkeitsbereiches oder sind miteinander = unvereinbar.</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 = FACE=3D"Arial">/besuchervervolgung/liste.asp, Zeile = 43</FONT></SPAN><SPAN LANG=3D"de"></SPAN><SPAN LANG=3D"de"></SPAN></P> <BR> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 FACE=3D"Arial">Hier der = Code der liste.asp</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><% </FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> Such =3D = Request("Such")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> STyp =3D Request("STyp") = </FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> strSQL =3D "SELECT top = "&Request("top")&" * FROM log_Session WHERE = " & Request("STyp") &" like = '%"&Request("Such")&"%' ORDER BY Start = DESC"</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> if request("OderBy") <> = "" Then strSQL =3D Replace(strSQL,"Start = DESC",Request("OrderBy"))</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> Set rs =3D = Server.CreateObject("ADODB.Recordset")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> rs.open strSQL, = Application("strConn")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> %></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><html></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><head></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><title>Logfile</title></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><%=3DApplication("CSS")%></FONT></SPAN></ P= > <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><base = target=3D"_blank"></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"></head></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><body topmargin=3D"0" = leftmargin=3D"0" = bgcolor=3D"#D5FFD5"></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><table border=3D"0" = cellpadding=3D"2" = cellspacing=3D"10"><tr><td></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><table border=3D"0" = cellpadding=3D"2" = cellspacing=3D"0"></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><tr><td = colspan=3D"4"><h1>Zugriffsstatistik</h1></td &= gt;</tr></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"><tr><td colspan=3D"4" = bgcolor=3D"#000000" = height=3D"1"></td></tr></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> <tr><td = bgcolor=3D"#008000"><b><font = color=3D"#FFFFFF">Session</font></b></td> &= lt;td bgcolor=3D"#008000"><b><font = color=3D"#FFFFFF">Datum/Zeit</font></b></td& g= t;</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> <td = bgcolor=3D"#008000"><b><font = color=3D"#FFFFFF">Zugriff = von</font></b></td></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> <td = bgcolor=3D"#008000"><b><font = color=3D"#FFFFFF">Referrer/Einstieg</font></b>& l= t;/td></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> </tr><tr><td = colspan=3D"4" bgcolor=3D"#000000" = height=3D"1"></td></tr></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> <% Count =3D 0</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> while not rs.eof</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("<tr><td>" & count & " - = <b>" & RS.Fields("ID").Value = &"</b></td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("<td>" & RS.Fields("Start").Value & = "</td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("<td>" & RS.Fields("Host").Value & = " (" & RS.Fields("IP").Value = &")</td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> txtRef =3D = RS.Fields("Referrer").Value</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> If txtRef <> = "-" Then</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("<td><a href=3D" & CHR(34) & txtRef & = CHR(34) &">" & txtRef & = "</a></td></tr>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> end If</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("<tr><td></td><td = colspan=3D""2"">")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = replace(replace(RS("BrowserTxt"),"Mozilla/4.0 = (compatible; = ",""),")","")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("</td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("<td>" & RS.Fields("StartPage").Value = & "</td></tr>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("<tr><td></td><td = colspan=3D""3""><table>")</FONT></SPAN >= </P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> strSQL =3D "SELECT * = >FROM log_Action WHERE SID=3D"&RS("ID")&" = ORDER BY Start"</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> Set rs1 =3D = Server.CreateObject("ADODB.Recordset")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> rs1.open strSQL, = Application("strSQL")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> while not = rs1.eof</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> = response.write("<tr><td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> s =3D = RS1.Fields("Start").Value</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> p =3D = instr(s," ")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = mid(s,p+1)</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("</td><td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = (RS1.Fields("Art").Value & " - " & = RS1.Fields("Txt").Value &" - " & = RS1.Fields("Zahl").Value & = "</td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> d =3D = RS1.Fields("Dauer1").Value</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> = response.write ("<td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> if d > 0 = then response.write (d & " Sekunden")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("</td>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> = rs1.movenext</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> = response.write("</tr>")</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> wend</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> rs1.close</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> response.write = ("</table></td></tr><tr><td = colspan=3D""4"" = bgcolor=3D""#000000"" = height=3D""1""></td></tr>")</FON T= ></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> count =3D count + 1</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"> rs.movenext</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial">wend</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial">rs.close</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 FACE=3D"Arial">set = rs=3DNothing %></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"></table></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"en-gb"><FONT SIZE=3D2 = FACE=3D"Arial"></table></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 = FACE=3D"Arial"></body></FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 = FACE=3D"Arial"></html></FONT></SPAN><SPAN LANG=3D"de"></SPAN><SPAN = LANG=3D"de"></SPAN></P> <BR> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 FACE=3D"Arial">W=E4re = sch=F6n, wenn geholfen wird</FONT></SPAN></P> <P ALIGN=3DLEFT><SPAN LANG=3D"de"><FONT SIZE=3D2 = FACE=3D"Arial">Kai</FONT></SPAN><SPAN LANG=3D"de"></SPAN><SPAN = LANG=3D"de"></SPAN></P> | 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 </BODY> </HTML> ------=_NextPart_000_0009_01C1E6F7.7E5B7C80--
