<%@ LANGUAGE="VBSCRIPT" %>
<% option explicit %>
<% Response.Buffer = True %>
Traditional Icons
<%
Dim FileSys, InFile, sContents
Dim Image, iImgWidth, iImgHeight
Dim Detail, iDetailWidth, iDetailHeight
Dim ImageName, ImageSize
Set FileSys = CreateObject( "Scripting.FileSystemObject" )
'Response.Write sWebRoot & "\traditionaliconography\preview\traditionalgallery.txt"
'Response.End
Set InFile = FileSys.OpenTextFile( sWebRoot & "\traditionaliconography\preview\traditionalgallery.txt", 1, 0, 0 )
Dim i
i = 0
sContents = InFile.Readline ' Throw away headers
Do While InFile.AtEndOfStream <> True
sContents = InFile.Readline
If Len(Trim(sContents)) > 1 Then
ParseSubStrings(sContents)
i = i + 1
If i = CInt(Request.QueryString("item")) Then
ImageName = ShowSub(1)
ImageSize = ShowSub(2)
Image = ShowSub(3)
iImgWidth = ShowSub(4)
iImgHeight = ShowSub(5)
Detail = ShowSub(9)
iDetailWidth = ShowSub(10)
iDetailHeight = ShowSub(11)
End If
End If
Loop
%>
| <%=ImageName%> |
<%=ImageSize%> |
<% If Detail <> " " Then %>
| |
Detail View
 |
<% End If %>
|