<% Dim fs, f Dim clients_contents, clientlines dim clients(100), totalclients, iClient totalclients = 0 '-------------------------read clients file------------------------- Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile(Server.MapPath("clients.inc.txt"), 1) clients_contents = f.Readall f.Close Set f=Nothing Set fs=Nothing '-------------------------parse settings file------------------------- clientlines = split(clients_contents, chr(13) & chr(10)) if (ubound(clientlines) < 5) then 'probably different file system clientlines = split(clients_contents, chr(13)) end if for i = 0 to ubound(clientlines) clientlines(i) = trim(clientlines(i)) 'trim if (left(clientlines(i),2) = "//") OR (clientlines(i) = "") then 'skip comments & empty lines else totalclients = totalclients + 1 clients(totalclients) = clientlines(i) end if next '-------------------------output------------------------- for iClient = 1 to round(totalclients/3 + 0.01) response.write("• " & clients(iClient) & "
") next %>

<% '-------------------------output------------------------- for iClient = round(totalclients/3 + 0.01)+1 to round(totalclients * 2/3 + 0.01)+1 response.write("• " & clients(iClient) & "
") next %>

<% '-------------------------output------------------------- for iClient = round(totalclients * 2/3 + 0.01)+2 to totalclients response.write("• " & clients(iClient) & "
") next %>