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> </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 às 1:30h da manhã</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> </td>
<td><span class="style11">Lista VIP vale somente como entrada! Não da direito ao openbar!</span></td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</body>
</html>
