Ir para conteúdo
Fórum Script Brasil
  • 0

O Que Há De Errado Nesse Código?

jntk

Perguntado por jntk,

 Share

Pergunta

jntk

jntk

Postado
Postado

huh.gif

Galera é o seguinte, tenho esse código que recebe os dados de um formulário e os inclui em um banco de dados MDB.

No meu computador com o ISS, funciona normalmente, inclui, etc....

Só que quando publico da erro: "HTTP 500 - erro interno do servidor

Internet Explorer"

Por favor, me ajudem vendo se há algum erro:

<% @ Language=VBScript %>
<HTML>
<HEAD>
</HEAD>
<BODY>
<%

'Efetuando a conexão com a base de dados 
'--------------------------------------------------------------------------
Set Conn = Server.CreateObject("AdoDb.Connection") 
Conn.provider="Microsoft.Jet.OLEDB.4.0" 
Conn.connectionstring=Server.Mappath("database/visitas_ieqquitauna.mdb") 
Conn.open 
'--------------------------------------------------------------------------

'criar o objeto RecordSet
'isso ira acessar a tabela do banco de dados
Set RS = Server.CreateObject ("ADODB.Recordset")

SQL="select * from visitas"
RS.Open SQL, Conn, 3, 3

'verificação dos campos obrigatórios
nome=Request.Form ("nome")
email=Request.Form ("email")
pais=Request.Form ("pais")
estado=Request.Form ("estado")
cidade=Request.Form ("cidade")
'homepage=Request.Form ("homepage")
comentarios=Request.Form ("comentarios")

if (nome="") then
	mensagem_nome="Preencha o Campo Nome"
	faltou_dado="Sim"
	faltou_nome="Sim"
end if

if (email="") then
	mensagem_email="Preencha o Campo Email"
	faltou_dado="Sim"
	faltou_email="Sim"
end if

if (pais="") then
	mensagem_pais="Preencha o Campo Pais"
	faltou_dado="Sim"
	faltou_pais="Sim"
end if

if (estado="") then
	mensagem_estado="Preencha o Campo Estado"
	faltou_dado="Sim"
	faltou_estado="Sim"
end if

if (cidade="") then
	mensagem_cidade="Preencha o Campo Cidade"
	faltou_dado="Sim"
	faltou_cidade="Sim"
end if

if (comentarios="") then
	mensagem_comentarios="Preencha o Campo Comentarios"
	faltou_dado="Sim"
	faltou_comentarios="Sim"
end if


'gravar informações no banco de dados
if faltou_dado<>"Sim" then
	RS.AddNew 
  RS.Fields ("Name")= Request.Form ("nome")
  RS.Fields ("Email")= Request.Form ("email")
  RS.Fields ("Country")= Request.Form ("pais")
  RS.Fields ("State")= Request.Form ("estado")
  RS.Fields ("City")=Request.Form ("cidade")
  RS.Fields ("HomePage")=Request.Form ("homepage")
  RS.Fields ("Comment")=Request.Form ("comentarios")
	RS.Update

	RS.Close

	set visitas=Nothing

	Response.Write "<center><br><br><font size=5 color=""#FF9900"">Mensagem Postada com Sucesso!</font><br><br>"
	Response.Write "<em><br>Obrigado por postar em nosso livro de visitas, volte sempre!</em><br><br>"
	Response.Write "<br><a href=index.asp>Ler as Mensagens do Livro</a>"
	Response.Write "<br><br>"
	Response.Write "<br><a href=form_book.htm>Postar outra Mensagem</a>"

end if

'se acaso os dados não foram preenchidos mostra os campos necessários

if faltou_nome="Sim" then
	Response.Write "O campo <b>Nome</b> deve ser preenchido<br><br>"
end if

if faltou_email="Sim" then
	Response.Write "O campo <b>E-mail</b> deve ser preenchido<br><br>"
end if

if faltou_pais="Sim" then
	Response.Write "O campo <b>País</b> deve ser preenchido<br><br>"
