<%
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
%>
 |
|
|
|
|
 |
Her er det en del informasjon om de tjenestene vi tilbyr til private og bedrifter.
Gjennom lang erfaring siden 1985 har vi opparbeidet oss allsidig kunnskap innen IT-relaterte problemstillinger:
|
|
|
- Gratis behovsanalyse/veiledning: finn riktig datautstyr til DITT behov
- Feilsøk, feilretting og hjelp på virus, nettverk, printer, monitor, server, programvare, overføring fra gammel til ny PC, e-post ...
- Oppsett av Internett (modem, ISDN, ADSL, e-post)
- Vedlikeholdsavtaler for bedrifter: virussjekk, oppdateringer, backup, feil på PC/server/periferi, mm. Tilbud på faste dager i mnd, kvartal, halvåret
- Oppsett av Server/PC, Intranett, Internett og brannmur for bedrifter. Vi er Microsoft MCSE-sertifisert og har spesialisert oss på SBS-løsninger m/ ISA-server 2000/2003, Exchange 2000/2003 og SQL-Server 2000/2003
- Webdesign: hjemme/firmaside, e-post og domene m/ oppsett på alle datamaskiner, oppdatering av hjemme/firmaside
- Kursing: Vi holder datakurs hjemme hos deg (1-3 personer) - eller datakurs for bedrifter (3 - 8 personer), Office, Internett, e-post, datasikkerhet, virus, Windows, datakortet, i samarbeid med Folkeuniversitetet Innlandet, avdeling Tynset
Har du behov for mer informasjon? - send en forespørsel her!
|
|
 |
|
