Kontakt

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

På denne siden kan du henvende deg til oss hvis du ønsker:

mer informasjon
at vi tar kontakt med deg pr. tlf eller e-post.


	Send oss en melding... Husk å skrive inn e-post eller telefonnr!


	Navn/Firma:

	Tlf/E-post:

	Emne:

	Melding: