<%@Language="VBScript"%> <%Option Explicit%> <%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("Dados\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") For i = 0 to 14 varMensagem = Replace(varMensagem, arrayCarinhas(i), "") 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 %>

De: E-mail: Para: Mensagem: