O código da função do asp para ler a última linha do arquivo é o seguinte:
função FSOlastline(nome do arquivo)
dim fso,f,temparray,tempcnt
definir fso = server.CreateObject(scripting.filesystemobject)
se não fso.fileExists(server.mappath(filename)) então saia da função
definir f = fso.opentextfile(server.mappath(nome do arquivo),1)
se não for f.AtEndofStream então
tempcnt = f.readall
f.fechar
definir f = nada
temparray = divisão(tempcnt,chr(13)&chr(10))
FSOúltima linha = temparray(ubound(temparray))
terminar se
função final