Autorizzazione Negata

[fablan]

Salve, ho un probelema che mi affligge da giorni, sto cercando di creare una pagina in ASP, ma nel momento in cui cerco di visualizzarla mi appare questo messaggio di errore:

Errore di run-time di Microsoft VBScript (0x800A0046)
Autorizzazione negata: 'Clear'
/GWMTutorial/USSampleData/Content/Build/LegendBuild.inc, line 92

Premettendo che uso windows XP e IIS, non credo che dipenda dal codice ma penso che probabilmente sia un problema di autorizzazioni della cartella ma a me pare che sia tutto in ordine, la cartella è settata in lettura e scrittura e le autorizzazioni di accesso sono settate per: Accesso anonimo IUSR_nome macchina.
Qual'è il problema? Help me! Se riuscite a trovare una possibile soluzione ditemi dettagliatamente tutti i passaggi da effettuare per favore! Rispondete prima possibile! Grazie

 

[daviduccio]

Probabile sia errore di script.....quel comando clear a cosa si riferisce?

posta lo script!

 

[fablan]

Questo è un pezzo del codice

Questo codice non l'ho scritto io, ma lo ha creato automaticamente il software che utilizzo (GeoMedia), è la parte su cui si presenta l'errore:

....
....

'------------------------------------------------------------------------------
' Build legend
'------------------------------------------------------------------------------

'-- Get Display Rule Script Definitions
svarDRScriptDefs = GetDRScriptDefs

'-- Get Display flag array
if sstrDisplayFlags<>"" Then
svarDisplayFlagArray = GetDisplayFlagArray(sstrDisplayFlags)
Else
sstrDisplayFlags = GetBaseDisplayFlags(UBound (svarLegendEntryDefs,1))
End If

'-- Get GUID and Cache Location for Custom Display Rule Icons
Dim objMapServerMgr, objMapServer
Set objMapServerMgr = Server.CreateObject("GMWebMap.MapServerManager")
Set objMapServer = objMapServerMgr.MapServer("")
objMapServer.Clear
strGUID = GetGUID(objMapServer)
strGWMCacheVirtualDir = GetGWMCacheVirtualDir
(objMapServer)
strCacheLocation = Server.MapPath(strGWMCacheVirtualDir) & "\"
Set objMapServer = Nothing
Set objMapServerMgr = Nothing

.....
.....