I think I got it, this reads each line of a deliminted file in a drop down.
----------------------------------------------------------------------------------------
<%@ LANGUAGE = "VBScript" %>
<%Option Explicit
'Declare the variables that are important to us
Dim fsoList, tsList
Dim strFilePath
'Find the local path to the file we want. Sort of assumes it in the same
directory as the script
strFilePath = Server.MapPath("list.txt")
Response.Write "<html><body>" &VBCrLf
'Open the File System Object, check for the file, open the file, prepare the
file for reading
Set fsoList = Server.CreateObject("Scripting.FileSystemObject")
If fsoList.FileExists(strFilePath) Then
'Start the select box
Response.Write "<br><center><select>" &VBCrLf
'Open a stream from the file
Set tsList = fsoList.OpenTextFile(strFilePath)
'Read the file and put the contents of a line in between option tags
Do Until tsList.AtEndOfStream
Response.Write "<option>"&tsList.ReadLine&"</option>" &VBCrLf
Loop
'Clean up after ourselves
tsList.Close : Set tsList = Nothing
'Close the Select box
Response.Write "</select>" &VBCrLf
Else
Response.Write strFilePath & " does not exist"
End If
Set fsoList = Nothing
Response.Write "</body></html>" &VBCrLf
%>
