em formulário asp

[maurohpg 0]

Boa Tarde,

 

Fiz um form no dreamweaver mx para enviar informações de um formulário para um BD em meu server, até ai beleza, está tudo OK, ele envia certinho as informações para o servidor. Após você preencher o form ele te redireciona para um página falando que a inscrição foi feita com sucesso, gostaria que nessa página ele puxasse os dados preenchidos de outra página e jogasse eles na tela. por exemplo o nome da pessoa que preencheu o fomulário. não estou sabendo como fazer isso se alguém puder me ajudar agradeço muito.

 

<%@LANGUAGE="VBSCRIPT"%><!--#include file="../Connections/inscricao.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "incricao") Then  MM_editConnection = MM_inscricao_STRING  MM_editTable = "inscricao"  MM_editRedirectUrl = "sucesso.asp"  MM_fieldsStr  = "nome_equipe|value|nome_integrantes|value|email_integrantes|value|idade_integrantes|value|nome_tutor|value|idade_tutor|value|rg_tutor|value|nascimento_tutor|value|naturalidade_tutor|value|endereco_tutor|value|cep_tutor|value|cidade_tutor|value|estado_tutor|value|bairro_tutor|value|telefone_tutor|value|email_tutor|value|nome_tecnico|value|idade_tecnico|value|rg_tecnico|value|nascimento_tecnico|value|naturalidade_tecnico|value|endereco_tecnico|value|estado_tecnico|value|telefone_tecnico|value|email_tecnico|value|universidade_tecnico|value|serie_tecnico|value|curso_tecnico|value"  MM_columnsStr = "nome_equipe|',none,''|nome_integrantes|',none,''|email_integrantes|',none,''|idade_integrantes|',none,''|nome_tutor|',none,''|idade_tutor|',none,''|rg_tutor|',none,''|nascimento_tutor|',none,''|naturalidade_tutor|',none,''|endereco_tutor|',none,''|cep_tutor|',none,''|cidade_tutor|',none,''|estado_tutor|',none,''|bairro_tutor|',none,''|telefone_tutor|',none,''|email_tutor|',none,''|nome_tecnico|',none,''|idade_tecnico|',none,''|rg_tecnico|',none,''|nascimento_tecnico|',none,''|naturalidade_tecnico|',none,''|endereco_tecnico|',none,''|estado_tecnico|',none,''|telefone_tecnico|',none,''|email_tecnico|',none,''|universidade_tecnico|',none,''|serie_tecnico|',none,''|curso_tecnico|',none,''"  ' create the MM_fields and MM_columns arrays  MM_fields = Split(MM_fieldsStr, "|")  MM_columns = Split(MM_columnsStr, "|")    ' set the form values  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))  Next  ' append the query string to the redirect URL  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString    Else      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString    End If  End IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then  ' create the sql insert statement  MM_tableValues = ""  MM_dbValues = ""  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_formVal = MM_fields(MM_i+1)    MM_typeArray = Split(MM_columns(MM_i+1),",")    MM_delim = MM_typeArray(0)    If (MM_delim = "none") Then MM_delim = ""    MM_altVal = MM_typeArray(1)    If (MM_altVal = "none") Then MM_altVal = ""    MM_emptyVal = MM_typeArray(2)    If (MM_emptyVal = "none") Then MM_emptyVal = ""    If (MM_formVal = "") Then      MM_formVal = MM_emptyVal    Else      If (MM_altVal <> "") Then        MM_formVal = MM_altVal      ElseIf (MM_delim = "'") Then  ' escape quotes        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"      Else        MM_formVal = MM_delim + MM_formVal + MM_delim      End If    End If    If (MM_i <> LBound(MM_fields)) Then      MM_tableValues = MM_tableValues & ","      MM_dbValues = MM_dbValues & ","    End If    MM_tableValues = MM_tableValues & MM_columns(MM_i)    MM_dbValues = MM_dbValues & MM_formVal  Next  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"  If (Not MM_abortEdit) Then    ' execute the insert    Set MM_editCmd = Server.CreateObject("ADODB.Command")    MM_editCmd.ActiveConnection = MM_editConnection    MM_editCmd.CommandText = MM_editQuery    MM_editCmd.Execute    MM_editCmd.ActiveConnection.Close    If (MM_editRedirectUrl <> "") Then      Response.Redirect(MM_editRedirectUrl)    End If  End IfEnd If%>

[maurohpg 0]

Boa Tarde,Fiz um form no dreamweaver mx para enviar informações de um formulário para um BD em meu server, até ai beleza, está tudo OK, ele envia certinho as informações para o servidor. Após você preencher o form ele te redireciona para um página falando que a inscrição foi feita com sucesso, gostaria que nessa página ele puxasse os dados preenchidos de outra página e jogasse eles na tela. por exemplo o nome da pessoa que preencheu o fomulário. não estou sabendo como fazer isso se alguém puder me ajudar agradeço muito.

