Kingfisher £20 prize winners
<% wfolder=Request.ServerVariables("APPL_PHYSICAL_PATH") & "KINGFISHERKC/html/" 'response.write wfolder & "winners.txt" Set fs=Server.CreateObject("Scripting.FileSystemObject") set winners=fs.OpenTextFile(wfolder & "winners.txt") lwin = split(winners.ReadAll,vbcrlf) winners.close For each strNames In lwin strnames=replace(strnames,",","
") response.write strnames next set winners=nothing set fs=Nothing %> Have you played yet?, see Steve Kirby for details.