problema con Path not found

[ghis]

In una pagina in remoto mi da questo errore

Microsoft VBScript runtime error '800a004c' 
Path not found 

/public/admin/modifica_variabili.asp, line 29

Lo script di quella pagina è

<%
Dim strVirtualPath, strFilename, Vars, Commenti, Commento, InizioCommento, FileObject, oInStream, strOutput, Buf, Idx, Index, ParteVariabile, ParteCommento
strVirtualPath = "public/include/inc_variabili.asp"

strFilename = Server.MapPath(strVirtualPath)

Idx = 0
Index = 0
Set FileObject = CreateObject("Scripting.FileSystemObject")
Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0)
While NOT oInStream.AtEndOfStream
    strOutput = oInStream.ReadLine
    Buf = Ucase(Left(Trim(strOutput), 3))
    Commento = ""
    If Trim(Left(Buf, 1)) <> "" and Left(Buf, 1) <> "'" and Left(Buf, 1) <> "<" and Left(Buf, 1) <> "%" Then
	If Buf <> "DIM" then
	    InizioCommento = InStrRev(strOutput, "'")
	    ParteVariabile = Replace(Mid(strOutput, 1, InizioCommento - 1), "=", "{[(~)]}", 1, 1)
	    ParteCommento = Mid(strOutput, InizioCommento + 1)
	    Commenti = Split(strOutput, "'")
	    If InizioCommento > 0 Then
	        Vars = Split(Trim(ParteVariabile), "{[(~)]}")
	        Commento = Trim(ParteCommento)
	    Else
	        Vars = Split(strOutput,"{[(~)]}")
	        If Ubound(Vars) > 0 Then
	            Commento = Trim(Vars(0))
	        End If
	    End If
	    If Ubound(Vars) > 0 Then
%>

la linea 29 è questa

Set oInStream = FileObject.OpenTextFile(strFilename, 1, 0, 0)

Il file è in una cartella con permessi di lettura/scrittura
Qualcuno mi sa dire perchè non funziona.

[Roby_72]

strVirtualPath = "/public/include/inc_variabili.asp"

Roby

[ghis]

Funziona..ho spostato il file nella cartella mdb-database.
Grazie