No código abaixo como posso fazer para assim que enviado o formulário depois de aparecer a mensagem "enviado com sucesso", redirecionar para a página incial ?
Se alguém puder me ajudar fico grato.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
Pergunta
Guest - Fiamoncini -
No código abaixo como posso fazer para assim que enviado o formulário depois de aparecer a mensagem "enviado com sucesso", redirecionar para a página incial ?
Se alguém puder me ajudar fico grato.
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<% nome = Request.Form("nome")
telefone = Request.Form("telefone")
cidade = Request.Form("cidade")
email = Request.Form("email")
assunto = Request.Form("assunto")
%>
<%
set conexao = server.createObject ("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("fiamoncini.mdb")
conexao.execute ("insert into tabcontato(nome, telefone, cidade, email, assunto) values('"&request("nome")&"' , '"&request("telefone")&"' , '"&request("cidade")&"' , '"&request("email")&"' , '"&request("assunto")&"')")
conexao.close
set conexao = nothing
%>
<%if Err.number = 0 then%>
<br>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><B>"Formulário
Enviado Com Sucesso!</B><B>"<br>
</B><BR>
</font></td>
</tr>
<tr>
<td><font size="2" face="Verdana, Arial, Helvetica, sans-serif">
<% else %>
<B>"Não Foi Possível Enviar o Formulário!"<br>
</B></font>
<% end if %>
<br>
</td>
</tr>
</table>
<font size="2" face="Verdana, Arial, Helvetica, sans-serif"><BR>
</font>
</body>
</html>
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
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.