Realizujeme
Vaše predstavy. Ponúkame Vám návrh
stavieb s rôznym
účelom využitia. Či sú
to stavby pre
bývanie, oddych, kultúru alebo obchod,
vždy sa usilujeme
uskutočnit Vaše sny s
prihliadnutím na okolie v ktorom budú
tak aby vyžarovali neobyčajnú energiu a predovšetkým
aby ste sa v nich cítili
spokojne.
<%
On error resume next
err.clear
Dim.ObjSubor
' Vytvorim instanciu objektu FileSystemObject
Set ObjSubor =
Server.CreateObject("Scripting.FileSystemObject")
dim TxtSubor ' Otvorim textovy subor
set
TxtSubor=ObjSubor.OpenTextFile("c:/pocitadlo.txt")
if err.number><0 then
' Ak taky subor nenajdem, tak ho vytvorim
Response.write ("Prvy pristup na stranku")
set
TxtSubor=ObjSubor.CreateTextFile("c:/pocitadlo.txt")
TxtSubor.WriteLine (1)
TxtSubor.Close
err.clear
else
nn = TxtSubor.ReadLine ' Doterajsi pocet pristupov
nn = nn+1 ' Inkrementujem
Response.write("Pocet pristupov: " & nn) ' Vypisem
TxtSubor.Close
ObjSubor.DeleteFile("c:/pocitadlo.txt")
' Vymazem stary subor
set
TxtSubor=ObjSubor.CreateTextFile("c:/pocitadlo.txt")
TxtSubor.WriteLine(nn) ' Do noveho suboru ulozim
pocet pristupov
TxtSubor.Close
end if
%>
Sen
