%@ LANGUAGE="VBSCRIPT" %>
<% Option Explicit %>
<%
Dim intPhoto
intPhoto = CInt(Request("Photo"))
If intPhoto = 0 Then
intPhoto = 1
End if
%>
Marshfield Photo <% = intPhoto %> of 23
<% If intPhoto > 1 Then %>
">Previous
<% End if %>
<% If intPhoto < 23 Then %>
">Next
<% End if %>
Satellite Photo
Topographic Map
<%
' Format a number to 000 format
Function FormatSequence(inVal)
Dim strResult
Dim i, j
i = Len(Trim(inVal))
strResult = inVal
For j = 1 to 3-i
strResult = "0" & strResult
Next
FormatSequence = strResult
End Function
%>