ci provo:

codice:
<%
Response.AddHeader "Cache-Control","no-cache, must-revalidate" 
Response.AddHeader "Pragma","no-cache"
Dim Fso,Fp
level = Request.QueryString("level")
If IsNull(level) Or (level = "") Then level = 1
Set Fso = Server.CreateObject("Scripting.FileSystemObject") 
Set Fp = Fso.OpenTextFile(Server.MapPath("level" & level & ".txt"),1,true)
i = 0
While Not Fp.AtEndOfStream
'Ma 1000 per fgets intende byte o char?
	line  = Fp.Read(1000)' Nel caso intendevi linea [line  = " & Fp.ReadLine]
	Response.Write "&asparray" & i & "=" & line	
	i = i + 1
Wend
Set Fp  = Nothing
Set Fso = Nothing
%>