Skrive fil til serveren - CreateTextFile problem

Nedenstående giver mig bare fejl. Bad file name or number

Hvordan kan jeg være sikker på at jeg må skrive til biblioteket "skriv". Scripted afvikles i bibliotekt lige over / roden.

Har prøvet alle mulige henvisninger, men uden held...

dim fs, fname
cont = "crap dogz"
set fs = Server.CreateObject("Scripting.FileSystemObject")
set fname=fs.CreateTextFile("http://www.mitwww.wtf/skriv/template1.html",true)
fname.Write(cont)
fname.Close
set fname=nothing
set fs=nothing

function bts(data)
'Converts binary data to string
sOut = ""
For i = 0 to UBound(data)
sOut = sOut & chrw(ascw(chr(ascb(midb(data,i+1,1)))))
Next
bts=sOut
end function