%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% creatfile="c:\inetpub\debtbustersusa\counter\howmuch.txt" whichFile = SERVER.MAPPATH("counter\howmuch.txt") Set readit = CreateObject("Scripting.FileSystemObject") Set thisFile = readit.OpenTextFile(whichfile, 1, False) thisLine = thisFile.ReadLine thisfile.close newname=thisline + 1 set writeit = createobject("Scripting.FileSystemObject") set updatefile = writeit.CreateTextFile(creatfile,true) updatefile.writeline(newname) updatefile.close %>
|
|||||
|
"A 911 FOR PEOPLE DROWNING IN RED INK"
Click here to find out more information about our next seminar! LOCAL 916-726-HELP (4357) DON'T LET DEBT GET
THE BEST OF YOU! |