<% Dim fp,fs,a,ct fp = Server.MapPath("\Media\QA\Text.txt") Set fs = CreateObject("Scripting.FileSystemObject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) a.close ct=ct+1 ' ct = Clng(a.ReadLine) ' if Session("ct") = "" then ' Session("ct") = ct ' ct = ct + 1 ' a.close ' Set a = fs.CreateTextFile(fp, True) ' a.WriteLine(ct) ' end if Set a = fs.CreateTextFile(fp) a.WriteLine(ct) a.Close Response.Write ct %>