Erro em postar mensagem no mural de recados

[Life Guard 0]

[ASP] :huh:

 

Por favor, me ajudem com esse código please!!!!

<%@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

 

 

linha de erro------->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), "<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

%>

[Life Guard 0]

My Webpage

 

De uma olhada na pagina, por favor.

[Life Guard 0]

Não, a propriedade do db está como arquivo.você tem alguma outra sugestão, por favor.....

[Life Guard 0]

Estas permissões das quais você fala, seria a permissão do uso de banco de dados junto ao servidor de hospedagem?

[Life Guard 0]

Alterei a linha e continua dando o mesmo erro.....

[wesleymferreira 0]

Olá! ´Alguém poderia me dizer qual é o código correto para o envio das mensagens no Mural de Recados? Estou tentando instalar o Mural em meu site e está dando o mesmo erro.Se alguém tiver, por gentileza, me envie.