Por Favor Me Ajudem, Não Consigo Acessar O Bd!

[VicFalMac]

Olá...

O meu problema é o seguinte...

Nas páginas do site em que há acesso ao banco de dados elas não funcionam. Aparece uma tela de ERRO HTTP 500. Eu já tirei aquela tal de Msg Amigável. Mas o mais estranho, pra mim, é no PWS o site funciona perfeitamente mas online ele não funciona. Eu o hospedei no www.7host.com, para testar e para apresentar para o meu cliente. Ele disse que enquanto eu não arrumar eu não recebo o dinheiro..!!!!

Bom, aqui está o código e tomara que alguém me ajude.

Código da página Conexao.inc, na qual está uma Sub que realiza a conexao com o BD (fiz isso para não escrever sempre a mesma coisa nas páginas)!!

<%
 sub AbreConexao
  set conexaodb = Server.CreateObject("ADODB.Connection")
  conexaodb.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\manduca.mdb")
 end sub

 sub FechaConexao
  conexaodb.close
  set conexaodb = nothing
 end sub
%> 

Código da página cad_corr.asp, na qual está o form para o cadastro de corretores

 <form name="form1" action="cad_corr_ok.asp" method="post">

<input name="txtNome" type="text" class="caixa" id="txtNome" size="50" maxlength="100"> 

<input name="txtRG" type="text" class="caixa" id="txtRG" size="14" maxlength="12"> 

<input name="txtCPF" type="text" class="caixa" id="txtCPF" size="17" maxlength="15"> 

<input name="txtCreci" type="text" class="caixa" id="txtCreci" size="18" maxlength="20>

<input name="txtEndereco" type="text" class="caixa" id="txtEndereco" size="50" maxlength="50>

<input name="txtBairro" type="text" class="caixa" id="txtBairro" size="40" maxlength="40>

<td align="left"><input name="txtCidade" type="text" class="caixa" id="txtCidade" size="20" maxlength="20>

<input name="txtEstado" type="text" class="caixa" id="txtEstado" size="2" maxlength="2" onBlur="document.form1.txtEstado.value=document.form1.txtEstado.value.toUpperCase()">

<input name="txtCEP" type="text" class="caixa" id="txtCEP" size="9" maxlength="9"> 

<input name="txtTel1" type="text" class="caixa" id="txtTel1" size="15" maxlength="15>

<input name="txtTel2" type="text" class="caixa" id="txtTel2" size="15" maxlength="15>

<input name="Submit" type="submit" class="botao" value="Cadastrar" title="Clique aqui para cadastrar o corretor">

 </form>

Lembrando que só coloquei a parte do código que mais importa

Código da página cad_corr_ok.asp, a qual realiza o cadastro do corretor.

<%
 Dim conexaodb, strCorr, rsCorr, varnome, varendereco, varbairro, varcidade, varestado
 Dim varcep, varrg, varcpf, varcreci, vartel1, vartel2
 varnome = Trim(Request.Form("txtNome"))
 varendereco = Trim(Request.Form("txtEndereco"))
 varbairro = Trim(Request.Form("txtBairro"))
 varcidade = Trim(Request.Form("txtCidade"))
 varestado = UCase(Trim(Request.Form("txtEstado")))
 varcep = Trim(Request.form("txtCEP"))
 varrg = Trim(Request.Form("txtRG"))
 varcpf = Trim(Request.Form("txtCPF"))
 varcreci = Trim(Request.Form("txtCreci"))
 vartel1 = Trim(Request.Form("txtTel1"))
 vartel2 = Trim(Request.Form("txtTel2"))
 varnome = Replace(varnome, "'", "")
 varendereco = Replace(varendereco, "'", "")
 varbairro = Replace(varbairro, "'", "")
 varcidade = Replace(varcidade, "'", "")
 varestado = Replace(varestado, "'", "")
 varcep = Replace(varcep, "'", "")
 varrg = Replace(varrg, "'", "")
 varcpf = Replace(varcpf, "'", "")
 varcreci = Replace(varcreci, "'", "")
 vartel1 = Replace(vartel1, "'", "")
 vartel2 = Replace(vartel2, "'", "")
 strCorr= "INSERT INTO Corretores " 
 strCorr= strCorr & "(Nome, Endereco, Bairro, Cidade, Estado, CEP, RG, CPF, CRECI, " 
 strCorr= strCorr & "Tel1, Tel2) "
 strCorr = strCorr & "VALUES ('" & varnome & "', "
 strCorr = strCorr & "'" & varendereco & "', "
 strCorr = strCorr & "'" & varbairro & "', "
 strCorr = strCorr & "'" & varcidade & "', "
 strCorr = strCorr & "'" & varestado & "', "
 strCorr = strCorr & "'" & varcep & "', "
 strCorr = strCorr & "'" & varrg & "', "
 strCorr = strCorr & "'" & varcpf & "', "
 strCorr = strCorr & "'" & varcreci & "', "
 strCorr = strCorr & "'" & vartel1 & "', "
 strCorr = strCorr & "'" & vartel2 & "') "
 Call abreconexao
 Set rsCorr = conexaodb.Execute(strCorr)
