probelmas con IIS

[ajmataurus]

hola tengo el SO Windows XP, y cada vez que pruebo una pagina local en *.asp falla el IIS, tengo que levantar el localhost en explorer unas dos o tres veces, pruebo denuevo mi pagina en *.asp y recièn otra vez levanta, y asì continuà el problema, què es lo que tengo que hacer para que no suceda esto???
graicas

[ajmataurus]

ahhh, el erro que me sale es :
__________________________
HTTP 500.100. Error interno del servidor: error de ASP
Servicios de Internet Information Server
Información técnica (para personal de soporte técnico)

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado
/contador/default.asp, línea 83


Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

Página:
GET /contador/default.asp

Hora:
martes, 19 de julio de 2005, 17:54:25


Más información:
Soporte técnico de Microsoft
___________________
que hago?????????

[orharo2003]

bUENO PUES, no soy adivino pon el código

[ajmataurus]

ok aquie esta el codigo
gracias:
____________

<%
'Dimension variables
Dim fsoObject 'File System Object
Dim tsObject 'Text Stream Object
Dim filObject 'File Object
Dim lngVisitorNumber 'Holds the visitor number
Dim intWriteDigitLoopCount 'Loop counter to display the graphical hit count

'Create a File System Object variable
Set fsoObject = Server.CreateObject("Scripting.FileSystemObject")

'Initialise a File Object with the path and name of text file to open
Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))

'Open the visitor counter text file
Set tsObject = filObject.OpenAsTextStream

'Read in the visitor number from the visitor counter file
lngVisitorNumber = CLng(tsObject.ReadAll)

'Increment the visitor counter number by 1
lngVisitorNumber = lngVisitorNumber + 1

'Create a new visitor counter text file over writing the previous one
Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count .txt"))

'Write the new visitor number to the text file
tsObject.Write CStr(lngVisitorNumber)

'Reset server objects
Set fsoObject = Nothing
Set tsObject = Nothing
Set filObject = Nothing

'HTML output to display the visitor number
Response.Write("<font size=2>Usted es el Visitante Número</font><br>")

'Display the hit count as text
'Response.Write(lngVisitorNumber)

'Loop to display graphical digits
For intWriteDigitLoopCount = 1 to Len(lngVisitorNumber)

'Display the graphical hit count
Response.Write("<img src=""counter_images/")
Response.Write(Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & ".gif""")
Response.Write("alt=""" & Mid(lngVisitorNumber, intWriteDigitLoopCount, 1) & """>")
Next
%>

[orharo2003]

si mi bolita no me engaña la linea del error es :

Set tsObject = fsoObject.CreateTextFile(Server.MapPath("hit_count .txt"))


Cierto ?????

[u_goldman]

Iniciado por orharo2003

si mi bolita no me engaña la linea del error es :

Gitano el master orharo! ese debe ser!

[ajmataurus]

si pues los errores son:
primero:

Set filObject = fsoObject.GetFile(Server.MapPath("hit_count.txt"))

alguna ayuda???????

[ajmataurus]

Bueno, no sè si estarà bien lo que hice:
en propiedades de la carpeta que contiene estos archivos de la pagina web, puse acceso a todos los usuarios de internet con atributos de leer/modificar/escribir/ejecutar ahora el peligro es???????
asi, si ingresa shevere al pagina, modifica el contador de visitas, agrega noticias, etc.
alguna otra sugerencia??????????