% Set fs = CreateObject("Scripting.FileSystemObject") varInOutFile = Server.MapPath ("/forms/download.cnt") Set a = fs.OpenTextFile(varInOutFile) ct = CLng(a.ReadLine) ct = ct + 1 a.Close Set a = fs.CreateTextFile(varInOutFile, True) a.WriteLine (ct) a.Close Response.Write "" %>
![]() ![]() |
|||||
Contact Surround...We value feedback on our music, site or anything that's on you mind! Use the feedback form below for quickness or alternatively you can e-mail info@surroundweb.co.uk |
|
||||