<% 'creamos el nombre del archivo on error resume next fp= request.serverVariables("APPL_PHYSICAL_PATH") & "/contador.txt" 'conectamos con el FSO set fs = createObject("scripting.filesystemobject") Set a = fs.OpenTextFile(fp) ct = Clng(a.ReadLine) if Session("ct") = "" then Session("ct") = ct a.close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) end if ct = ct + 1 a.Close Set a = fs.CreateTextFile(fp, True) a.WriteLine(ct) %> Despacho de abogados