<%= varAlbumTitle %>  -  <%= varAlbumDate %>
	<% If myPic > 0 Then %> <%= myPic %> of <%= varCounter %> <% Else %> <%= varAlbumDescription %> <% End If %>

<% If myPic > 0 Then ' open the comments text file If objFSO.FileExists(objFolder&"\"&commenttextfilepath&"\"&myPic&".txt") = True Then set c = objFSO.GetFile(objFolder&"\"&commenttextfilepath&"\"&myPic&".txt") 'open the textstream set cts = c.OpenAsTextStream(ForReading, -2) varcts = cts.ReadAll ComArray1 = split(varcts,"||") CheckComText = True Else CheckComText = False End if %> <%If CheckText = True Then myPicNum = int(myPic)-1 If myPicNum <= ubound(MyArray) then%> <% End if End if %> <% Response.write " " %>

<% Response.write MyArray(myPicNum) %>

<%If CheckComText = True Then If len(varcts) > 2 then %> <% End if %> <% End if %> <% For i2 = LBound(ComArray1) To UBound(ComArray1)-1 varcts2 = ComArray1(i2) ComArray2 = split(varcts2,"^^") %> <% Response.write ComArray2(0) %> <% Response.write ComArray2(1) %> <% Next %>     Comments have been disabled as of 02/29/2008 due to excessive spam. Look for a new photo album coming soon.

<% Else %> <% varCounter = 0 For each objFileItem in objFolderContents if i mod 4 = 0 then response.write "" varCounter = varCounter + 1 if len(varCounter) < 2 then varCounter = "0" & varCounter End if Response.write " " if i mod 4 = 3 then Response.write " " End if i=i+1 Next If i mod 4 = 1 then response.write "" If i mod 4 = 2 then response.write "" If i mod 4 = 3 then response.write "" %>

" %> <%If CheckText = True Then myPicNum = int(varCounter)-1 If myPicNum <= ubound(MyArray) then%> <% Response.write MyArray(myPicNum) %> <% End if End if %> <% Response.write "

<% END IF %>