executeglobal e costanti

[agenti]

sto cercando di usare questa funzioen per redndere multilingua il web wiz forum

<%
Function Include(fileName)
Dim strText
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mapPath(fileName))
strText = f.ReadAll()
strText = Replace(strText,"<" & "%","")
strText = Replace(strText,"%" & ">","")
f.Close
ExecuteGlobal strText
End Function
%>


<%

RESPONSE.WRITE Include("/forum/language_files/italiano/language_file_inc.asp")

%>

Però non funzia...
il path è corretto

[Santino83_02]

perchè fai il replace dei tag di asp? che errore ti da?

[agenti]

Ciao Santino,

lo script in se non da errore...
se lo richiamo dalla pagina originale..

suppongo che questo replace serva ad eliminare i tag "asp" di apertura e chiusura della pagina chiamata

strText = Replace(strText,"<" & "%","")
strText = Replace(strText,"%" & ">","")

ma ho provato anche senza replace , con lo stesso risultato.

il problema cmq lo da il webwiz , come se le costanti del file traduzioni
"/forum/language_files/italiano/language_file_inc.asp"
non vengono realmente inizializzate...

Mi dice appunto: variabile non definita strtex...

[dizionario]

da qualche parte hai "option explicit", toglilo

[agenti]

ma va..

ma il problema non mi sembra posso risolverlo così..
se non sono inizializzate le variabili , vuol dire che le variabili non hanno valore , o sbaglio ?
:master:

[dizionario]

no

l'errore "variabile non definita" significa che dopo aver messo "option explicit"
hai usato una variabile senza averla definita usando l'istruzione Dim

quindi o togli "option explicit" o metti "dim miavariabile"

[agenti]

continuo a non spiegarmi....

Sto lavorando sulle pagine di un forum
che non è codice mio.

a mio avviso se le costanti dentro la pagina che richiamo con la funzione di cui sopra
non vengono inizializzate vuol dire che qualcosa non va nella lettura dello script in quella modalità.

se executeglobal legesse il file ...
quel file dovrebbe contenere i valori e le costanti sarebbero inizializzate ...

:master:

[dizionario]

per vedere se lo legge puoi stampare strText prima della executeglobal

stampare il risultato della funzione, come hai fatto, non serve, perché quella funzione non restituisce alcun valore

[agenti]

provo..

[agenti]

allur...
per fare il test ho utilizzato option explicit per verificare se le variabili vengono inizializzate

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% Option Explicit %>
<%

Function Include(fileName)
Dim strText,fso,f
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(server.mapPath(fileName))
Dim strTextforum
strTextforum = f.ReadAll()
strTextforum = Replace(strText,"<" & "%","")
strTextforum = Replace(strText,"%" & ">","")
f.Close
ExecuteGlobal strTextforum
End Function


Include("/forum/language_files/italiano/language_file_inc.asp")

response.write "test" & strTxtMovieProperties

%>


risultato:
Microsoft VBScript runtime error '800a01f4'
Variable is undefined: 'strTxtMovieProperties'
/forum/language_files/language_file_inc.asp, line 20

senza option explicit invece visualizza la variabile...
senza errore.

p.s.
non posso eliminare option explicit su 128 pagine...
e non so che effetto avrebbe sul resto del forum..