end if

if faltou_estado="Sim" then
	Response.Write "O campo <b>Estado</b> deve ser preenchido<br><br>"
end if

if faltou_cidade="Sim" then
	Response.Write "O campo <b>Cidade</b> deve ser preenchido<br><br>"
end if

if faltou_comentarios="Sim" then
	Response.Write "O campo <b>Comentários</b> deve ser preenchido<br><br>"
end if

%>

</BODY>
</HTML>

Pra quem quiser ver isso publicado vai ai o link do teste:

fomulário: http://www.ieqquitauna.com.br/book/form_book.htm

página que le o banco: http://www.ieqquitauna.com.br/book/index.asp

página que incui (q que esta com o erro): http://www.ieqquitauna.com.br/book/inclui.asp

Aguardo por ajuda!!!!!

Link para o comentário
Compartilhar em outros sites

11 respostass a esta questão

Posts Recomendados

  • 0
ViniciusJau

ViniciusJau

Postado
Postado

habilita os erros amigaveis no seu internet explorer .. dai ele vai exibir a ensagem de erro pra vc:

Microsoft JET Database Engine error '80040e09'

Cannot update. Database or object is read-only.

/book/inclui.asp, line 71

eu tentei achar a linha 71 do seu codigo, mais apareceu como se fosse essa aqui:

'gravar informações no banco de dados

mostra qual é essa linha ai ...

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Velho, sobre ERRO 500, veja o link da minha assinatura para fazer aparecer o erro real.

Erro 500 é generico, não diz nada..

De qualquer forma, se o codigo funcionava no IIS, então não é problema no codigo.

Deve ser alguma permissao no banco no servidor..

Link para o comentário
Compartilhar em outros sites
  • 0
jntk

jntk

Postado
  • Autor
Postado
habilita os erros amigaveis no seu internet explorer .. dai ele vai exibir a ensagem de erro pra vc:

Microsoft JET Database Engine error '80040e09'

Cannot update. Database or object is read-only.

/book/inclui.asp, line 71

eu tentei achar a linha 71 do seu codigo, mais apareceu como se fosse essa aqui:

'gravar informações no banco de dados

mostra qual é essa linha ai ...

huh.gif

Como faço pra habilitar?

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado
huh.gif

Como faço pra habilitar?

http://scriptbrasil.com.br/forum/index.php...30entry161506

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Fredson Silva

Guest Fredson Silva

Postado
Postado
cool.gif amigo, este erro que esta acontecendo e´ por que o seu servidor hopesdeiro não tem conecçao sql, observe que na linguagem a conecçao desta pagina e´ em sql. cool.gif
Link para o comentário
Compartilhar em outros sites
  • 0
bareta

bareta

Postado
Postado
cool.gif amigo, este erro que esta acontecendo e´ por que o seu servidor hopesdeiro não tem conecçao sql, observe que na linguagem a conecçao desta pagina e´ em sql. cool.gif

se você observar o codigo verá a conexão... e se você ler a msg de erro e traduzir verá que o banco é somente leitura.... chegando a conclusão que o cara tem que dar a permissão de escrita no bd...

como o dark disse antes....

Link para o comentário
Compartilhar em outros sites
  • 0
jntk

jntk

Postado
  • Autor
Postado

huh.gif

Galera resolvido!

O problema não era de código.

Era que o meu servidor tem uma pasta específica para banco de dados, pois se colocar o bd em qualquer outra pasta não funciona.

Coloquei o bd na pasta específica, e mudei o código para o novo endereço do banco e funcionou corretamente.

Pra ver: http://www.ieqquitauna.com.br/book/index.asp

Valeu a todos..

Abraço

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

ahh

beleza então

provavelmente era algo de permissoes mesmo.

posso fechar o tópico?

Link para o comentário
Compartilhar em outros sites
  • 0
dark0

dark0

Postado
Postado

Tá certo chefe

To fechando o tópico

t+

Link para o comentário
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...