conta click che da errore

[Poulo]

Ciao a tutti
ho una pagina asp con un link per il download e voglio che mi mostri vicino il numero di volte che è stato cliccato.
Mi da questo errore:
Microsoft VBScript runtime error '800a01ad'

ActiveX component can't create object: 'Scripting.FileSystemObject'
/db/contaclick.asp, line 6


Ho usato questo codice

<a href="db/contaclick.asp?id=lunaio15.zip" onMouseOut="window.status =' '; return true"; onMouseOver="window.status =' Sciacca chì pe descareg&acirc;!'; return true" title="Sciacca ch&igrave;!">
CLICCA QUI</a>

è stato scaricato <!--#include file="db/Lunaio15.zip.txt"--> volte

il codice del file contaclick.asp

<%@Language = JScript%>
<%
var click = new String(Request.QueryString("id"));
    if ((click == "") || (click == "undefined")) {
        Response.Redirect("errore404.htm");
    }
var FSO = new ActiveXObject("Scripting.FileSystemObject");
var Path = Server.MapPath(click);
    if (!FSO.FileExists(Path)) {
        Response.Redirect("errore404.htm");
    }
var File = Server.MapPath(click + ".txt");
var Vecchio = FSO.OpenTextFile(File);
var n = parseInt(Vecchio.ReadLine());
    Vecchio.Close();
    n++;
var Nuovo = FSO.CreateTextFile(File);
    Nuovo.WriteLine(n);
    Nuovo.Close();
    Response.Redirect(click);
%>

Qualcuno mi può aiutare a capire il problema?
GRAZIE!

[Poulo]

Nessuno mi sa dire qualcosa?

[cavicchiandrea]

Premesso che non ho ma sviluppato jscript neanche quando sviluppavo in asp perché già troppo obsoleto, pertanto non conosco bene la sintassi del linguaggio (questo per dire che ci potrebbero essere errori nello script che io non riconosco).
L'errore riporta che non trova oggetto filesystem ora ci sono una serie di domande da rispondere:
1 stai testandolo in locale (localhost//tuopercorso) o in rete (tuosito.it//tuopercorso)?
2 che versione di IIS usi?
3 la cartella ha i permessi di lettura e di scrittura?
4 da 1 a 10 che livello sei di conoscenza di asp jscript (che è diverso da vbscript)?
5 hai provato a fare una ricerca su Google con l'errore?
6 hai provato ad usare uno script simile ma scritto in vbscript?
7 quali tentativi hai fatto per cercare di risolvere il problema?
Saluti.

[Poulo]

Grazie per rispondermi.
Questo codice me l'aveva scritto un amico circa 10 anni fa, su Brinkster funzionava. Ora ho dovuto spostare su altro server (Jabry.net) e da l'errore.
1 sto testando in rete (sito.com/utente/file.asp)
2 non saprei, come lo vedo?
3 la cartella "db" ha i permessi
4 direi 2...
5 The use of CreateObject to create a COM component in an Active Server Pages (ASP) page may result in the following error: Microsoft VBScript runtime error '800a01ad'
ActiveX component can't create object


This error is usually generated because dynamic-link libraries (DLLs) on which the COM object depends are one of the following:

• Missing from the system
• Not in the system path
• Not accessible by the system because of security settings

6 ho provato questo, anche su altro server

<% 
MyFile = Server.MapPath( Request.Querystring ("codice") &".txt" )

'il file in cui sono salvati i risultati è contatore.txt

Set FileObject = CreateObject("Scripting.FileSystemObject") 
on error resume next 

Set InStream = FileObject.OpenTextFile(MyFile, 1, true) 
totali = CInt(Instream.ReadLine) + 1 
Instream.Close 
set instream = Nothing 

Set OutStream = FileObject.OpenTextFile(MyFile, 2, true) 
Outstream.WriteLine totali 
Outstream.Close 
Set OutStream = Nothing

set FileObject = Nothing

Response.Redirect ( Request.QueryString("url") ) 
%>

<a href="data/contaclick.asp?codice=contatore&url=http://utente.1apps.com/data/lunaio15.zip">
<!--#include file="data/contatore.txt"-->

[cavicchiandrea]

Direi che un problema server l'ultimo codice che hai postato l'ho testato su un mio server lo stesso codice Jabry.net da errore

[Poulo]

Direi che un problema server l'ultimo codice che hai postato l'ho testato su un mio server lo stesso codice Jabry.net da errore

Grazie. Vorrà dire o che trovo un altro sistema per conteggiare i click, o trovo un altro server free che supporta ...o lascio perdere.

[Gioba66]

usa una tabella nel db; ogni click registri un accesso con IP, ora, referer

[Poulo]

Provato anche questo: niente da fare!
Il server (Jabry, free) mi dà questo errore:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0x1afc Thread 0x3218 DBC 0x9f32044 Jet'.
/nomemio/db/clicks.asp, line 54

questo il codice usato:

<% 
' Value for the url being requested
url=trim(request.querystring("url"))

' if no url is detected then show then
' show a page with links 
if url="" then %>
<html>
<title>CodeAve.com(Count Clicks to a Db)</title>
<head>
<base target="_blank">
</head>
<body bgcolor="#FFFFFF">

<a href="clicks.asp?url=http://www.yahoo.com">Yahoo</a>
<br>
<a href="clicks.asp?url=http://www.aol.com">AOL</a>
<br>
<a href="clicks.asp?url=http://www.excite.com">Excite</a>
<br>
<a href="clicks.asp?url=http://www.mail2web.com">Mail2Web</a>
<br>
<a href="clicks.asp?url=http://www.aspin.com">ASPIn</a>
<br>
<a href="clicks.asp?url=http://www.sas.com">SAS</a>

</body>
</html>
<% 
' if there is a url value detected add it to the db
' and redirect the browser to the url
else 
%>

<%

' Varible for the PC IP address
ip=request.servervariables("remote_addr")

' name of the db that will track the clicks
accessdb="clicks.mdb" 

' Build a connection to the db
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)

' Create a server record set object
set rs = server.createobject("ADODB.Recordset")

' SQL statement that will insert the url and the ip address
sql = "insert into clicks (url,ip) values('"& url &"','"& ip &"')" 

' insert the values into the db
rs.open sql, cn

' kill the recordset  
set rs=nothing

' redirect to the url 
response.redirect url 
%>

<% end if ' end check for a url value %>