Er det muligt at oprette en besøgs tæller, som et activeX document?

Hmmmm...................................

Det eneste jeg lige kan komme i tanke om er at bruge en ganske alm. flad text fil på dit website til at indeholde din taeller variable og herefter tilgå den ved hjælp af noget kode.

Koden du kan læse og skrive til filen med er:

Private Sub UserControl_Initialize()
    Dim fs As FileSystemObject
    Dim f As File
    Dim fstream As TextStream
    Dim taeller As String
    Set fs = New FileSystemObject
    Set f = fs.GetFile(\"c:\\test.txt\")
   
   
    Set fstream = f.OpenAsTextStream
   
    taeller = Int(fstream.ReadLine) + 1
   
    fstream.Close
   
    Set fstream = f.OpenAsTextStream(ForWriting)
        fstream.WriteLine taeller
    fstream.Close
    Set fstream = Nothing
    Set f = Nothing
    Set fs = Nothing
End Sub

Hvorfor vil du absolut lave det som activeX ?
Var det ikke noget nemmere med ASP?
Det kræver selvfølgelig, at du / Serveren kan køre ASP...

<%
option explicit
session.abandon
%>
<!-- metadata type=\"typelib\"
    file=\"c:\\programmer\\fælles filer\\system\\ado\\msado15.dll\" -->
<%
dim objconn
dim anthits
set objconn = server.createobject(\"ADODB.connection\")
objconn.open \"provider=microsoft.jet.oledb.4.0; \" & \"data source = H:\\Inetpub\\wwwroot\\logind.mdb\"
set rsvisit = server.createobject(\"ADODB.recordset\")
rsvisit.open \"Visit\", objconn, adopenforwardonly, adlockoptimistic, adcmdtable
anthits = rsvisit(\"antal\").value
anthits = anthits + 1
rsvisit(\"antal\").value = anthits
rsvisit.update
if anthits < 10 then strnul = \"00000\"
if anthits > 9 and anthits < 20 then strnul = \"0000\"
if anthits > 19 and anthits < 100 then strnul = \"0000\"
if anthits > 99 and anthits < 1000 then strnul = \"000\"
if anthits > 999 and anthits < 10000 then strnul = \"00\"
response.write \"ANTAL HITS: \"
strnul = strnul & anthits & \"<br>\"
response.write strnul

%>

Bare en tanke :-)

- Mikker

Hvis det endelig skal lægges på serveren som ASP, så er der ingen grund til at lave en database forbindelse.

Så er det blot at bruge Session_OnStart() i global.asa samt en application variabel.

Kedde