<% Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(Server.MapPath("info.txt")) Dim arrSplit arrSplit = split(objTS.ReadLine,",") objTS.Close intView = 0 For i = LBound(arrSplit) To UBound(arrSplit) intView = intView + 1 Next Randomize intRnd = int(intView * rnd) %> <%=intView%> document.write(''); document.write(' height=<%=s_height%>>');