BD ou conexão dando pau..

[Morpheus#2005 1]

Pessoal...Help-Me

 

Tipo de erro:

Provider (0x80004005)

Erro não especificado

/dunews10/inc_search_form.asp, line 29

 

----------------------------------*-------------------*------------------------

 

 

<%

Dim rsTypeListing__MMColParam

rsTypeListing__MMColParam = "0" ----------------------->>>> Linha 29

if (Request.QueryString("iType") <> "") then rsTypeListing__MMColParam = Request.QueryString("iType")

%>

<%

set rsTypeListing = Server.CreateObject("ADODB.Recordset")

rsTypeListing.ActiveConnection = MM_connDUnews_STRING

rsTypeListing.Source = "SELECT * FROM NEWS, TYPES WHERE NEWS_APPROVED=1 AND NEWS_TYPE = " + Replace(rsTypeListing__MMColParam, "'", "''") + " AND NEWS_TYPE = TYPE_ID ORDER BY NEWS_NAME ASC"

rsTypeListing.CursorType = 0

rsTypeListing.CursorLocation = 2

rsTypeListing.LockType = 3

rsTypeListing.Open()

rsTypeListing_numRows = 0

%>

 

 

 

Ah ja ia me esquecendo !!!!

 

arquivo DUCONNECTION.ASP

 

 

<%

' FileName="Connection_odbc_conn_dsn.htm"

' Type="ADO"

' HTTP="false"

' Catalog=""

' Schema=""

MM_connDUnews_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database\DUnews.mdb")

%>

 

 

Valew galera

 

Brigadão

[globim 0]

cara

primeira coisa...

para de usar o dreamweaver para fazer codigos

 

segundo

 

crie uma pagina chamada

include-bdconnection.asp

 

delete tudo o que estiver dentro do codigo dela

e cole isso aqui

 

<%'conexao sem senha'cStrConexao = "DBQ="&server.mappath("../bd/Bd.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)}"'conexao com senhacStrConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("caminho\bd.mdb;")&"Jet OLEDB:Database Password=123;"'------------------------------------------------'Abre a base de dadosFunction OpenBD  'Cria um objeto de conexão com a base de dados  set Conntemp = server.createObject("adodb.connection")  Conntemp.ConnectionTimeOut = cTempoDesc  Conntemp.Open cStrConexao   'Cria um objeto de conexão com a base de dados  set Conntemp = server.createObject("adodb.connection")  Conntemp.ConnectionTimeOut = cTempoDesc  Conntemp.Open cStrConexao  'Cria um objeto de manipulação de registros da base de dados  set RS = server.createObject("adodb.Recordset")end Function'------------------------------------------------'Fecha a base de dadosFunction CloseBD  'fecha o RecordSet  'RS.Close    'limpa memória  set RS = nothing  set ConnTemp = nothingend Function' ---- Inclui uma linha no Log ----%>

beleza

 

agora

crie

uma pagina chamada

default.asp

 

dentro dela

vo coloca isso aqui nas primeiras linhas

 

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

<%

DIM Conntemp

call openbd

%>

 

e isso aqui nas ultimas

<%

call closebd

%>

 

agora é só trabalhar normalmente na pagina

qualquer codigo deve ficar entre o call opembd e o call closebd

 

falow

[Morpheus#2005 1]

Obrigado pelo conselho e ...você é f***..!!! Deu tudo certo..Obrigado....estou estudando..mas por enquento...só mexo com a droga do Dw...

[globim 0]

hehe dream é bom mais não pra fazer codigo mais sim para design ^^