Jump to content


Photo

Variável Não Atua Na Hora De Modificar O Arquivo


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 Flavio A.

Flavio A.

    Novato no fórum

  • Usuários
  • 2 posts
  • Sexo:Masculino
  • Localidade:São Luís

Posted 07/05/2010, 17:07

pessoal. puxo de um banco de dados os itens de LINK, como podem ver abaixo:

strQuery = "SELECT * FROM minhatabela order by numero desc"

e lá na frente peço o conteudo de LINK

<input type="text" name="nomedoarquivoescolhido" value="<%Response.Write RS("link")%>">

(omiti o restante do codigo pra nao ficar enorme) tudo funciona beleza.

na pagina de ação do formulario.. tenho isso

<%

dim nomearquivo
nomearquivo = Request.form("nomedoarquivoescolhido")

Set fso = CreateObject("Scripting.FileSystemObject")
ForReading = 1
str_arquivo="e:\home\alaimmoreira\web\jpturismo\" & nomearquivo & +".asp"

Set str_fso = nothing

if Request.form("btsalva") = "salvar" then
texto = Request.Form("arquivo")
Set salvando = fso.CreateTextFile(str_arquivo,True)
salvando.WriteLine texto
Set salvando = nothing
Response.Write "Arquivo Salvo"
end if

If (fso.FileExists(str_arquivo)) Then
%>
</p>
<p align="center">&nbsp;</p>
<form action="ADM01-1c.asp" method="post" id="frm_txt" name="frm_txt">
<p align="center">
<input type="text" name="espelhodonome" size="20" value="<% response.write nomearquivo %>"></p>
</p>
<p align="center">
<textarea id="arquivo" name="arquivo" rows="15" cols="60">
<%

Set str_fso = fso.OpenTextFile(str_arquivo,ForReading,True)
While (not str_fso.AtEndOfStream)
campo = str_fso.readline
response.write(Server.HTMLEncode(campo) & CHR(13))
wend

%>
</textarea>
<br>
<br>
<input type="submit" id="btsalva" name="btsalva" value="&lt; Fazer alterações &gt;" style="font-family: Lucida Sans Unicode; font-weight: bold; font-size: 8pt" />
</p>
</form>
<%
Else
response.write "Erro ao tentar encontrar o arquivo"
End If

set fso = nothing
%>
P.S: ADM01-1c.asp é a mesma pagina acima.
tudo funciona beleza. ele abre o conteudo do LINK que eu escolhi. só que na hora de salvar o arquivo.. ele não salva.
na hora que ele executa a ação do formulario
<form action="ADM01-1c.asp" method="post" id="frm_txt" name="frm_txt">

ele mostra o arquivo de LINK (do banco de dados) mas ao invés de ser o que eu escolhi.. ele abre o que está em primeiro no banco de dados.
e não reconhece a variavel do nome do arquivo na hora de salvar!

como resolvo isso? por favor.. agradeço muito a quem ajudar!




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq