also meine skripts f�r besucher counter und access sehen immer so aus:
<%
IF session ("benutzer") = "" THEN
set conn=Server.CreateObject("adodb.connection")
cnpath="DBQ=" & server.mappath("/cgi-bin/counter.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
sql = "SELECT * FROM Counter"
set RS = conn.Execute(sql)
hittemp = rs.fields.item("hits")
hitnew = hittemp + 1
sql = "UPDATE Counter SET hits='"&hitnew&"'"
set RS = conn.Execute(sql)
sql = "SELECT * FROM Counter"
set RS = conn.Execute(sql)
ELSE
set conn=Server.CreateObject("adodb.connection")
cnpath="DBQ=" & server.mappath("/cgi-bin/counter.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
sql = "SELECT * FROM Counter"
set RS = conn.Execute(sql)
END IF
session("benutzer") = "eingeloggt"
%>
die counteranzahl bekommst du dann �ber <% = rs.fields.item("hits") %>
jetzt kann der besucher deine seite solange aktualisieren wie er will. der
counter z�hlt nicht hoch. (es sei denn, die session ist abgelaufen, passiert
aber standard m��ig erst nach 20 Minuten).
p.s. musst eventuell noch den pfad f�r die accessdatenbank anpassen...
----- Original Message -----
From: Reinhold Becker <[EMAIL PROTECTED]>
To: ASP Diskussionsliste fuer Anfaenger <[EMAIL PROTECTED]>
Sent: Monday, April 08, 2002 3:31 PM
Subject: [aspdebeginners] AW: [aspdebeginners] Re: [aspdebeginners]
Besucherz�hler
Und wie? :-)
Reinhold
-----Urspr�ngliche Nachricht-----
Von: Thomas Beckert [mailto:[EMAIL PROTECTED]]
Gesendet: Montag, 08. April 2002 15:26
An: ASP Diskussionsliste fuer Anfaenger
Betreff: [aspdebeginners] Re: [aspdebeginners] Besucherz�hler
mach es �ber eine session variable...
----- Original Message -----
From: Reinhold Becker <[EMAIL PROTECTED]>
To: ASP Diskussionsliste fuer Anfaenger <[EMAIL PROTECTED]>
Sent: Monday, April 08, 2002 2:18 PM
Subject: [aspdebeginners] Besucherz�hler
> -- Moved from [aspgerman] to [aspdebeginners] by
[EMAIL PROTECTED] <[EMAIL PROTECTED]> --
>
> Hallo Gruppe,
>
> Ich will einen Besucherz=E4hler in meine Site einbauen, bei der sich
> der Wert eines Datensatzes in einer Accesstabelle immer um 1 erh=F6ht.
> Folgendes habe ich bis jetzt zusammenbekommen:
>
> <%
> set myrec =3D Server.CreateObject("ADODB.Recordset")
> myrec.ActiveConnection =3D MM_Access_STRING
> myrec.Source =3D "SELECT * FROM Tbl_Zaehler WHERE Zaehler_ID LIKE 1"
> myrec.CursorType =3D 0 myrec.CursorLocation =3D 2
> myrec.LockType =3D 3
> myrec.Open()
> myrec_numRows =3D 0
> myrec.addnew
> myrec.fields("Besucher") =3D myrec.fields("Besucher")+1
>
> myrec.update
> myrec.Close
>
> %>
>
> Da kriege ich aber nur immer einen neuen Datensatz. Bitte Hilfe!!!
>
>
> Ich danke euch,
> Reinhold
>
> | 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.as
> | 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
| 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
