Script Para Contagem De Visitas

[Guest Feitosa]

Alguém consegue detectar o erro neste script? Dá erro 500. Antes de mais nada, já dei totais permissões aos arquivos "interno.txt" e "externo.txt". Esse script faz a contagem de visitas dentro e fora da rede.

<%
set file = Server.CreateObject("Scripting.FileSystemObject")

ip = Request.ServerVariables("REMOTE_ADDR")
filtra = Mid(ip,1,9)
if (filtra = "192.168.0") then
    path = Server.MapPath("interno.txt")
else
    path = Server.MapPath("externo.txt")
end if

set infile = file.OpenTextFile( path ) 
visitor = infile.ReadLine
d = infile.ReadLine
fundo = infile.ReadLine
visitor = visitor + 1
infile.close
set outfile = file.CreateTextFile( path, True )
outfile.WriteLine( visitor )
outfile.WriteLine( d )
outfile.WriteLine( fundo )
outfile.Close
%>

<% =visitor %>

[resopi]

Olá erro 500 é erro inter no servidor algum problema de configuraçao no seu IIS!

[Guest info_tec]

Erro 500 é um erro "genérico", se você usa o IE clique em ferramentas/Opções da Internet, Guia "Avançadas" e desmarque a opção "Mostrar mensagens de erro HTTP amigáveis", que você terá uma descrição mais detalhada do erro!