Impressum:
Euro-Immobiline-Daten.Service
H 1119 Budapest
Etele u 12 |
Látogatóink száma
1996.02.01.
óta <%
CounterFile = "\usercount2.cnt"
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set a = fs.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = a.Readline
set fs = Nothing
usercnt = FormatNumber(usercnt + 1,0)
Set fs = CreateObject("Scripting.FileSystemObject")
set b = fs.CreateTextFile (CounterFile, 1, 0)
b.WriteLine usercnt
Set b = Nothing
Response.Write usercnt
%> - jelenleg <% =application("activevisitors")%>
- napi átlag: <% startdate = DateDiff("d",Now,"2/01/1996")
if startdate < 0 then startdate = startdate * -1
avgvpd= Int((usercnt)/startdate)
%><% Response.Write(avgvpd) %>
Copyright (C) 2006 EIDS
|
Kontakt:
Telefon: + 36 1 2049327
Fax: + 36 1 2040315
Email: info@eids.hu |
