arch_studio

 / konštrukcie /  návrh / kontakt /

Menuarch

adas

 

 štastie

úsmev

spokojnost

 

Pridat medzi oblubene.
  

historia

Studio hard-projex  vzniklo v roku 1991 pod vedením autorizovaného inžiniera Ing. Rudolfa Hudáka Aut. Ing. Cielom štúdia je v čo najširšom rozsahu pokryt potreby investora, - Vás. Zabezpečuje návrh rôznych stavieb, v rôznych prostredia, a v rôznych alternatívach. 

 

 

Naše referencie nájdete

v galérii 

 

 

 

<% 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 %> Arch_studio