I am trying to read a list from a text file and put it into a drop down box. I read it in and put option tags replacing the breaks but I want to drop it into the select menu in alphabetical order, I assume I need to read it into an array how would I go about this? The code I have written is below:<BR><BR>&#060;%<BR> Private Function FileRead(byVal pathname)<BR> dim objFSO, objFile, tmp<BR> On Error Resume Next<BR> Set objFSO = Server.CreateObject("Scripting.FileSystemObject")< BR> Set objFile = objFSO.OpenTextFile(pathname, 1, False)<BR> tmp = objFile.ReadAll<BR> If Err Then<BR> FileRead = Null<BR> Else<BR> FileRead = tmp<BR> End If<BR> objFile.Close<BR> Set objFile = Nothing<BR> Set objFSO = Nothing<BR> On Error GoTo 0<BR> End Function<BR> <BR> strProjects = FileRead(server.mappath("projects.txt")) <BR> strProjects = Replace(strProjects, chr(10), "&#060;/option&#062;&#060;option&#062;")<BR>%&#062;