Contatore

[cionci]

Ecco il global.asa...

[cionci]

E questo è il file di prova...

[Kinh]

ma questi 2 file dove vanno messi?

[cionci]

global.asa nella / del sito web... Il file di prova dove ti pare, basta che sia in directory visibile dal sito web...

[Kinh]

Originariamente inviato da cionci
global.asa nella / del sito web... Il file di prova dove ti pare, basta che sia in directory visibile dal sito web...

il file di prova deve stare in una cartella con permessi di lettura/scrittura o in una qualsiasi?

[cionci]

In una qualsiasi...

[Kinh]

Originariamente inviato da cionci
In una qualsiasi...

non funziona
quando apro il file di prova mi viene fuori

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: ""]'

//global.asa, line 42

[cionci]

Quale server web usi ? Con quale sistema operativo ?

[cionci]

Cerca queste righe in global.asa:

Sub Session_OnStart 
   Application("Contatore") = Application("Contatore") + 1 
   Application("UtentiOnline") = Application("UtentiOnline") + 1 
End Sub 

Sub Session_OnEnd 
   Application("UtentiOnline") = Application("UtentiOnline") - 1

...e cambiale con queste:

Sub Session_OnStart 
   Dim temp
   temp = Application("Contatore")
   temp = temp + 1
   Application("Contatore") = temp
   temp = Application("UtentiOnline")
   temp = temp + 1
   Application("UtentiOnline") = temp 
End Sub 

Sub Session_OnEnd 
   Dim temp
   temp = Application("UtentiOnline")
   temp = temp - 1
   Application("UtentiOnline") = temp

Anche se mi sembra strano che debba essere fatta una sostituzione del genere...ma su versioni vecchie di IIS avevo avuto anche di questi problemi...

[Kinh]

cambiato ora viene questa cosa

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'temp'

//global.asa, line 44



uso win xp ma le prove non le faccio in locale ma direttamente su aruba

[cionci]

Ah...ok...allora forse siamo ad una soluzione...
Cambia le stesse righe con queste:

Sub Session_OnStart 
   Dim temp
   temp = CInt(Application("Contatore"))
   temp = temp + 1
   Application("Contatore") = temp
   temp = CInt(Application("UtentiOnline"))
   temp = temp + 1
   Application("UtentiOnline") = temp 
End Sub 

Sub Session_OnEnd 
   Dim temp
   temp = CInt(Application("UtentiOnline"))
   temp = temp - 1
   Application("UtentiOnline") = temp

Anche questo mi era già successo in passato...

[Kinh]

niente da fate

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CInt'

//global.asa, line 43



ti riporto anche tutto il codice del global.asa aggiornato ad ora prima che sto sbagliando io

<SCRIPT LANGUAGE=VBScript RUNAT=Server>  
Sub Application_OnStart 
   Dim nomefile, filestream 
   nomefile = Server.MapPath("/visite.txt") 
   Application("nomefile") = nomefile 
   Set objFile = CreateObject("Scripting.FileSystemObject") 

   'se il file non esiste, crealo 
   if not objFile.FileExists(nomefile) then 
     Set filestream = objFile.OpenTextFile(nomefile, 2, true) 
     filestream.WriteLine("0") 
   end if 

   'legge il numero attuale di visite 
   Set filestream = objFile.OpenTextFile(nomefile, 1, true) 
   Dim visite 
   visite = filestream.ReadLine() 
   filestream.Close  

   Application("Contatore") = visite 
   Application("UtentiOnline") = 0 

   Set filestream = Nothing 
   Set objFile = Nothing 
End Sub 

Sub Application_OnEnd 
   Dim nomefile, filestream 
   nomefile = Application("nomefile") 
   Set objFile = CreateObject("Scripting.FileSystemObject") 

   'scrive nel file il valore aggiornato di visite 
   Set filestream = objFile.CreateTextFile(nomefile, true) 
   filestream.WriteLine(Application("Contatore")) 
   filestream.Close 

   Set filestream = Nothing 
   Set objFile = Nothing 
End Sub 

Sub Session_OnStart 
   Dim temp
   temp = CInt(Application("Contatore"))
   temp = temp + 1
   Application("Contatore") = temp
   temp = CInt(Application("UtentiOnline"))
   temp = temp + 1
   Application("UtentiOnline") = temp 
End Sub 

Sub Session_OnEnd 
   Dim temp
   temp = CInt(Application("UtentiOnline"))
   temp = temp - 1
   Application("UtentiOnline") = temp 

   Dim numeroVisite
   numeroVisite = Application("Contatore")
   If (numeroVisite Mod 100 = 0) Then
      Dim nomefile, filestream 
      nomefile = Application("nomefile") 
      Set objFile = CreateObject("Scripting.FileSystemObject") 

      'scrive nel file il valore aggiornato di visite 
      Set filestream = objFile.CreateTextFile(nomefile, true) 
      filestream.WriteLine(Application("Contatore")) 
      filestream.Close 

      Set filestream = Nothing 
      Set objFile = Nothing 
   End If
End Sub 
</SCRIPT>

[cionci]

Mi dispiace, ma non riesco a capire quale sia il problema a me funziona benissimo...

[Kinh]

te la spero che non me ne intendo
può essere che non ci siano i permessi di lettura scrittura nel sito?

[cionci]

Non credo visto che da un errore di interpretazione (come se il codice scritto sia errato), non di esecuzione...

[Kinh]

boh mi pare di avere fatto tutto giusto non so che fare