Erro de Conexao

[flavio_fs 0]

Olá pessoal estou com um problema danado, de conexaona minha máquina o sistema roda filé, porém no provedor onde hospedo o site está dando esse erro.Microsoft OLE DB Provider for ODBC Drivers error '80004005'[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xf48 Thread 0x270 DBC 0x8bfe024 Jet'./web/commonN.asp, line 74O pessoal do suporte me passou essa conexão abaixo:- Iniciar conexão:<%cst = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _Server.MapPath("data/database.mdb")set conn = CreateObject("ADODB.Connection")conn.open cstsql = "select * from tabela"set consulta = conn.execute(sql)%>- Finalizar Conexão (muito importante):<%conn.closeSet conn = Nothing%>-----------------------------------------------------------------------------------------------------------------------------Só que até 03 semanas atráz o site estava funcionado normalmente com essa conexão abaixo, e de uma hora para outra ficou dando o erro acima mostrado.<%Dim adoConDim rsConfigurationDim strConDim strSQLDim intRecordsPerPageDim strBgColourDim strTextColourDim strTextTypeDim intHeadingTextSizeDim intTextSizeDim intSmallTextSizeDim strLinkColourDim strTableColourDim strTableBorderColourDim strTableTitleColourDim strVisitedLinkColourDim strActiveLinkColourDim blnLCodeDim blnEmailDim strCodeDim strCodeFieldDim strWebSiteEmailAddressDim strMailComponentDim strSMTPServerDim strLoggedInUserCodeDim strTitleImageDim intMsgCharNoDim blnCookieSetDim blnIPBlockingSet adoCon = Server.CreateObject("ADODB.Connection")strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/news.mdb")adoCon.Open strConstrCodeField = "Code"strCode = "nolinks2002"Set rsConfiguration = Server.CreateObject("ADODB.Recordset")strSQL = "SELECT tblConfigurationN.* From tblConfigurationN;"'abaixo a linha 74rsConfiguration.Open strSQL, strConIf NOT rsConfiguration.EOF Then'Read in the configuration details from the recordsetintRecordsPerPage = CInt(rsConfiguration("No_records_per_page"))strBgColour = rsConfiguration("bg_colour")strTextColour = rsConfiguration("text_colour")strTextType = rsConfiguration("text_type")intHeadingTextSize = CInt(rsConfiguration("heading_text_size"))intTextSize = CInt(rsConfiguration("text_size"))intSmallTextSize = CInt(rsConfiguration("small_text_size"))strTableColour = rsConfiguration("table_colour")strTableBorderColour = rsConfiguration("table_border_colour")strTableTitleColour = rsConfiguration("table_title_colour")strLinkColour = rsConfiguration("links_colour")strVisitedLinkColour = rsConfiguration("visited_links_colour")strActiveLinkColour = rsConfiguration("active_links_colour")strWebSiteEmailAddress = rsConfiguration("email_address")blnLCode = CBool(rsConfiguration("Code"))blnEmail = CBool(rsConfiguration("email_notify"))strTitleImage = rsConfiguration("Title_image")intMsgCharNo = rsConfiguration("Message_char_no")blnCookieSet = CBool(rsConfiguration("Cookie"))blnIPBlocking = CBool(rsConfiguration("IP_blocking"))strMailComponent = rsConfiguration("mail_component")strSMTPServer = rsConfiguration("mail_server")End IfrsConfiguration.CloseSet rsConfiguration = Nothing%>Por favor me ajudem preciso deixar o site funcionando novamente pois o cliente está me precionando, já quebrei o pau com o suporte, mais os cara só falam isso que é erro no caminho do bando de dados.

[jrcardozo 4]

tente assim:

strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _Server.MapPath("data/news.mdb")