%
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)
%>