%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <%Response.Buffer = True Response.Write "
2010 Vredendal Fly-In Vredendal Airfield, 24 August 2010 |
|
Photos from the 2010 Vredendal Fly-In Photos in album: <%=items.length%>
Photos and content © 2006 - <%=year(now)%>, 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. |
<% 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="FASHkosh" 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 %> |