Abrir Nova Página

[jfranco]

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:

<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.

[.Andreia.]

você vai usar o window.open do javascript...

movendo.

[jfranco]

Andreia,

O problema com o windows.open é que ele me abre uma nova instância do browser em memória e não é isso o que quero.

O que eu quero é abrir uma página como se tivesse clicado em um link, entendeu?

Como resolver o problema, então?

[.Andreia.]

não entendi... tem algum exemplo?

[jfranco]

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 Fevereiro 23, 2007 por jfranco

[rgarbin]

windon.location.href = 'LINK'

Pode ser este????

[jfranco]

Valeu, RGarbin!

Era exatamente isso o que eu precisava.

Obrigado e abraços.