[Resolvido] Caminho (Path) para fazer conexão com BD na Locaweb

Bom dia galera, precisava de uma ajuda urgente.. tenho um site em ASP para resolver um pepino, porém eu

conheço muito pouco da linguagem, aprendi a algum tempo e trabalho com PHP. Seguinte, transferimos o site para

a hospedagem da Locaweb e agora preciso mudar o caminho do BD no código, porém pelo que entendi, o arquivo *mdb

deve ficar dentro da pasta Dados, no servidor da locaweb enquanto o site fica na pasta Web.

Está retornando este erro:

****

Microsoft JET Database Engine error '80004005'

'C:\Domains\sagge.com.br\Dados\sagge.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

/library/conn.asp, line 10

Creio que o erro é no caminho que indica o banco, certo ? Alguem poderia me ajudar em qual o caminho exato para indicar ?

Imagino que o erro esteja apenas nesta linha de codigo:

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\sagge.com.br\Dados\sagge.mdb"

Segue o codigo da pagina:

<%
Dim Conn, ConnString, nomeRS, sql, RS
'***** String de conexão a ser modificada para cada site **************
' LOCAWEB
ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\sagge.com.br\Dados\sagge.mdb"

'***** Conexão com o BD ***********************************************
Set Conn = CreateObject("ADODB.Connection")
Conn.Open ConnString

'**************************************************************************
'** Função para criar RecordSet ***********************
'** nomeRS = string com o nome do recordset *********************
'** sql = string sql ***********************
'** Para leitura apenas. ***********************
'**************************************************************************
Sub AbreRS(nomeRS,sql)
If nomeRS="" Then nomeRS="RS"
StrExec = "Set "&nomeRS&" = CreateObject(""ADODB.RecordSet""):"&_
nomeRS&".CursorLocation = 3:"&_
nomeRS&".Open """ & sql & """,Conn:"&_
"Set "&nomeRS&".ActiveConnection = Nothing"
Execute StrExec
End Sub

'**************************************************************************
'** Função para criar RecordSet ***********************
'** nomeRS = string com o nome do recordset *********************
'** sql = string sql ***********************
'** Recordset atualizavel ***********************
'**************************************************************************
Sub AbreRsConn(nomeRS,sql)
If nomeRS="" Then nomeRS="RS"
StrExec = "Set "&nomeRS&" = CreateObject(""ADODB.RecordSet""):"&_
nomeRS&".LockType = 2:"&_
nomeRS&".Open """ & sql & """,Conn"
Execute StrExec
End Sub

Function Tratar_texto(texto)
texto = Replace(texto,"'","''")
texto = Replace(texto,chr(34),"""")
Tratar_texto = texto
End Function

Function Tratar_data(data)
lcid=Session.LCID
Session.LCID = 1046
' data = Year(data)&"-"&Month(data)&"-"&Day(data)
data = Month(data)&"/"&Day(data)&"/"&Year(data)
Session.LCID = lcid
Tratar_data = data
End Function

Function Quebra_linha(texto)

 Quebra_linha = Replace(texto,Chr(13),"<BR>")
 End Function
 'para INSERT, UPDATE, DELETE usar:
 'conn.execute sql,,128

 Function TestaNulo(texto)
 Dim blankStr
 blankStr = trim("" & texto)

 if blankStr = "" then
 TestaNulo = True
 else
 TestaNulo = False
 end if
 end function

 Function Nulo_zero(numero)
 If numero = "" OR IsNull(numero) Then
 Nulo_zero = 0
 Else
 Nulo_zero = numero
 End if
 End Function

 Function Virgula_ponto(numero)
 Virgula_ponto = Replace(numero,",",".")
 End Function

 Function Nulo_vazio(texto)
 If texto = "" OR IsNull(texto) Then
 Nulo_vazio = ""
 Else
 Nulo_vazio = texto
 End if
 End Function

 Function Virgula_ponto(numero)
 Virgula_ponto = Replace(numero,",",".")
 End Function

 Function GeraSenha(tamanho)
 Set fs = CreateObject("Scripting.FileSystemObject")
 For x = 1 to 3
	'Get just the filename part of the temp name path
	strTemp = fs.GetBaseName(fs.GetTempName)

	'Hack off the 'rad'
	strTemp = Right(strTemp, Len(strTemp) - 3)
	senha = senha & strTemp
 Next

 GeraSenha = Left(Lcase(senha),tamanho)
 Set fs = Nothing

 End Function

 Function NumeroAleatorio(min,max)
 randomize
 NumeroAleatorio=Int((max-min+1)*Rnd+min)
 End Function

 Function RotuloMarca(id_marca)
 sql_marca = "SELECT tbl_marca.* FROM tbl_marca WHERE id_marca = '" & id_marca & "';"
 AbreRS "RS_marca",sql_marca
 RotuloMarca = RS_marca("marca")
 RS_marca.close
 Set RS_marca = nothing
 End Function

 Function IDTipoProduto(cod_produto)
 sql_produto_tipo = "SELECT tbl_produto.cod_produto, tbl_produto_tipo.id_tipo FROM tbl_produto_tipo INNER JOIN tbl_produto ON tbl_produto_tipo.id_tipo = tbl_produto.id_tipo WHERE tbl_produto.cod_produto=" & cod_produto
 AbreRS "RS_produto_tipo",sql_produto_tipo
 IDTipoProduto = RS_produto_tipo("id_tipo")
 RS_produto_tipo.close
 Set RS_produto_tipo = nothing
 End Function

Function FechaConn
conn.close
Set conn = nothing
End Function

%>
Ja antecipo meus agradecimentos ;]