<% strFileName=request("f") strTextFileName = "files/" & strFileName & ".txt" 'response.write strTextFileName strTextFilePath = Server.MapPath(strTextFileName) 'strTextFilePath = strTextFilePath & strTextFileName 'response.write strTextFilePath intColNumber = "1" strActualLocation= "" Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.OpenTextFile((strTextFilePath), 1) strFullLine = f.readLine bnFirstLine = true arrSplit=split(strFullLine, "|") strTitle = arrSplit(3) %> <% do while f.AtEndOfStream = false ' Count = Count + 1 strFullLine = f.readLine 'response.write strFullLine & "
" arrSplit=split(strFullLine, "|") strImage = arrSplit(0) strFullImage = arrSplit(1) strLocation = arrSplit(2) strTitle = arrSplit(3) 'response.write strTornament & " - " & strTournament & "
" If strLocation<>strActualLocation Then %> <% strActualLocation = strLocation intColNumber = 1 'intColNumber = 4 End If If intColNumber < 3 then %> <% intColNumber = intColNumber + 1 Else %> <% intColNumber = 1 End If loop %>

<%=strTitle%>

Here is a small selection of some of the homes that we have built.
Click on any of the images for a larger view
 

<%=strLocation%>