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