Errore prevista fine istruzione

[cristianr]

Salve, ho impostato il seguente codice ma mi restituisce il seguente errore. Ma dove stò sbagliando? Grazie anticipatamente.

<%@LANGUAGE="VBSCRIPT"%>
<%

DIM strPercorso as string
strPercorso = Request.querystring("Percorso")
DIM strFile as string
strFile = Request.querystring("Nomefile")

Dim ElencoFile() as string
ElencoFile=split(strFile,"-")

Dim i as long
For i = 0 To UBound(ElencoFile)
response.write(ElencoFile(i))
next i
%>

errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/provasoci/download.asp, line 4, column 16
DIM strPercorso as string