9 replies to this topic

[higorribeiro]

Tenho um mural em meu site, mas ele não estou conseguindo gravar os ddos no banco de dados, ou seja não consigo incluir nenhum novo recado.
Quando incluo manualmente os recados no banco de dados ele aparece normalmente na pagina recados, mas quando clico no botão novo recado e abre a janela para digitar a mensagem e clico em enviar, aparece a mensagem erro interno no servidor.
o codigo esta abaixo esta da mesma forma que esta na pagina não mudei nenhuma linha. espero que me ajudem.

<%@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), "<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
%>

[vrsbueno]

Veja se todos os usuarios estão abilitados para fazer gravações no banco.

1. Abra o Windows Explorer e vá em opções de Pastas em Ferramentas, e depois em Modo de Exibição;
2. Caso não esteja desmarcado, desmarque a opção "usar compartilhamento simples de arquivo (recomendável)";
3. Dê Ok e retorne ao seu arquivo;
4. Clique com o botão contrário no arquivo e selecione propriedades;
5. Vá na aba segurança e verifique se o usuário "Todos" está na lista. Se não estiver, mande adicionar;
6. Vá em avançado, e depois em localizar agora;
7. Selecione o usuário que terá permissão para alterar fazer operações no banco de dados (normalmente é o usuário IUSR_nome_do_computador, mas eu aconselho a vc a selecionar todos);
8. Dê ok e depois selecione as permissões que deseje atribuir (eu costumo utilizar controle total, mas vai do tipo de acesso ao banco de dados e, até, do banco de dados usado - no caso do access eu sempre uso Todos e Controle total e controlo o acesso via sql);
9. Pronto.

[higorribeiro]

Oq, agora o problema é oseguinte aqui no meu micro funciona direito

mas quando mando para o servidor e vou testar incluir novo recado na pagina onde digitei a mensagem aparece que ela não pode ser exibida e no titulo da pagina aparece HTTP 500 - erro interno do servidor

tipo eu estou achando que esta com algum problema com a comunicação com o servidor eu ja testei as seguintes formas de comunicação apresentando o mesmo erro

varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados\BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

varConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Dados/BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

alguem poderia me ajudar

a pagina que esta o mural é
Pagina

[Rodrigo]

o erro q da ao cliclar em nova mensagem eh esse:

Erro de compilação do Microsoft VBScript erro '800a0400' 

Instrução esperada 

/NovoRecado.asp, line 3 

Option Explicit
^

[higorribeiro]

não aparece msg de erro somente que pagina não pode ser exibida

[vrsbueno]

Bem kra.

Eu estava com o mesmo problema q vc. Fiz akilo e deu certo.

'
[]s

[Troyan]

Abra seu browser e vá em Ferramentas -> Opções de internet. Na aba "Avançado" desmarque a caixa "Exibir erros http amigáveis" (ao algo semelhante).

Recarregue a página e poste o erro aqui.

[]s

[higorribeiro]

o problema era que não era possivel gravar no bd, pois esta bloqueado no servidor.
minha pagina esta hospedado em um serv pago
tipo ao acessar o ftp, vejo que a pagina esta dentro de olhaki\web, sendo que dentro desta pasta olhaki tbem tem uma pasta dados
ou seja tem uma pasta

olhaki/web
olhaki/dados

todos os arquivos estão em olhaki/web tanto a index como todo o resto ou seja a web é a raiz da pagina, mas a informação que tive do serv é que para gravar terei que colocar o bd em dados, mas agora como faço para a paginar enxergar o bd, ou seja antes estava

("Dados/BDMuralRecados.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="
ja coloquei /dados/bd ja coloquei /../dados/bd e ainda não funcionou, tipo no meu micro ta tudo certo mesmo colocando em web e dados tbem, mas é so jogar para o serv que da erro
quem quiser ver o que esta dando acesse, pagina e va em torpedo,

[higorribeiro]

Agora o erro que esta dando é:

Server.MapPath() erro 'ASP 0172 : 80004005'

Caminho inválido

/torpedo.asp, line 21

O parâmetro Caminho para o método MapPath deve ser um caminho virtual. Um caminho físico foi usado.


o o codigo esta assim


'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

alguem pode me ajudar ou me explicar este erro.

[fedimar]

Higorribeiro

Qual é o mural que vc está usando??? Onde vc encontrou o mesmo??

fedimar