Capturar o conteúdo do input text e (login) e salvá-lo em um arq.txt

Bom dia senhores,

Estou tentando capturar o conteúdo do input type="text" e (login) e salvá-lo em um arq.txt.

Login: <input type="text" id="UserName" name="UserName">

<%
Dim objeto, gravaArquivo, sArquivo
Set objeto = CreateObject("Scripting.FileSystemObject")
sArquivo = Server.MapPath ("teste.txt")
Set gravaArquivo = objeto.CreateTextFile(sArquivo ,True)
gravaArquivo.WriteLine(UserName)
gravaArquivo.close
set objeto =nothing
set gravaArquivo =nothing
%>

Estou passando a essência do código e os dois conteúdos estão na mesma página, não posso passar pelo action por restrições locais.

Agradeço a ajuda desde já.