Photos from the 2008 Africa Aerospace & Defense Expo, held at Ysterplaat Air Force Base in Cape Town, South Africa in September 2008.
Photos in album: <%=items.length%>
Photos and content © 2006 - <%=year(now)%>,
Flightzone Photography and contributing photographers. All rights reserved.
Photos on this site may not be reproduced, distributed, cropped, resized, or otherwise altered without the written permission of the photographer. No commercial use of these photos may be made in any way.
Contact Us |
<%
Dim curitem,fcount
fcount = 0
For inum = 0 To items.length-1
Set curitem = items.item(inum)
'title = getNodeText(curitem,"title")
'description = getNodeText(curitem,"description")
'thumbnail = getNodeText(curitem,"thumbnail")
'enclosure = getNodeText(curitem,"enclosure")
'Set enode = curitem.SelectSingleNode("enclosure")
'enclosure = getNodeText(enode,"@url")
Set group = curitem.SelectSingleNode("media:group")
If group Is Nothing Then
mdesc = "[no media:group]"
mtitle = "[no media:group]"
mthumbnail = "[no media:group]"
Else
mdesc = getNodeText(group,"media:description")
If mdesc = "" Then mdesc = " "
mtitle = getNodeText(group,"media:title")
Set mcont = group.SelectSingleNode("media:content")
mcontent = getNodeText(mcont,"@url")
Set mthumb = group.SelectSingleNode("media:thumbnail")
mthumbnail = getNodeText(mthumb,"@url")
mthumbnail = Replace(mthumbnail, "s72", "s144")
End If
%>
" rel="AAD2008" title="<%=mdesc%>">
<%
fcount = fcount + 1
Next 'Go through each link in the rss feed.%>
<%
Function getNodeText(curnode,name)
dim node
Set node = curnode.SelectSingleNode(name)
If node IS NOTHING Then getNodeText = "[no " & name & "]" Else
getNodeText = node.Text
End Function
%> |
