Problemas Com Trabalho Com Txt !

[eliasdesign]

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
%>

[DackAle]

Qual o erro que da ? e em qual linha ?

Fica mais facil de achar a solução...

[explore]

tenta usar assim:

senha = senha +1

senha_final = senha

Falo!!!!!!!!!!!!

[eliasdesign]

Respondendo ao DackAle . .

O problema é que não aparece erro aglum ele simplesmente da um erro de

"HTTP 500 - Erro Interno no Servidor" e pronto . . e não abre a página ..