<% Set oFSO = Server.CreateObject("Scripting.FileSystemObject") Set oFile = oFSO.OpenTextFile(server.mappath("counter.txt")) oldNum = CLng(oFile.ReadLine) oFile.Close oldNum = oldNum + 1 Set oFile = oFSO.OpenTextFile(server.mappath("counter.txt"),2,true) oFile.WriteLine(oldNum) oFile.Close strCount = oldNum %> Historik
 

Affisch
Ny affisch får ni hålla utkik efter, likaså orkesterkort. Vi sörjer att affischer från förr inte finns sparade. Det hade varit kul att betrakta dem idag. Det är väl kanska typiskt, man kastar grejerna, för de inte har något värde – och man får ångrar sig. Dock finns vår förra att beskåda.
Tillbaka till nyheter
 
Tillbaka till nyheter

Sidtopp


info@nordbergs.nu Garanterat gung! © 2004 Nordbergs