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

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


VicFalMac

Pergunta

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!!!

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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..

Link para o comentário
Compartilhar em outros sites

  • 0

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)

Link para o comentário
Compartilhar em outros sites

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0
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 ....

Link para o comentário
Compartilhar em outros sites

  • 0

heheh

o que era?

problema de permissão mesmo?

responde ae, depois eu fecho o tópico!

abraços

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,7k
×
×
  • Criar Novo...