<%
Dim objFSO, objCountFile
Dim strCountFileName
Dim iCount
Dim bUseImages
Dim I

bUseImages = CBool(Request.QueryString("images"))
strCountFileName = Server.MapPath(Request.ServerVariables)
("SCRIPT_NAME") & ".cnt")
Set objFSO = Server.CreateObject
("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile
(strCountFileName, 1, True)

If Not objCountFile.AtEndOfStream Then
iCount = CLng(objCountFile.ReadAll)
Else
iCount = 0
End If

objCountFile.Close
Set objCountFile = Nothing
iCount = iCount + 1
Set objCountFile = objFSO.CreateTextFile
(strCountFileName, True)
objCountFile.Write iCount
objCountFile.Close
Set objCountFile = Nothing
Set objFSO = Nothing

If bUseImages Then
For I = 1 to Len(iCount)
Response.Write "<IMG SRC=""./images/digit_"
Response.Write Mid(iCount, I, 1)
Response.Write ".gif"" ALT="""
Response.Write Mid(iCount, I, 1)
Response.Write """ WIDTH=""20"" HEIGHT=""27"">"
Next
Else
Response.Write iCount
End If
%>

mi potete aiutare?non riesco a trovare l'errore!

La parentesi tonda chiusa nell'istruzione

strCountFileName = Server.MapPath(Request.ServerVariables)
("SCRIPT_NAME") & ".cnt")<--questa tonda!!

dove la apri???

Alessio Flaviani
http://digilander.iol.it/TYLER78

Se vuoi visualizzarla a video devi metterla all'interno degli virgolette altrimenti ti segnala errore.

Alessio Flaviani
http://digilander.iol.it/TYLER78

L'errore è in tutta la linea

strCountFileName = Server.MapPath(Request.ServerVariables(
("SCRIPT_NAME") & ".cnt")

Ciao

Andrea Palmatè
Web Developer