Por Que Dá Erro?

[...fabinho]

Moçada, o negócio é o seguinte,

Tenho um contador de visitas na página da intranet que funciona ok. Mas dae eu migrei essa página pra outro servidor, mudei o caminho e dá erro quando abro a página... O código segue:

<!--- Contador de visitas ---> <!--- caminho \\w28100\inetpub$\dados\contador --->

<%

Set fs = CreateObject("Scripting.FileSystemObject")

Set drv = Request.ServerVariables("APPL_PHYSICAL_PATH")

drv1 = mid(cstr(drv),1,10)

'response.write drv1

'response.end

Set a = fs.OpenTextFile(drv1 + "\dados\contador\ctd_jornal88.txt")

visitorcount = CLng(a.ReadLine)

if Session("visitorcount") = "" then

Session("visitorcount") = visitorcount

visitorcount = visitorcount + 1

a.close

Set a = fs.CreateTextFile(drv1 + "\dados\contador\ctd_jornal88.txt", True)

a.WriteLine(visitorcount)

end if

a.Close

Response.write("<font face=Arial size=1 color=#000000>" & visitorcount _

& " visitas desde 11/04/2005</font><br>")

%>

dae o erro que aparece é:

error '8007052e'

/muralweb/mural.asp, line 20

Alguém pode me ajudar?

grato.

[quintelab]

Qual é a linha 20?

[...fabinho]

Linha 20:

Set a = fs.CreateTextFile(drv1 + "\dados\contador\ctd_jornal88.txt", True)

Mas esqueci de falar: assim ela funciona, comecou a dar pau quando troquei ela por:

Set a = fs.CreateTextFile("\\s2810ws02\inetpub$\dados\contador\ctd_jornal88.txt", True)