<%@ Language=VBScript %> <% sub get_Files() ' set vars dim sPath, sFile dim sTable, eTable dim sRow, eRow dim sCell, eCell dim sHref, eHref dim sImg, eImg dim sSmall, sLink, sDesc dim iFirst, iSec, iLen ' define vars sPath = server.MapPath("files.txt") sTable = "" eTable = "

" sRow = "" eRow = "" sCell = "" eCell = "" sHref = "" sImg = "

" & a.ReadLine & "

" Response.Write sTable 'display files do until a.AtEndOfStream sFile = trim(a.readline) iFirst = instr(1, sFile, ",") iSec = instr(iFirst + 1, sFile, ",") iLen = len(sFile) sSmall = mid(sFile, 1, iFirst - 1) sLink = mid(sFile, iFirst + 2, iSec - (iFirst + 2)) sDesc = mid(sFile, iSec + 2, iLen - (iSec + 1)) Response.Write sRow & sCell & sHref & sLink & ">" & sImg & sSmall & ">" & eHref & eCell & sCell & sDesc & eCell & eRow loop set fs = nothing set a = nothing Response.Write eTable end sub call get_Files %>