Writing In File Add Extra Line

I am writing one line and for a reason I ignore it adds a line which is screwing up a few things.

<%
Set fso = CreateObject("Scripting.FileSystemObject")
dim sLine sArchivo="switch.txt"
path = Server.MapPath("../Flash")
sFile = path & "" & sArchivo

if fso.FileExists(sFile) then
fso.DeleteFile(sFile)
end if
Set a = fso.CreateTextFile(sFile, True)
if request("radiobutton") = 1 then
sLine = "&ver=si"
else
sLine = "&ver=no"
end if

a.WriteLine (sLine)
a.Close

sRedirect="admin_NoticiasListado.asp?sRadio=" & request("radiobutton")
Response.Redirect(sRedirect)
%>

How come does the extra line come ? I seems I have done already a fews times and it never ocurred before.