<% If IsEmpty(Session("TotalCount")) Then Call CountThisUser End If Dim objFSO Dim objTS Dim strFileName Dim intOldCount Dim intNewCount strFileName = Server.MapPath("Counter.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(strFileName) Then Set objTS = objFSO.OpenTextFile(strFileName, 1) Else Set objTS = objFSO.CreateTextFile(strFileName, True) End If If Not objTS.AtEndOfStream Then intoldCount = objTS.ReadAll Else intoldCount = 0 End If objTS.Close intNewCount = intOldCount + 1 Session("TotalCount")= intNewCount Set objTS = objFSO.CreateTextFile(strFileName, True) objTS.Write intNewCount objTS.Close Set objFSO = Nothing Set objTS = Nothing %>
Menubarlinje Titel-startside

Velkommen til JSC-Data

Vi er en IT-bedrift som har som intensjon å levere datautstyr og rimelige, raske datatjenester til private og bedrifter i Nord-Østerdalen.

Vi hjelper med spørsmål og problemstilling rundt anskaffelse av PC og dataytstyr, samt daglig drift av firmanettverket. Problemer og feil blir rettet omgående - rådgivning og forebyggende tiltak er en selvfølge - veiledning og kursing hjelper deg gjennom hele datahverdagen.

Vi er veldig opptatt av å yte best mulig service til våre kunder.
Rask avtale om hjelp og å være presis er viktig for oss.

Ta kontakt - ikke vent, ingenting er mer irriterende enn en PC eller et nettverk som ‘ikke fungerer’

Trenger du et gratis antivirusprogram så kan du laste det ned her
bunnlinje