<%@ language='VBscript'%>
<%
' Set up some basic variables to control the layout of the table...
' =================================================================
imgNum = 0
rowImg = 0
imagesPerRow = 5
%>
A Colourful World
Fares
Biman
Air India
<%
function showImg(theImage,theCaption)
imgNum = imgNum + 1
endOfRow = 0
startOfRow = 0
rowImg = rowImg + 1
if rowImg = 1 then
startOfRow = 1
end if
if rowImg = imagesPerRow then
rowImg = 0
endOfRow = 1
end if
if startOfRow = 1 then
response.write ""
end if
response.write ""
response.write "![](images/" & theImage & "_THUMB.jpg "Click to view larger version") "
response.write "
" & imgNum
if endOfRow = 1 then
response.write " | "
end if
end function
%>