[Resolvido] Variável não entra onde deve

[flaviora 0]

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"> </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="< Fazer alterações >" 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!

 

Enfim.. ha hora de salvar ele dá como se o nome estivesse em branco.. ao inves de pegar a variavel!

 

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

[Wallcrawler 0]

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"> </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="< Fazer alterações >" 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!

 

Enfim.. ha hora de salvar ele dá como se o nome estivesse em branco.. ao inves de pegar a variavel!

 

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

 

Amigo tente fechar o objeto "salvando" (salvando.close) após mandar ele incluir a variável "texto" no arquivo, pode ser isso. Tenta dar uma olhada na referência da w3 aqui

 

Té mais.

 

Wall

[xanburzum 169]

ele esta gerando algum erro ???

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

dá um response.write(strQuery), para ver o que esta sendo passado

 

response.write(strQuery)
response.end()

[flaviora 0]

Pessoal. obrigado por quem tentou ajudar. já resolvi.

 

foi só mudar as variaveis na segunda seção.. olha só

 

<%
dim arqname
dim variavel
arqname = request.form("nomedoarquivoescolhido")
variavel = request.form("nomevar")
response.write ("arqname=" & arqname)


%>
<% 
Set fso = CreateObject("Scripting.FileSystemObject")
ForReading = 1
str_arquivo="e:\home\alaimmoreira\web\jpturismo\" & arqname & ".asp" 
Set str_fso = nothing 
if Request.form("btsalva") = "salvar" then
	str_arquivo="e:\home\alaimmoreira\web\jpturismo\" & variavel & ".asp" 
        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
%>

e la onde entre o form.. adicionar um select com o valor da nova variável.

 

tô postando a solução que encontrei para o caso de alguem ter a mesma duvida! valeu

[xanburzum 169]

OK, resolvido