[Resolvido] Pegar dados da página pai com ASP como Javascript

[Evandro Araujo 2 0]

Olá meu amigos do Fórum iMasters.

 

Gostaria do auxílio dos amigos na seguinte questão:

 

Queria pegar os dados de uma caixa de texto da página pai e colocar numa variável para inserir em uma instrução SQL para injetar no banco de dados. Algo equivalente ao window.opener no JavaScript.

Mas preciso que seja em ASP com VBScript.

 

Obrigado,

Evandro.

[Bruno Capella 7]

porque não passa por querystring ou cria sessão??

 

ou guarda em campo hidden e pega via javascript..

 

creio que seria mais facil!

[Evandro Araujo 2 0]

Obrigado Bruno,

Fiz uma espécie de gambiarra aqui e funcionou.

Segue o mesmo principio sugerido por você.

 

Mais uma vez, obrigado.

 

Evandro.

[xanburzum 169]

olha este exemplo

 

<% 'incluir_action.asp => fazer a inclusao no BD, antes fazendo uma verificaçao
   'no BD através de SQL Select if not rs.eof then
   'redireciono para incluir_form.asp?msgeof=1 else
   'incluo no bd atraves da SQL Insert e redireciono para adiministraçao.asp?msg=1
   'e lá receberá um mensagem de sucesso
   
   Option explicit
   'declaro as var
   dim varlogin, varemail, varsenha, conexao, conDBQ, constring, rsselect, SQLselect, rsinsert, SQLinsert
   'recupero todos os dados
   varlogin=trim(request.form("login"))
   varsenha=trim(request.form("senha"))
   varemail=trim(request.form("email"))
   'crio a conexao
   %>
   <!--#include file="conn/conexao1.asp"-->
   <% 'abrir a conexao
   call abreconexao
   'crio o rsselect para verificar se os dados jah estaun cadastrados
   set rsselect=server.createobject("ADODB.Recordset")
   'crio o SQLselect
   SQLselect="SELECT login FROM login WHERE login='"&varlogin&"'"
   rsselect.open SQLselect,conexao,1,3
   if not rsselect.eof then
   		response.redirect("incluir_form_treina.asp?msgeof=1")
		set rsselect=nothing
   else	
   		'crio o rsinsert para inseiri os dados no bd
   		 set rsinsert=server.createobject("ADODB.Recordset")
		'crio o SQLinsert pra incluir no bd
		SQLinsert="INSERT INTO login(login,senha,email) values('"&varlogin&"','"&varsenha&"','"&varemail&"')"
		rsinsert.open SQLinsert,conexao,1,3
		response.redirect("administracao_treina.asp?msg=1")
		set rsinsert=nothing
	end if 
	call fechaconexao %>

antes de inserir verifique se ja naun existe no banco....