alcool9999

I am writing to a vbs file with vbscript but it just overwrites the files contents. I use WriteLine and it still doesnt work.

script:
<script type="text/vbscript">

Sub create()
Dim FS
dim strname
dim strname2
dim a

Set FS = CreateObject("Scripting.FileSystemObject")

strname = input.value

strname2 = input1.value

Set a = FS.OpenTextFile(strname)
a.WriteLine strname2
a.close



end Sub
</script>

Thanks