Vlado Branko URL:  www.vlado.branko.eu Oppdatert desember 2003. copyright 2000-2009 © Vlado Branko

Du er besøker nr.:  <% on error resume next ' Create a server object set fso = createobject("scripting.filesystemobject") ' Target the text file to be opened set act = fso.opentextfile(server.mappath("asp_countn.txt")) ' Read the value of the text document ' If the text document does not exist then the on error resume next ' will drop down to the next line counter = clng(act.readline) ' Add one to the counter counter = counter + 1 ' Close the object act.close ' Create a new text file on the server Set act = fso.CreateTextFile(server.mappath("asp_countn.txt"), true) ' Write the current counter value to the text document act.WriteLine(counter) ' Close the object act.Close ' Write the counter to the browser as text Response.Write counter %> siden oktober 2002

Bilder på denne siden er publisert uten uten at tillatelse av avbildede personer er innhentet. Personer som ikke samtykker med publisering, bes vennligst å gi beskjed til meg. Jeg kommer til å endre siden utfra innvendinger som fremmes. På forhånd takk.