Mural de Recados

[Thiago Zucolato 0]

Boa tarde!! pessoalGostaria que alguem me ajudasse, estou com um mural em asp só que esta dando um erro inserir um novo recado, sera que alguem pode me ajudar a resolver, ele tem duaas paginas (default.asp e novorecado.asp) e banco de dados para os recados.A pagina default.asp é a seguinte:<%@Language="vb script:NovoRecado();"></td><td align="right"><%If Request.QueryString("Pagina") = 1 or Request.QueryString("Pagina") = "" Then%><input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);" disabled><%Else%><input type="button" name="btnAnterior" value="Anterior" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") - 1%>);"><%End If%><%If rsMuralRecados.EOF Then%><input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 1%>);" disabled><%Else%><%If Request.QueryString("Pagina") = "" Then%><input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 2%>);"><%Else%><input type="button" name="btnProximo" value="Próximo" class="Form1" onClick="java script:Paginacao(<%=Request.QueryString("Pagina") + 1%>);"><%End If%><%End If%><%rsMuralRecados.CloseSet rsMuralRecados = NothingobjConn.CloseSet objConn = Nothing%>e a pagina NovoRecado esta assim:<%@Language="vb script:document.formIncluir.txtDe.focus();"><table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center"> <tr> <td> <table border="0" align="center"> <form name="formIncluir" method="post" action="NovoRecado.asp"> <tr> <td> <font class="Texto2"> De: </font> </td> <td> <input type="text" name="txtDe" maxlength="35" size="35" class="Form1"> </td> </tr> <tr> <td> <font class="Texto2"> E-mail: </font> </td> <td> <input type="text" name="txtEmail" maxlength="35" size="35" class="Form1"> </td> </tr> <tr> <td> <font class="Texto2"> Para: </font> </td> <td> <input type="text" name="txtPara" maxlength="35" size="35" class="Form1"> </td> </tr> <tr> <td> <font class="Texto2"> Mensagem: <br><br><br><br><br><br> </font> </td> <td> <textarea name="areaMensagem" class="Form1" cols="34" rows="5"></textarea> </td> <td width="5"> </td> <td> <table cellpadding="0" cellspacing="0" border="0"> <%For i = 1 to 3%> <tr> <%For ii = 1 to 5%> <%varCont = varCont + 1%> <td><a href="#"><img src="Imagens/Carinhas/<%=varCont%>.gif" border="0" onClick="java script:Carinhas(formIncluir, <%=varCont%>);"></a></td> <%If ii <> 5 Then%> <td width="5"> </td> <%End If%> <%Next%> </tr> <%If i <> 3 Then%> <tr> <td height="5"> </td> </tr> <%End If%> <%Next%> <input type="button" name="btnColar" value="Colar" class="Form1" onClick="java script:Incluir(formIncluir);"> </html>a hora que manda ele postar o novo recado ela da erro na pagina novorecado no :rsIncluir.AddNewSera que alguem sabe o problemadesculpa o tamanho do post mas é que preciso muito acertar isso.Muito Obrigado pessoal.

[jrcardozo 4]

tenho a impressão que faltou posta a página do código, provavelmente de nome novorecado

[Thiago Zucolato 0]

Faltou essa qui mesmo...............valeu pessoal<%@Language="vb script:document.formIncluir.txtDe.focus();"><table cellpadding="0" cellspacing="0" border="0" width="100%" height="100%" align="center"> <tr> <td> <table border="0" align="center"> <form name="formIncluir" method="post" action="NovoRecado.asp"> <tr> <td> <font class="Texto2"> De: </font> </td> <td> <input type="text" name="txtDe" maxlength="35" size="35" class="Form1"> </td> </tr> <tr> <td> <font class="Texto2"> E-mail: </font> </td> <td> <input type="text" name="txtEmail" maxlength="35" size="35" class="Form1"> </td> </tr> <tr> <td> <font class="Texto2"> Para: </font> </td> <td> <input type="text" name="txtPara" maxlength="35" size="35" class="Form1"> </td> </tr> <tr> <td> <font class="Texto2"> Mensagem: <br><br><br><br><br><br> </font> </td> <td> <textarea name="areaMensagem" class="Form1" cols="34" rows="5"></textarea> </td> <td width="5"> </td> <td> <table cellpadding="0" cellspacing="0" border="0"> <%For i = 1 to 3%> <tr> <%For ii = 1 to 5%> <%varCont = varCont + 1%> <td><a href="#"><img src="Imagens/Carinhas/<%=varCont%>.gif" border="0" onClick="java script:Carinhas(formIncluir, <%=varCont%>);"></a></td> <%If ii <> 5 Then%> <td width="5"> </td> <%End If%> <%Next%> </tr> <%If i <> 3 Then%> <tr> <td height="5"> </td> </tr> <%End If%> <%Next%> </table> </td> </tr> <tr> <td> </td> <td> <input type="button" name="btnColar" value="Colar" class="Form1" onClick="java script:Incluir(formIncluir);"> </td> </tr> </form> </table> </td> </tr> </table> </body></html>esse pedaço faltou denovo'<%@Language="VBScript"%><%Option Explicit%><%Response.Expires = 0%><%Dim iDim iiDim varCont If Request.Form("txtDe") <> "" ThenDim objConnDim varConnDim varSqlDim rsIncluirDim varMensagemDim arrayCarinhas(14) 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 = 0rsIncluir.CursorLocation = 2rsIncluir.LockType = 3rsIncluir.Open varSql, objConn rsIncluir.AddNewrsIncluir.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 14varMensagem = Replace(varMensagem, arrayCarinhas(i), "<img src=Imagens/Carinhas/" & i+1 & ".gif>")Next rsIncluir.Fields("Mensagem") = varMensagemrsIncluir.Fields("IPConexao") = Request.ServerVariables("REMOTE_ADDR")rsIncluir.Update rsIncluir.CloseSet rsIncluir = Nothing objConn.CloseSet objConn = NothingEnd If%>

[jrcardozo 4]

qual a mensagem de erro que aparece? destaca a linha do erro pra facilitar

[Thiago Zucolato 0]

a mensagem é essa, ja verifiquei tb o banco de dados, mas ele não esta somente leitura. o q sera que é?Tipo de erro:Microsoft JET Database Engine (0x80040E09)Não é possível atualizar. O banco de dados ou o objeto é somente leitura./sodelirio/recado/NovoRecado.asp, line 49

[shumi 0]

Thiago poste seus codigos entre as tags code do forum se não fica ruim a visualização.

[jrcardozo 4]

se você está com o micro conectado numa rede, clique sobre o banco com botão direito do mouse e exiba as propriedade. Clique na aba segurança e adicione o nome do usuário(maquina) que vai acessar o banco....depois disso adicione permissões de gravação para o usuario adicionadoverifique também as opções da pasta Dados. Aparentemente é apenas permissões, não vi nada de errado no código. Já tentou em algum servidor hospedado se acontece o mesmo erro?

[Thiago Zucolato 0]

a pasta esta somente leitura, mas eu não estou conseguindo alterar, sera que se jogar no provedor funciona

[jrcardozo 4]

acho que funciona, pela mensagem de erro você tem que mudar as permissões do banco, ele pode estar sem o somente leitura marcado, mas isso não basta, voce tem que dar permissões de segurançareinicie o IIS e antes de executar uma página mofifique as permissões, provavelemnte você deixou a conexão aberta