HTTP 500.100 - Servidor interno Erro

[maya10 0]

Estou tentando inserir dados em BD Access. Quando faço oteste em minha maquina utilizando o IIS funciona perfeitamente mais quando faço a hospedagem aparece o erro "HTTP 500.100 - Servidor interno Erro"

 

Ja tentei várias formas de coneccão com o BD:

 

1º - conn.open "con_rei_01","","" (Conecção ODBC criada no servido)

2º - conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("database\bd_rei_01.mdb")

 

Segue abixoo codigo completo:

CODE

<%'se insert for sim, efetua o novo cadastro

if request.QueryString("insert")="sim" then

 

 

vr_nome = request.Form("nome")

vr_email = request.Form("email")

vr_telefone = request.Form("telefone")

vr_cidade = request.Form("cidade")

vr_assunto = request.Form("assunto")

vr_texto = request.Form("texto")

 

 

 

 

sql ="insert into TB_CONTATOS (CONT_TITULO,CONT_NOME,CONT_EMAIL,CONT_TEL,CONT_CIDADE,CONT_TEXTO) values ('"&vr_assunto&"','"&vr_nome&"','"&vr_email&"','"&vr_telefone&"','"&vr_cidade&"','"&vr_texto&"')"

Set conn = Server.CreateObject("ADODB.Connection")

 

conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("database\bd_rei_01.mdb")

conn.open MM_conexao_privativa_STRING

set rs = conn.execute(sql)

set rs=nothing

 

 

response.Redirect("contatos.asp?resp=Caro(a) cliente "&vr_nome&", sua mensagem foi enviada com sucesso!")

 

end if

%>

[hargon 64]

Você está abrindo a conexão duas vezes:

conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("database\bd_rei_01.mdb")
conn.open MM_conexao_privativa_STRING

Se não for isso, desmarca a opção do navegador para que seja mostrada a mensagem de erro real e poste aqui.

[maya10 0]

Ja desmarquei, ,es,o assim não vejo o erro.

 

Qaunto a abria a con duas vezes, isso ai foi apenas um erro na hora de eu postar o código no forum, não estou utilizando desta forma.

 

Você está abrindo a conexão duas vezes:

conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("database\bd_rei_01.mdb")
conn.open MM_conexao_privativa_STRING

Se não for isso, desmarca a opção do navegador para que seja mostrada a mensagem de erro real e poste aqui.