|
| |
|
Firmamız: 01.01.1985 yılından bu yana genellikle Sanayi
piyasasında ağır yük, Turizmde; Köşk, Villalara personel ve Monşarj
(servis) Asansörleri Montaj, Bakım, Tamir, Revizyon ve Taahhüt işleri yapan
(ilk elden) bir sanatkar kuruluştur. |
|
ÇAVUŞOĞLU MAH. ÇAY SOKAK
NO 15 DÜKKAN 3 81410 KARTAL - İSTANBUL TEL & FAKS : 216 3745251 - 216
488 49 16 |
<%
pgeNme = Request.ServerVariables("PATH_INFO")
LogTo = (pgenme)
'LogTo = ("/site/sayac/" + pgeNme)
CounterFile = Server.MapPath(LogTo + ".txt")
Set xFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set xMC = xFS.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = xMC.Readline
set xFS = Nothing
usercnt = usercnt + 1
Set xFS = CreateObject("Scripting.FileSystemObject")
set xRC = xFS.CreateTextFile (CounterFile, 1, 0)
xRC.WriteLine usercnt
Set xRC = Nothing
SayacGoster = usercnt
%>
<%
baslik = "Sohbetevi.Net'e" ' DİKKAT : baslik = "Sohbetevi.Net'e" BöLümünü Kendi Sitenize Göre Uyarlayın...[AnGeR]
%><%
pgeNme = Request.ServerVariables("PATH_INFO")
LogTo = (pgenme)
'LogTo = ("/site/sayac/" + pgeNme)
CounterFile = Server.MapPath(LogTo + ".txt")
Set xFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set xMC = xFS.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = xMC.Readline
set xFS = Nothing
usercnt = usercnt + 1
Set xFS = CreateObject("Scripting.FileSystemObject")
set xRC = xFS.CreateTextFile (CounterFile, 1, 0)
xRC.WriteLine usercnt
Set xRC = Nothing
SayacGoster = usercnt
%>
|
