ligeirotegs

Amigos Bom dia! Sou novato no Asp, converti o banco de dados de Acess (netcar.mdb) e criei meu novo banco de Dados em Mysql com o nome netcar, igual ao anterior Estou querendo que meu código Asp, leia pelo novo banco mysql e não mais pelo acess. Será que alguém consegue me dar a dica onde mudo o meu código abaixo. Tenho uma pagina e um arquivo com o nome sis.arquivo.asp que é a pagina que le o meu banco de dados, (com o código completo a seguir), gostaria de saber onde devo mudar para ler o nome do banco de dados mysql que tenho que cadastrar no código o endereço, login, senha e nome do banco de dados. Gostaria de saber onde devo colocar os dados no codigo asp para ler esse novo banco de dados. Será que alguém me dá a dica? O cógio completo a seguir: Muito Obrigado Sucesso Código completo do sis.arquivo.asp é =(Esse é o código que ainda esta lendo o acess (netcar.mdb)) <% private function AbrirBD(intNivel) dim strCaminhoBD, intTempNivelDir intTempNivelDir=intNivel strCaminhoBD = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) intTempNivelDir = intTempNivelDir + 1 if (InStr(strCaminhoBD,"teste") > 0) then intTempNivelDir = intTempNivelDir + 1 while intTempNivelDir > 0 strCaminhoBD = Left(strCaminhoBD, InStrRev(strCaminhoBD,"\")-1) intTempNivelDir = intTempNivelDir - 1 wend strCaminhoBD = strCaminhoBD & "\dados\netcar.mdb" 'RESPONSE.WRITE strCaminhoBD & "<br>" 'RESPONSE.END set conexao = Server.CreateObject("ADODB.Connection") on error resume next conexao.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & strCaminhoBD & ";" & _ "PWD=" if err.Number <> 0 then conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &_ "Data Source=" & strCaminhoBD if err.Number <> 0 then 'Response.Redirect("foradoar.asp") 'RESPONSE.WRITE "Estamos em manutencao !!! Por favor, aguarde !!!" response.write "Caminho para o banco de dados: " & strCaminhoBD response.Write("<br>Diretório atual: " & strNivelDirPagina) response.Write("<br>Diretórios: " & intTempNivelDir) response.Write("<br>Código de erro: " & err.Number) response.Write("<br>Descrição do erro: " & err.Description) response.Write("<br>Página atual: " & Request.ServerVariables("SCRIPT_NAME")) response.Write("<br>Página anterior: " & Request.ServerVariables("HTTP_REFERER")) response.Write("<br>Help Context: " & err.helpcontext) response.Write("<br>Help Path: " & err.helppath) response.Write("<br>Native Error: " & err.nativeerror) response.Write("<br>Source: " & err.source) response.Write("<br>SQLState: " & err.sqlstate) dim objFSO set objFSO = Server.CreateObject("Scripting.FileSystemObject") if objFSO.FileExists(strCaminhoBD) then Response.Write("<br>...o arquivo existe.") else Response.Write("<br>ARQUIVO NÃO ENCONTRADO!") end if set objFSO = nothing response.End() end if end if on error goto 0 end function private function FecharBD Conexao.Close set Conexao = nothing end function %>