<% UpLink = "/SARG/SARG.asp" CONST IconLink=0 CONST Icon=1 CONST IconCaption=2 Dim IconArray(2,11) n=0 IconArray(IconLink,n)= "/SARG/21000-MembersArea/Adderwatching.asp" IconArray(Icon,n) = "adder.gif" IconArray(IconCaption,n) = "How to Spot Adders
in the Wild" n=n+1 IconArray(IconLink,n)= "northwestroadtrip/SARGfieldtrips.html" IconArray(Icon,n) = "map.gif" IconArray(IconCaption,n) = "North-West Roadtrip
2006" n=n+1 IconArray(IconLink,n)= "WhyReptilesDontExist.asp" IconArray(Icon,n) = "articles.gif" IconArray(IconCaption,n) = "Why Reptiles Don't Exist
(Systematics)" Call WriteMenu(IconArray,4,"Articles", UpLink) %>