Ir para conteúdo
Fórum Script Brasil
  • 0

Abrir Nova Página


jfranco

Pergunta

Boa tarde,

O problema é o seguinte:

Preciso abrir uma página com texto para avisar ao usuário que a gravação de dados foi concluída com êxito.

A rotina de gravação é executada quando o usuário clica em um botão como abaixo:

<input type="button" name="EnviarResposta" value="Enviar" onclick="GravaDados()">

A rotina de gravação de dados está abaixo:

&lt;script language=JavaScript>
function GravaDados()
{
<%
Dim conJobSystems
Dim rsJobSystems
Dim SQLInsert

Set conJobSystems = Server.CreateObject("ADODB.Connection")
Set rsJobSystems = Server.CreateObject("ADODB.Recordset")

conJobSystems.Provider = "Microsoft.Jet.OLEDB.4.0"
conJobSystems.ConnectionString = Server.MapPath("\Dados\JobSystems.mdb")

conJobSystems.Open

rsJobSystems.Activeconnection = conJobSystems
rsJobSystems.Cursortype = adOpenkeyset
%>

<!-- #include file="Include/Adovbs.inc"-->

<%
rsJobSystems.Locktype = adlockOptimistic
rsJobSystems.Source = "TabClie"

SQLInsert = "Insert Into TabClie (EmpClie, NomeClie, CargoClie, EnderecoClie, EstadoClie, EmailClie, MensClie)"
SQLInsert = SQLInsert & " Values ("
SQLInsert = SQLInsert & "'" & Request.Form("empresa") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("nome") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("cargo") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("endereco") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("estado") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("e_mail") & "',"
SQLInsert = SQLInsert & "'" & Request.Form("msg") & "')"

conJobSystems.Execute(SQLInsert)

conJobSystems.Close

Set rsJobSystems = Nothing
Set conJobSystems = Nothing
%>

alert("Dados gravados com sucesso!\n\nAperte o botão 'Voltar' do seu navegador ou escolha uma das opções do Menu.\n\nObrigado.");

return true
}
</script>
[/codebox]

Como posso fazer para, após gravar os dados, em vez de abrir o "alert" (pois isso obriga o usuário a clicar num botão e volta para a mesma página onde os dados estavam sendo apresentados), abrir uma nova página com um texto avisando que foi tudo bem, etc, etc?

Obrigado.

Link para o comentário
Compartilhar em outros sites

6 respostass a esta questão

Posts Recomendados

  • 0

A idéia é a seguinte:

Em um formulário, o usuário digita os dados que serão gravados no banco de dados, tipo empresa, nome, e-mail. Daí, após digitar os dados, o usuário clica no botão "Enviar"; os dados são enviados a uma página e são exibidos com <%Response.Write "" & Request.Form("empresa")%>, por exemplo. Se o usuário quiser corrigir algum dado, clica no botão "Voltar", senão clica no botão "Enviar" como abaixo:

<input type="button" name="EnviarResposta" value="Enviar" onclick="GravaDados()">

A rotina GravaDados() gera um novo registro e grava os campos; daí aparece um alert tipo abaixo:

alert("Dados gravados com sucesso!\n\nAperte o botão 'Voltar' do seu navegador ou escolha uma das opções do Menu.\n\nObrigado.");

Acontece que ao clicar no botão "Ok" do alert volta-se para a página onde os dados estavam sendo apresentados e eu gostaria que fosse apresentada apenas algo do tipo:

Agradecemos seu contato.

Em breve, atenderemos sua solicitação.

Cordialmente,

blá, blá, blá, em uma página semelhante a qualquer página do site...

Algo como uma cláusula "action=..." num form.

Ficou claro agora?

Editado por jfranco
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...