<%@LANGUAGE="VBSCRIPT"%><!--#include file="../Connections/inscricao.asp" --><%' *** Edit Operations: declare variablesDim MM_editActionDim MM_abortEditDim MM_editQueryDim MM_editCmdDim MM_editConnectionDim MM_editTableDim MM_editRedirectUrlDim MM_editColumnDim MM_recordIdDim MM_fieldsStrDim MM_columnsStrDim MM_fieldsDim MM_columnsDim MM_typeArrayDim MM_formValDim MM_delimDim MM_altValDim MM_emptyValDim MM_iMM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))If (Request.QueryString <> "") Then  MM_editAction = MM_editAction & "?" & Request.QueryStringEnd If' boolean to abort record editMM_abortEdit = false' query string to executeMM_editQuery = ""%><%' *** Insert Record: set variablesIf (CStr(Request("MM_insert")) = "incricao") Then  MM_editConnection = MM_inscricao_STRING  MM_editTable = "inscricao"  MM_editRedirectUrl = "sucesso.asp"  MM_fieldsStr  = "nome_equipe|value|nome_integrantes|value|email_integrantes|value|idade_integrantes|value|nome_tutor|value|idade_tutor|value|rg_tutor|value|nascimento_tutor|value|naturalidade_tutor|value|endereco_tutor|value|cep_tutor|value|cidade_tutor|value|estado_tutor|value|bairro_tutor|value|telefone_tutor|value|email_tutor|value|nome_tecnico|value|idade_tecnico|value|rg_tecnico|value|nascimento_tecnico|value|naturalidade_tecnico|value|endereco_tecnico|value|estado_tecnico|value|telefone_tecnico|value|email_tecnico|value|universidade_tecnico|value|serie_tecnico|value|curso_tecnico|value"  MM_columnsStr = "nome_equipe|',none,''|nome_integrantes|',none,''|email_integrantes|',none,''|idade_integrantes|',none,''|nome_tutor|',none,''|idade_tutor|',none,''|rg_tutor|',none,''|nascimento_tutor|',none,''|naturalidade_tutor|',none,''|endereco_tutor|',none,''|cep_tutor|',none,''|cidade_tutor|',none,''|estado_tutor|',none,''|bairro_tutor|',none,''|telefone_tutor|',none,''|email_tutor|',none,''|nome_tecnico|',none,''|idade_tecnico|',none,''|rg_tecnico|',none,''|nascimento_tecnico|',none,''|naturalidade_tecnico|',none,''|endereco_tecnico|',none,''|estado_tecnico|',none,''|telefone_tecnico|',none,''|email_tecnico|',none,''|universidade_tecnico|',none,''|serie_tecnico|',none,''|curso_tecnico|',none,''"  ' create the MM_fields and MM_columns arrays  MM_fields = Split(MM_fieldsStr, "|")  MM_columns = Split(MM_columnsStr, "|")    ' set the form values  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))  Next  ' append the query string to the redirect URL  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString    Else      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString    End If  End IfEnd If%><%' *** Insert Record: construct a sql insert statement and execute itDim MM_tableValuesDim MM_dbValuesIf (CStr(Request("MM_insert")) <> "") Then  ' create the sql insert statement  MM_tableValues = ""  MM_dbValues = ""  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2    MM_formVal = MM_fields(MM_i+1)    MM_typeArray = Split(MM_columns(MM_i+1),",")    MM_delim = MM_typeArray(0)    If (MM_delim = "none") Then MM_delim = ""    MM_altVal = MM_typeArray(1)    If (MM_altVal = "none") Then MM_altVal = ""    MM_emptyVal = MM_typeArray(2)    If (MM_emptyVal = "none") Then MM_emptyVal = ""    If (MM_formVal = "") Then      MM_formVal = MM_emptyVal    Else      If (MM_altVal <> "") Then        MM_formVal = MM_altVal      ElseIf (MM_delim = "'") Then  ' escape quotes        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"      Else        MM_formVal = MM_delim + MM_formVal + MM_delim      End If    End If    If (MM_i <> LBound(MM_fields)) Then      MM_tableValues = MM_tableValues & ","      MM_dbValues = MM_dbValues & ","    End If    MM_tableValues = MM_tableValues & MM_columns(MM_i)    MM_dbValues = MM_dbValues & MM_formVal  Next  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"  If (Not MM_abortEdit) Then    ' execute the insert    Set MM_editCmd = Server.CreateObject("ADODB.Command")    MM_editCmd.ActiveConnection = MM_editConnection    MM_editCmd.CommandText = MM_editQuery    MM_editCmd.Execute    MM_editCmd.ActiveConnection.Close    If (MM_editRedirectUrl <> "") Then      Response.Redirect(MM_editRedirectUrl)    End If  End IfEnd If%>

Bom jah havia tentado usar isto só que não funcionou, a página que redireciona após inserir od dados no BD é uma página simples que só teim um texto dizendo que foi enviado com sucesso o cadastro. e não imprime de jeito alguim na tela....será que teria que cria uma session?

[Volpisp 0]

Seguinte,Cria uma Session na Pagina de cadastro que e melhor... no meu caso eu criei com o rs que vai insrir no banco....Session("codigo") = (BuscaCodigo.Fields.Item("Codigo").Value)apartir da i e so alegria...<%Response.Write(Session("codigo"))%>

[maurohpg 0]

Fiz o seguinte:na página de inscrição criei a session<% Session("campos") = Request.Form("nome_equipe")%>e na de confirmação<%Response.Write(Session("campos"))%>só que não deu certo não. não imprimiu nada na dela.