modifica leggermente il tuo codice così

dim temp
temp=Chr(AscB(MidB(FileData,nIndex,1)))
response.write ("MaGGico file:" & temp)
response.end

e dicci cosa viene scritto