Fale comigo

<%@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: <%For i = 1 to 3%> <%For ii = 1 to 5%> <%varCont = varCont + 1%> <%If ii <> 5 Then%> <%End If%> <%Next%> <%If i <> 3 Then%> <%End If%> <%Next%> .gif" border="0" onClick="JavaScript:Carinhas(formIncluir, <%=varCont%>);">