skriv til txt fil

<%
const forreading = 1, forwriting = 2, forappending = 8
const tristateusedefault = -2
const tristatetrue = -1
const tristatefalse = 0
dim objfs, objtexts, strsti
strsti = request.servervariables(\"server_name\")
strsti = server.mappath(strsti)
set objfs=server.createobject(\"scripting.filesystemobject\")
set objtexts = objfs.opentextfile(strsti & \"\\news.txt\" ,forappending, false, tristatefalse)
objtexts.writeline \"test\"
objtexts.close
%>

dette duer ikke, den kan ikke finde news.txt filen som ligger i roden af min server, andre forslag til så den kan finde news.txt