MDB Counter (Tæller)

Hvis du kan bruge noget der fyrer det ind i en txt fil så må du få denne :-)
Den tæller +1 HVER gang.

-------------
<%
    Dim objFile, objStream
    Const ForReading=1, ForWriting=2
    Set objFile = Server.CreateObject("Scripting.FileSystemObject")
    Set objStream = objFile.OpenTextFile(server.mappath("count.txt"), ForReading, True)
    strUsrCount = objStream.ReadLine
    strCurCount = strUsrCount + 1
    Set objStream = objFile.OpenTextFile(server.mappath("count.txt"), ForWriting, True)
    objStream.WriteLine strCurCount
    objStream.Close
    Set objStream = Nothing
    Set objFile = Nothing
%>
-------------

det var endelig mest database delen jeg er lidt i tvivl om

Det kan lade sig gøre, det VED jeg, men ikke hvordan :-)

yep ved det også har også haft lavet det engang før, men er lidt lidt død idag hehe

hehe :-P

Jeg har noget gammel ASP-kode jeg lavede engang i tidernes morgen, det kræver dog at dine besøgende klikker på et link, og først derefter bliver deres besøg fyret i en DB. Kræver endvidere at dine links er lavet med noget "if request("mode") = "links" then" bla bla osv. hvis du vil ha' det, det skal jo nok lige tilpasses en smule ;-)

men det er jo så ikke en tæller som sådan ;-)

Jeg tror bare jeg venter på en der giver dig det rigtige svar og holder mund nu.. lol

jo tak bare prøv at send det så kan jeg bare tilrette det: steffen@sbrandsborg.dk hvis det ikke kan postes her inde

Det fylder en smule, så sender det til din mail :-)

SVAR:

<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("cgi-bin/db.mdb")

sql = "select * from babeBilleder where babeBilledeID = " & 1 & ""

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3
   
rs.Update
rs("billedehits") = rs("billedehits") + 1
rs.Update
%>