Erro Na Conexão Com O Bco....

[PRISCILA STOCHINI]

Quem pode me ajudar a ver o erro????

<!--#include file="conexao.asp"-->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
'recupera os valores
Vempresa = Request.Form("empresa")
Vdepart = Request.Form("depart")
Vcontato = Request.Form("contato")
Vcargo = Request.Form("cargo")


sql = "INSERT into colaborador(empresa, departamento, contato, cargo) values ('"&Vempresa&"','"&Vdepart&"','"&Vcontato&"','"&Vcargo&"')"
Set rs = bco.execute(sql)
Response.Write(sql)
bco.close
Set bco = Nothing

URL = "cadastrando.asp"
response.redirect(URL) 

%>

<%
Dim bco, sql, rs
Set bco = server.CreateObject("ADODB.connection")
bco.open("driver={Microsoft Access Driver (*.mdb)}; DBQ=formularios.mdb")
%>

[Marcos-rj]

Qual o erro que está dando?

[PRISCILA STOCHINI]

A página não pode ser exibida

Há um problema com a página que você está tentando acessar e ela não pode ser exibida.

--------------------------------------------------------------------------------

Tente o seguinte:

Abra a www.cype.com.br home page, e procure os links para as informações desejadas.

Clique no botão Atualizar ou tente novamente mais tarde.

Clique em Pesquisar para procurar informações na Internet.

Você também pode ver uma lista de sites relacionados.

HTTP 500 - erro interno do servidor

Internet Explorer

[Belmonte SC]

Priscila,

bco.open("driver={Microsoft Access Driver (*.mdb)}; DBQ=formularios.mdb")

você precisa indicar o drive apos o DBQ, ex:

"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;"

[PRISCILA STOCHINI]

muito obrigada...desculpa a encheção...é que to começando nisso agora...

Se puder veja meu outro tópico de hoje!!!

[Belmonte SC]

Ok, faz parte, também já me ajudaram bastante...deu certo?

[PRISCILA STOCHINI]

Mas como ficará o caminho com eu colocar no servidor...

porque aqui eu não testo na minha maquina...coloco no servidor ...

[Marcos-rj]

Tenta assim:

"DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("formularios.mdb")

[Belmonte SC]

Então você pode usar assim:

Com OLEDB:

set con=server.createobject("adodb.connection")

Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../banco/xxx.mdb") & ";"

Ou assim:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;"

você está usando com ODBC? OleDB?

[PRISCILA STOCHINI]

Acredito que ODBC

Acredito que ODBC

mesmo o formulario estando na mesma pasta que o banco preciso colocar o caminho???

[Belmonte SC]

Use como o MArcos sugeriu...

"DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & server.mappath("formularios.mdb")

Se o banco estiver em uma pasta separada então ("../banco/formulários.mdb")

Sugiro que você coloque em uma pasta separada...

[PRISCILA STOCHINI]

ASSIM PEGUEI PELO SITE JÁ EXISTENTE DA EMPRESA....O CAMINHO QUE ELES USAM....

VOU COLOCAR OS ARQUIVOS AQUI...

CONTINUA DANDO O MESMO ERRO...O QUE PODE SER???

CONEXÃO

<%

Dim bco, sql, rs

Set bco = server.CreateObject("ADODB.connection")

bco.open(""Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("formularios.mdb")"

%>

ENVIANDO

<!--#include file="conexao.asp"-->

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

'recupera os valores

Vempresa = Request.Form("empresa")

Vdepart = Request.Form("depart")

Vcontato = Request.Form("contato")

Vcargo = Request.Form("cargo")

sql = "INSERT into colaborador(empresa, departamento, contato, cargo) values ('"&Vempresa&"','"&Vdepart&"','"&Vcontato&"','"&Vcargo&"')"

Set rs = bco.execute(sql)

Response.Write(sql)

bco.close

Set bco = Nothing

URL = "cadastrando.asp"

response.redirect(URL)

%>

[kuroi]

tira as aspa dos canto nessa linha:

bco.open(""Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("formularios.mdb")"

faz assim:

bco.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("formularios.mdb")

[Marcos-rj]

Para exibir onde está dando o erro faz o seguinte:

Na janela do internet explorer clica em:

Ferramentas >> Opções da Internet >> Avançadas >> Desmarqque a Opção Mostrar Mensdagens de Erros Amigáveis.

[PRISCILA STOCHINI]

Active Server Pages error 'ASP 0140'

Page Command Out Of Order

/TESTE_ASP/enviando.asp, line 2

The @ command must be the first command within the Active Server Page.

[Belmonte SC]

usa assim...

<%@ LANGUAGE="VBSCRIPT"%>

[PRISCILA STOCHINI]

Microsoft VBScript compilation error '800a03ee'

Expected ')'

/TESTE_ASP/conexao.asp, line 4

bco.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("bancos/formularios.mdb")

esse é o novo erro...

[Belmonte SC]

você precisa colocar ../banco/xxx.mdb se o banco estiver em outro lugar.....

observe o ..

[PRISCILA STOCHINI]

O banco está no mesmo diretorio dentro da pasta bancos

[kuroi]

é assim o certo:

bco.open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("bancos/formularios.mdb"))

falto um )

[Belmonte SC]

é verdade...presta atenção menina...eheheheh

[PRISCILA STOCHINI]

Desculpa gente...:-(

To começando agora..não tenho mta pratica né...

[Belmonte SC]

Acontece...faço isso toda a hora...de tanto código dá um nó...estou indo...até mais...quaquer coisa posta aí...

[PRISCILA STOCHINI]

Microsoft JET Database Engine error '80004005'

Could not find file 'D:\hshome\cype1\cype.com.br\TESTE_ASP\bancos\formularios.mdb'.

/TESTE_ASP/conexao.asp, line 4

e esse ero o que é???

[Marcos-rj]

não encontrou a base de dados nesse endereço.

[kuroi]

seu banco está mesmo nessa pasta 'D:\hshome\cype1\cype.com.br\TESTE_ASP\bancos\formularios.mdb'?