% 'Dim oFilesys, oFile 'Set oFilesys = CreateObject("Scripting.FileSystemObject") 'Set oFile = oFilesys.OpenTextFile(Server.MapPath("links.txt")) 'sFile = oFile.readall 'oFile.Close 'Set oFile = nothing 'Set oFileSys = nothing 'sLinks = split(sFile, chr(13)) %>
<%Next%>