[Resolvido] Faer conexão com Banco de dados

[criacaoi7 0]

Oi pessoal, bom dia.

 

Este código abaixo funcionava com uma config global que chamava o banco de dados para que o código funcione.

Eu movi este código para uma outra página, sendo assim gostaria de isolar o código, ou seja, conectar o banco de dados diretamente a este código, como posso fazer isso:

 

Veja código:

 

<%
			Set nt1 = Server.CreateObject("ADODB.Recordset")
			nt1.Open "SELECT * from noticias order by id desc", DB
			Contar = 0
			Do while not nt1.Eof
				Topico = nt1("Topico")
				Classe1 = nt1("Classe1")
				Classe = nt1("Classe")
				Data = nt1("Data")
				Horas = nt1("Horas")
				id = nt1("id")
				IF Contar > 3 Then
					exit do
				end if
				if Classe1 = "Local" Then
				%></span></font><a href='mostra.asp?noticias=<%=nt1("id")%>&Classe=<%Response.Write Classe%>'><font face="Arial" color="red"><span style="font-size:8pt;"><%Response.Write Data%> 
															</span></font><font face="Arial"><span style="font-size:8pt;">- <%Response.Write Topico%>
				   
				  </span></font></a><font face="Arial"><span style="font-size:8pt;"><br><%
					Contar = Contar + 1
				end if
				nt1.Movenext
			Loop
						%>

O caminho do DB é este:

 

conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\dados.mdb"

 

Podem ajudar.

 

Muito obrigado.

[Mário Monteiro 179]

que erro ocorre?

[criacaoi7 0]

Oi Mário, boa tarde.

 

Na verdade eu não tinha feito a conexão com o banco e queria saber como eu deveria fazer... só acrescentei esse código e deu certo...

 

db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\dados.mdb"

 

Vlw.

[Mário Monteiro 179]

Que bom entao

 

Parabens