tabata

quer dar uma olhadinha no meu arquivo?

Da linha 251 a 265 é o seguinte:

Public Function PegaArquivo(strArquivo, Mapeia)
Dim myFile, mySource
PegaArquivo = ""
If Mapeia = True Then
myFile = Server.MapPath(strArquivo)
Else
myFile = strArquivo
End If
Set FS = Server.CreateObject("Scripting.FileSystemObject")
260 Set FN = FS.OpenTextFile(myFile)
mySource = FN.ReadAll
FN.Close
Set FS = NOTHING
PegaArquivo = mySource
End Function

O arquivo inteiro segue em anexo, se pudesse dar uma olhada...porq parou de repente de funcionar, e como ñ fui eu quem desenvolví estes programas, ñ tenho nem idéia do q seja..estou aprendendo a programar em PHP, mas a página ñ entra, e é urgente q ela funcione. Se puder me ajudar, valeu!

O conteúdo é o seguinte:
myFile = strArquivo