<%=SiteName%>
|
Closest Town: |
<%=NearestTown%> |
Introduction date: |
<%=FoundingDate%> |
|
Site Name: |
<%=SiteName%> |
Source of introduction: |
<%=Stock%> |
|
Site Access: |
<%=Access%> |
Colony Status: |
<%=Extant%> |
|
Relative population estimate: |
<%=PopulationEstimate%> |
Extirpation date: |
<%=ExtirpationDate%> |
|
History: <%=Comment%> |
||||
Ecological impact: <%=Ecology%> |
||||
Habitat: <%=Habitat%> <% VirtualPath = "/SARG/02000-Activities/SurveyAndMonitoring/WallLizard/PMHabitatImages/" FileName1 = SiteName & " Habitat1.jpg" FileName2 = SiteName & " Habitat2.jpg" ImageString = "" CaptionString = "" ImageCount=0 If IsFile(VirtualPath,FileName1) Then ImageCount=ImageCount+1 ImageString = ImageString & FileName1 CaptionString = CaptionString & "Habitat at " & SiteName If NOT IsNull(Habitat1Caption) Then CaptionString = Habitat1Caption End If If IsFile(VirtualPath,FileName2) Then ImageCount=ImageCount+1 If len(ImageString)>0 Then ImageString = ImageString & "," & FileName2 End If If len(CaptionString)>0 Then If NOT IsNull(Habitat2Caption) Then CaptionString = CaptionString & "," & Habitat2Caption Else CaptionString = CaptionString & ",Habitat at " & SiteName End If End If End If If IsFile(VirtualPath,FileName1) OR IsFile(VirtualPath,FileName2) Then Response.write("")
Call InLineMontage(ImageString, VirtualPath, CaptionString)
Response.write(" ")
End If
%>
|
||||
Morphology: <%=Morph%> <% VirtualPath = "/SARG/02000-Activities/SurveyAndMonitoring/WallLizard/PMMorphImages/" FileName1 = SiteName & " Morph1.jpg" FileName2 = SiteName & " Morph2.jpg" ImageString = "" CaptionString = "" ImageCount=0 If IsFile(VirtualPath,FileName1) Then ImageCount = ImageCount+1 ImageString = ImageString & FileName1 CaptionString = CaptionString & "Morph at " & SiteName If NOT IsNull(Morph1Caption) Then CaptionString = Morph1Caption End If If IsFile(VirtualPath,FileName2) Then ImageCount = ImageCount+1 If len(ImageString)>0 Then ImageString = ImageString & "," ImageString = ImageString & FileName2 End If If len(CaptionString)>0 Then If NOT IsNull(Morph2Caption) Then CaptionString = CaptionString & "," & Morph2Caption Else CaptionString = CaptionString & ",Morph at " & SiteName End If End If End If If IsFile(VirtualPath,FileName1) OR IsFile(VirtualPath,FileName2) Then Response.write("")
Call InLineMontage(ImageString, VirtualPath, CaptionString)
Response.write(" ")
End If
%>
|
||||
Location: |
||||