Skrive til tekst fil! (FSO)

Jeg ved at i sikkert tænker at den her er der svaret på tusindvis af gange.. men jeg står stadig med et problem jeg ikk har kunne få løst..

<%
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile("e:\csyp\stats.txt",1)

temp = ts.ReadLine

Set ts2 = fso.CreateTextFile("e:\csyp\stats.txt", True)
ts2.Write int(temp + 1)
%>

...

Input past end of file
/csyp/stats.asp, line 5

Jeg skal bruge så at den læser filen (der står et tal i den).. og så skal den bagefter ligge 1 til tallet..