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]

mas por ftp, entra pelo ftp e vê onde está o banco de dados, pois o endereço acima já deu erro dizendo não encontrar o arquivo.

[kuroi]

TIRA A BARRA DO COMECO DO PATH:

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

tem que ficar assim:

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

[PRISCILA STOCHINI]

Acredito que seja cype.com.br/teste_asp/bancos/formularios.mdb

[Marcos-rj]

coloca assim e vê se funciona:

Set bco = server.CreateObject("ADODB.connection")
bco.Provider="Microsoft.Jet.OLEDB.4.0"
bco.Open(Server.Mappath("bancos\formularios.mdb"))

[PRISCILA STOCHINI]

CONSEGUI............

[Marcos-rj]

FUNCIONOU??? UFAA!

[PRISCILA STOCHINI]

MEU ALELUIA....JURO NÃO AGUENTAVA MAIS....

Bom agora tenho outros probleminhas...mas acho que você me ajudam aresolver em um minuto...

Microsoft VBScript compilation error '800a03fd'

Expected 'Case'

/TESTE_ASP/TESTE.asp, line 39

Select

------^

[kuroi]

posta o codigo. o que você quer fazer?? dar um select no banco?? você não pode escrever select assim no meu do codigo, você tem que passar pra uma variavel e depois executar. ou você quer fazer um select case??

[Marcos-rj]

posta o codigo.

um exemplo:

acao = request.querystring("acao")

Select case acao

case "editar"

AQUI VEM O CODIGO

<%End Select%

[PRISCILA STOCHINI]

entra no meu outro tópico...lá eu descrevi o que eu realmente quero....por favor..