%
Sub ShowCounter(bType)
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
strDir = Request.ServerVariables("SCRIPT_NAME")
strCountFile = Server.MapPath(Left(strDir, InStrRev(strDir,"/"))) & "/counter.txt"
' On Error Resume Next
Set objFile = objFS.OpenTextFile(strCountFile, 1, False)
tmpHits = Trim(objFile.ReadLine)
tmpHits = tmpHits + 1
objFile.Close
Set objFile = objFS.CreateTextFile(strCountFile, True)
objFile.WriteLine(tmpHits)
Set objFS = Nothing
' Her vises counteren 1 = Grafisk counter, 2 = Tekst counter
Select Case bType
Case 1
For num = 1 To Len(tmpHits)
Response.Write ""
Next
Case 2
Response.Write tmpHits
End Select
End Sub
%>
![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]()
|
Alle link er til www.CDRinfo.com eller andre seriøse DVD-sites.
|
|
Udarbejdet af |
Michael Lund Sørensen http://www.milux.dk Copyright: Michael Lund Sørensen Opdateret d. 27.12.2003 |