[Resolvido] Perdendo o valor da Variável

[EduardoFonseca 0]

Bom dia,

 

Estou precisando de mais uma vez da valiosa ajuda de vocês, a variavel esta perdendo o seu valor. Criei a variavel tabela e esta pegando o seu conteúdo através do Request.QueryString (tabela = Request.QueryString("urltabela")), inclusive adicionei o (response.write tabela) para ver o seu conteúdo e esta mostrando ele normalmente. Só que quando vou usar ele no Inserto Intro ele não tem nenhum valor.

 

Quando eu adiciono manualmente exemplo: tabela = "nomedatabela", o insert intro funciona.

 

Como faço para não perder o valor da variavel ? Abaixo segue o código para melhorar a viasualização de vocês. Desde já obrigado e um grande abraço, Edu

 

 

<%Option Explicit%>
<!--#include file="asp_bibconexao.asp"-->
<%
If session("usr_log_ok")="" Then 
  response.Redirect("index.htm")
  Session("pagina_restrita") = Request.ServerVariables("SCRIPT_NAME")&"?"&request.ServerVariables("QUERY_STRING")
  Response.End()
End If

Dim tabela
tabela = Request.QueryString("urltabela")
response.write tabela

if request("Cadastrar") = "Cadastrar" then 

Dim data, qtde, valor
Dim sSQL, Conexao

sSQL = "INSERT INTO "
sSQL = sSQL & tabela
sSQL = sSQL & " (data, qtde, valor) "
sSQL = sSQL & "Values ('" & data & "','" & qtde & "','" & valor & "')"

response.Write sSQL

call abre_conexao
On error Resume Next
Conexao.execute sSQL

	If err.Number=0 Then 
	
%>

<script language="JavaScript">
alert("Inclusão realizada com SUCESSO");
</script>

<%	
	Else
		response.write "Erro na gravação.<br>"	
		response.Write "Número:" & err.Number & "<br>"
		response.Write "Descricao:" & err.Description & "<br>"
	End IF

call fecha_conexao
end if 
%>

[Patrique 0]

Eduardo como neste caso você estara especificando o nome da tabela no insert o asp não executa, so daria para fazer se fosse valor em campos.

 

neste caso faça assim, vamos supor que a tabela vinda do querystring tenha o nome de tabela1

 

<%
tabela = Request.QueryString("urltabela")

If tabela = "tabela1" then

	sSQL = "INSERT INTO "
	sSQL = sSQL tabela1
	sSQL = sSQL & " (data, qtde, valor) "
	sSQL = sSQL & "Values ('" & data & "','" & qtde & "','" & valor & "')"

'agora vamos supor que a tabela seja chamada pela querystring de tabela2
elseif tabela = "tabela2" then 
	sSQL = "INSERT INTO "
	sSQL = sSQL tabela2
	sSQL = sSQL & " (data, qtde, valor) "
	sSQL = sSQL & "Values ('" & data & "','" & qtde & "','" & valor & "')"

'agora vamos supor que você queira inserir na tabela3
elseif tabela = "tabela3" then
	sSQL = "INSERT INTO "
	sSQL = sSQL tabela3
	sSQL = sSQL & " (data, qtde, valor) "
	sSQL = sSQL & "Values ('" & data & "','" & qtde & "','" & valor & "')"
End If
%>

E por ae vai... entendeu?

[hargon 64]

Eduardo, não é aconselhável passar o nome da tabela e campos por parâmetro. Dessa forma seu sistema fica vulnerável.

 

Se a dica do Patrique não funcionar, posta o HTML de um formulário para entendermos como está passando o parâmetro.

[EduardoFonseca 0]

Boa Tarde Hargon e Patrique.

 

Perfeito, funcionou. Obrigado mais uma vez. A ajuda de vocês valem ouro.

 

Um grande abraço.

 

Edu

[Patrique 0]

Que bom que funcionou http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[hargon 64]

Muito bom.

 

Abraço.