%> 

Se alguém souber o problema por favor me ajudem.

Obrigado.

Ah..para quem quiser dar uma olhada no site para ver o problema o endereço é:

Imobiliária Manduca

Usuário: Manduca

Senha : 140284

Obrigado de novo!!!

[VicFalMac]

Só completando...

O Erro que aparece é :

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xa0c Thread 0xbdc DBC 0xffc72ac Jet'.

/vicfalmac/conexao.inc, line 4

Valeu

[bareta]

muda sua conexão

<%
 set conexaodb = Server.CreateObject("ADODB.Connection")
 conexaodb.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db\manduca.mdb")

[dark0]

a princípio, esse erro ocorre sempre que o caminho do banco está errado, e o codigo asp não encontra ele, e dá erro..

verifique se o caminho está certo..

[VicFalMac]

Mudar como Bareta? Não entendi...o código q você colocou é igual ao meu.

Eu já tentei algumas outras formas tipo:

...... Server.MapPath("/") & " /db/manduca.mdb"

Server.MapPath("../db/manduca.mdb")

Não sei mais o que fazer!!!

[VicFalMac]

Valeu Bareta e Dark0 pela ajuda

Consegui resolver o meu problema

Eu entrei no ACCESS(2000) --> Menu Ferramentas ---> Utilitários de Banco de Dados ---> Compactar e corrigir Banco de dados

Mas agora deu um outro problema

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

Isso ocorre nesta parte:

 .........
 strCorr= "INSERT INTO Corretores " 
strCorr= strCorr & "(Nome, Endereco, Bairro, Cidade, Estado, CEP, RG, CPF, CRECI, " 
strCorr= strCorr & "Tel1, Tel2) "
strCorr = strCorr & "VALUES ('" & varnome & "', "
strCorr = strCorr & "'" & varendereco & "', "
strCorr = strCorr & "'" & varbairro & "', "
strCorr = strCorr & "'" & varcidade & "', "
strCorr = strCorr & "'" & varestado & "', "
strCorr = strCorr & "'" & varcep & "', "
strCorr = strCorr & "'" & varrg & "', "
strCorr = strCorr & "'" & varcpf & "', "
strCorr = strCorr & "'" & varcreci & "', "
strCorr = strCorr & "'" & vartel1 & "', "
strCorr = strCorr & "'" & vartel2 & "') "
Call abreconexao
Set rsCorr = conexaodb.Execute(strCorr)

[dark0]

Veja se não é problema de permissão..

[VicFalMac]

E como faço isso?

As páginas de consulta estão funcionando corretamente, apenas as de inserção que não.

[Guest Sergio Alves]

Veja se não é problema de permissão..

Veja seu o diretorio onde esta o banco tem permissão de gravação.

Qualquer problema me avise ....

[VicFalMac]

Obrigado a todos que me ajudaram.

estou gostando muito deste fórum.

Abraço.

Podem fechar este tópico.

Até mais

[dark0]

heheh

o que era?

problema de permissão mesmo?

responde ae, depois eu fecho o tópico!

abraços