HTTP 500.100 - Servidor interno Erro

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

%>