O código abaixo estou tentanod fazer a soma de um valor ao campo senha que esta armazenado no vetor 1 mas o problema é que não estou conseguindo . . se algum colega puder me dar uma ajuda . . ficarei eternamente grato . . .    desde já agradeço a atenção . .         Elias(DarkWolfBH)    Segue o código que estou utilizando. . . .   
<%
set fso= server.createObject("scripting.fileSystemObject")
if not fso.fileExists(server.MapPath("senhas.txt")) then
response.write"arquivo inesistente"
else
 set arq=fso.opentextfile(server.MapPath("senhas.txt"))
do while not arq.atendofstream
  vet=split(arq.readline,"#")
  login = vet ( 0 )
  senha = vet(1)
response.write("<b>Usuário:</b>"&login&"<br>")
response.write("<b>Senha:</b>"&senha&"<br><br>")
Dim segmento, senha_final
segmento= request.querystring("seg")
    if login=segmento then
           senha_final = senha+1
          fso.WriteLine("senha_final")
          fso.Close
          End if
loop
end if
%>