<%
Set Conexao = Server.CreateObject("ADODB.Connection")

'Criando objeto 

Set FSO = Server.CreateObject("Scripting.FileSystemObject")

arquivo = "credilon.mdb"
caminho = ""


'Achando arquivo - INICIO
if (FSO.FileExists(arquivo) <> true) then
	While NOT(FSO.FileExists(arquivo2))
		arquivo2 = Server.MapPath(caminho & arquivo)
		caminho = "../" & caminho
	Wend
	whichFN = arquivo2
Else
	whichFN = arquivo
End if


'Achando arquivo - FIM
contxt = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&whichFN&";"
Conexao.Open contxt
%>