Jump to content


Photo

Exibir Outra Pagina De Confirmação!


  • Faça o login para participar
Nenhuma resposta neste tópico

#1 cerburus

cerburus

    12 Horas

  • Usuários
  • 163 posts
  • Sexo:Não informado

Posted 04/08/2010, 17:46

galera e simples! esse meu form atual qndo confirmo ele exibe um script dizendo que os dados foram enviados!
só que eu queria que ela exibi-se uma pagina dizendo isso! pois assim e melhor pra mim personalizar!
segue o meu codigo completo meio bagunçado mas pra voces verem ele no geral!

<%@Language="VBScript"%>
<%Response.Expires = 0%>

<%
	Dim i
	Dim ii
	Dim varCont
	
	If Request.Form("txtDe") <> "" Then
		Dim objConn
		Dim varConn
		Dim varSql
		Dim rsIncluir
		Dim varMensagem
		Dim arrayCarinhas(14)
		
		'Cria a conexão com a base de dados
		Set objConn = Server.CreateObject("ADODB.Connection")
		varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
		objConn.Open varConn
	
		arrayCarinhas(0) = "(1)"
		arrayCarinhas(1) = "(2)"
		arrayCarinhas(2) = "(3)"
		arrayCarinhas(3) = "(4)"
		arrayCarinhas(4) = "(5)"
		arrayCarinhas(5) = "(6)"
		arrayCarinhas(6) = "(7)"
		arrayCarinhas(7) = "(8)"
		arrayCarinhas(8) = "(9)"
		arrayCarinhas(9) = "(10)"
		arrayCarinhas(10) = "(11)"
		arrayCarinhas(11) = "(12)"
		arrayCarinhas(12) = "(13)"
		arrayCarinhas(13) = "(14)"
		arrayCarinhas(14) = "(15)"
		
		varSql = "SELECT * "
		varSql = varSql & "FROM MuralRecados "
		
		Set rsIncluir = Server.CreateObject("ADODB.Recordset")
		rsIncluir.CursorType = 0
		rsIncluir.CursorLocation = 2
		rsIncluir.LockType = 3
		rsIncluir.Open varSql, objConn
		
		
		rsIncluir.AddNew
		rsIncluir.Fields("DataInclusao") = Date()
		rsIncluir.Fields("HoraInclusao") = Time()
		rsIncluir.Fields("De") = Request.Form("txtDe")
		rsIncluir.Fields("Email") = Request.Form("txtEmail")
		rsIncluir.Fields("Para") = Request.Form("txtPara")
		
		
		
		varMensagem = Request.Form("areaMensagem")
		varMensagem = replace(varMensagem, chr(13), "<br>")
		For i = 0 to 14
			varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=Imagens/Carinhas/" & i+1 & ".gif>")
		Next
		
		rsIncluir.Fields("Mensagem") = varMensagem
		rsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")
		rsIncluir.Update
		
		rsIncluir.Close
		Set rsIncluir = Nothing
		
		objConn.Close
		Set objConn = Nothing
	End If
%>

<html>
<head>
		<title>Enviar nomes para Lista VIP</title>
		<style type="text/css">
		<!--
			a:active{
				text-decoration: none;
				color: #333333;
			}
			a:hover{
				text-decoration: none;
				color: #000000;
			}
			a:link{
				text-decoration: none;
				color: #333333;
			}
			a:visited{
				text-decoration: none;
				color: #333333;
			}
			.Texto1{
				font-family: Verdana;
				font-size: 10px;
				font-weight: none;
				color: #000000;
				text-decoration: none;
			}
			.Texto2{
				font-family: Verdana;
				font-size: 10px;
				font-weight: bold;
				color: #000000;
				text-decoration: none;
			}
			.Borda1{
				border: 1px solid #999999;
			}
			.Form1{
				border: 1px solid #999999;
				font-family: Verdana;
				font-size: 12px;
				color: #000000;
				text-decoration: none;
				background-color: #FFF4CA;
			}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-color: #333333;
	color: #999;
}
.style3 {font-family: Verdana; font-size: 10px; font-weight: bold; color: #FFFFFF; text-decoration: none; }
.style5 {font-family: Verdana; font-size: 12px; text-decoration: none; background-color: #FFF4CA; border: 1px solid #999999;}
.style6 {color: #FFFFFF}
.APAGAO {
	font-weight: bold;
	font-family: "Arial Black", Gadget, sans-serif;
}
.style9 {
	color: #FFFFFF;
	font-size: 12px;
}
.style3 em {
	font-size: 11px;
}
.style11 {
	color: #FFFFFF;
	font-family: Arial, Helvetica, sans-serif;
	font-size: 10px;
}
		-->
		</style>
<script language="JavaScript">
<!--
			<%If Request.Form("txtDe") <> "" Then%>
				opener.location.reload();
				alert('Dados enviados com SUCESSO!');
				window.close();
			<%End If%>
			
			function Incluir(varForm){
				if (varForm.txtDe.value == ""){
					window.alert ("Preencha o campo SEU NOME");
					varForm.txtDe.focus();
					return false;
				}
				if (varForm.txtPara.value == ""){
					window.alert ("Falta preencher o campo SEU EMAIL");
					varForm.txtPara.focus();
					return false;
				}
				if (varForm.areaMensagem.value == ""){
					window.alert ("Falta preencher o campo MENSAGEM");
					varForm.areaMensagem.focus();
					return false;
				}
				varForm.submit();
			}
			
			function Carinhas(varForm, varCarinha){
				var arrayCarinhas = new Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)", "(8)", "(9)", "(10)", "(11)", "(12)", "(13)", "(14)", "(15)")
				
				varCarinha = varCarinha - 1;
				
				varForm.areaMensagem.value = varForm.areaMensagem.value + " " + arrayCarinhas[varCarinha] + " ";

			}
//-->
        </script>
        


<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body onLoad="JavaScript:document.formIncluir.txtDe.focus();">
		<table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center">
			<tr>
				<td valign="top">
					<table border="0" align="center">
						<form name="formIncluir" method="post" action="mural_new.asp">
							<tr>
							  <td colspan="2" align="center" class="APAGAO">SMIRNOFF EXPERIENCE OPEN</td>
						  </tr>
							<tr>
							  <td colspan="2" align="center" class="style3">QUI|05|AGOSTO</td>
							</tr>
							<tr>
								<td>&nbsp;</td>
								<td>
									<input name="txtPara" type="hidden" class="style5" size="42" maxlength="35" value="sim">								<input type="hidden" name="txtEmail" value="sim">
									<input name="txtDe" type="hidden" class="style5" size="42" maxlength="35" value="sim">
									Enviar nome completo!</td>
							</tr>
							<tr>
								<td><font class="style3">Nomes:</font></td>
								<td><textarea name="areaMensagem" cols="42" rows="6" class="style5" id="areaMensagem"></textarea>
								  <br>
							  <span class="style9"> Chegue cedo!!! Alista encerra &agrave;s 1:30h da manh&atilde;</span></td>
						  </tr>
							<tr>
								<td><span class="style6"></span> </td>
								<td>
									<input name="btnColar" type="button" class="style5" onClick="JavaScript:Incluir(formIncluir)" value="CONFIRMAR NOMES"></td>
							</tr>
							<tr>
							  <td>&nbsp;</td>
							  <td><span class="style11">Lista VIP vale somente como entrada! N&atilde;o da direito ao openbar!</span></td>
						  </tr>
						</form>
					</table>
			  </td>
			</tr>
		</table>
	</body>
</html>





2 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)


    Bing (2)
IPB Skin By Virteq