un contaclick che fa i capricci

[countryportal]

Salve, ho un problema con lo script quì sotto scritto. Loscript serve per il conteggio dei click sui relativi link.
Dopo averlo configurato mi dà il seguente errore:

Errore di run-time di Microsoft VBScript errore "800a000d'

Tipo non corrispondente: 'clng'

/ContaClick/click_counter.asp, riga 8

---------------------------------------------------------------------
Ecco lo script:

linka.asp, linkb.asp, linkc.asp
<%
set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath("linka.txt"))
counter = clng(act.readline)
act.close
%>

Link A (<%= counter %> clicks)



<%
set act = fso.opentextfile(server.mappath("linkb.txt"))
counter = clng(act.readline)
act.close
%>

Link B (<%= counter %> clicks)



<%
set act = fso.opentextfile(server.mappath("linkc.txt"))
counter = clng(act.readline)
act.close
%>

Link C (<%= counter %> clicks)



click_counter.asp
<%
u_link=request.querystring("u_link")
counter_add= replace(u_link,".asp",".txt")

set fso = createobject("scripting.filesystemobject")
set act = fso.opentextfile(server.mappath(counter_add))

counter = clng(act.readline)
act.close

counter = counter + 1

Set act = fso.CreateTextFile(server.mappath(counter_add), true)
act.WriteLine(counter)
act.Close

response.redirect (u_link)
%>

---------------------------------------------------------------------

Grazie

[Roby_72]

I file .txt devo contenere almeno un numero e questo deve essere superiore a 30000 altrimento devi usare CInt al posto di CLng

Roby