<%
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)
%>
<%=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
|
<%
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
%>
<%=strLocation%> |
<%
strActualLocation = strLocation
intColNumber = 1
'intColNumber = 4
End If
If intColNumber < 3 then
%>
|
<%
intColNumber = intColNumber + 1
Else
%>
|
<%
intColNumber = 1
End If
loop
%>
|
|