<% function counter() dim obj set obj = server.createobject("ITNComp.Counter") dim iNum '------------------------------------------------------------------------------- 'strFileName här skriver du sökvägen till filen som är räknaren för denna sida. 'OBS vill du ha en räknare för fler sidor så måste du döpa om "strFileName" '------------------------------------------------------------------------------- obj.strFileName = server.mappath("raknare.txt") '------------------------------------------------------------------------------- 'Increment Denna metod räknar upp med ett och returnerar det uppdaterade värdet. '------------------------------------------------------------------------------- counter = obj.Increment () '------------------------------------------------------------------------------- 'SetCounter Denna metod sätter ett värdet. '------------------------------------------------------------------------------- 'counter = obj.SetCounter ("50") '------------------------------------------------------------------------------- 'GetCurCounter Denna metod returnerar värdet på räknaren. '------------------------------------------------------------------------------- 'counter = obj.GetCurCounter() set obj = nothing end function %> Alsike Maskin - kundvagn
.
                            Alsike Maskin AB ● Knivstavägen 6 ● 741 30 Knivsta ● Tel.018-34 30 70 
                          Alsike Maskin Syd
AB ● Fabriksvägen 4 ● 330 15 Bor ● Tel. 0370-65 00 02