Please help me get started with scripts

5 Pages
« First
←
3
4
5

You cannot start a new topic
You cannot reply to this topic

Please help me get started with scripts I would like to automate modifying some html files

#61 Stephen W

Member

Group: Members
Posts: 65
Joined: 20-October 07

Posted 10 January 2011 - 06:58 AM

We then need to delete from index.html:
<tr>
<td colspan="6"><div class="pages">Page:[1] <a href="index2.html" title="Jump to index page 2">[2]</a></div></td>
</tr>
And add from index2.html:
<tr>
<td class="thumbcell"><a href="test1088_151.html"><img src="test1088_151_small.jpg" title="test1088_151" alt="test1088_151_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_152.html"><img src="test1088_152_small.jpg" title="test1088_152" alt="test1088_152_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_153.html"><img src="test1088_153_small.jpg" title="test1088_153" alt="test1088_153_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_154.html"><img src="test1088_154_small.jpg" title="test1088_154" alt="test1088_154_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_155.html"><img src="test1088_155_small.jpg" title="test1088_155" alt="test1088_155_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_156.html"><img src="test1088_156_small.jpg" title="test1088_156" alt="test1088_156_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_157.html"><img src="test1088_157_small.jpg" title="test1088_157" alt="test1088_157_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_158.html"><img src="test1088_158_small.jpg" title="test1088_158" alt="test1088_158_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_159.html"><img src="test1088_159_small.jpg" title="test1088_159" alt="test1088_159_small.jpg" /></a></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
</tr>

To give the final modified index.html file that looks like this (prior to application of the existing script):

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>Untitled Album</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Generator" content="Web Album Generator 1.8.2; http://www.ornj.net/" />
<link rel="stylesheet" type="text/css" href="main.css" />
</head>
<body>
<div id="header">
<h1>Untitled Album</h1>
</div>
<p class="description">Various photographs that I'd like to share on the Web.</p>

<div id="index">
<table>
<tr>
<td class="thumbcell"><a href="test1088_001.html"><img src="test1088_001_small.jpg" title="test1088_001" alt="test1088_001_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_002.html"><img src="test1088_002_small.jpg" title="test1088_002" alt="test1088_002_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_003.html"><img src="test1088_003_small.jpg" title="test1088_003" alt="test1088_003_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_004.html"><img src="test1088_004_small.jpg" title="test1088_004" alt="test1088_004_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_005.html"><img src="test1088_005_small.jpg" title="test1088_005" alt="test1088_005_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_006.html"><img src="test1088_006_small.jpg" title="test1088_006" alt="test1088_006_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_007.html"><img src="test1088_007_small.jpg" title="test1088_007" alt="test1088_007_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_008.html"><img src="test1088_008_small.jpg" title="test1088_008" alt="test1088_008_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_009.html"><img src="test1088_009_small.jpg" title="test1088_009" alt="test1088_009_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_010.html"><img src="test1088_010_small.jpg" title="test1088_010" alt="test1088_010_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_011.html"><img src="test1088_011_small.jpg" title="test1088_011" alt="test1088_011_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_012.html"><img src="test1088_012_small.jpg" title="test1088_012" alt="test1088_012_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_013.html"><img src="test1088_013_small.jpg" title="test1088_013" alt="test1088_013_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_014.html"><img src="test1088_014_small.jpg" title="test1088_014" alt="test1088_014_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_015.html"><img src="test1088_015_small.jpg" title="test1088_015" alt="test1088_015_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_016.html"><img src="test1088_016_small.jpg" title="test1088_016" alt="test1088_016_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_017.html"><img src="test1088_017_small.jpg" title="test1088_017" alt="test1088_017_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_018.html"><img src="test1088_018_small.jpg" title="test1088_018" alt="test1088_018_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_019.html"><img src="test1088_019_small.jpg" title="test1088_019" alt="test1088_019_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_020.html"><img src="test1088_020_small.jpg" title="test1088_020" alt="test1088_020_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_021.html"><img src="test1088_021_small.jpg" title="test1088_021" alt="test1088_021_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_022.html"><img src="test1088_022_small.jpg" title="test1088_022" alt="test1088_022_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_023.html"><img src="test1088_023_small.jpg" title="test1088_023" alt="test1088_023_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_024.html"><img src="test1088_024_small.jpg" title="test1088_024" alt="test1088_024_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_025.html"><img src="test1088_025_small.jpg" title="test1088_025" alt="test1088_025_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_026.html"><img src="test1088_026_small.jpg" title="test1088_026" alt="test1088_026_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_027.html"><img src="test1088_027_small.jpg" title="test1088_027" alt="test1088_027_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_028.html"><img src="test1088_028_small.jpg" title="test1088_028" alt="test1088_028_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_029.html"><img src="test1088_029_small.jpg" title="test1088_029" alt="test1088_029_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_030.html"><img src="test1088_030_small.jpg" title="test1088_030" alt="test1088_030_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_031.html"><img src="test1088_031_small.jpg" title="test1088_031" alt="test1088_031_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_032.html"><img src="test1088_032_small.jpg" title="test1088_032" alt="test1088_032_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_033.html"><img src="test1088_033_small.jpg" title="test1088_033" alt="test1088_033_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_034.html"><img src="test1088_034_small.jpg" title="test1088_034" alt="test1088_034_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_035.html"><img src="test1088_035_small.jpg" title="test1088_035" alt="test1088_035_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_036.html"><img src="test1088_036_small.jpg" title="test1088_036" alt="test1088_036_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_037.html"><img src="test1088_037_small.jpg" title="test1088_037" alt="test1088_037_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_038.html"><img src="test1088_038_small.jpg" title="test1088_038" alt="test1088_038_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_039.html"><img src="test1088_039_small.jpg" title="test1088_039" alt="test1088_039_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_040.html"><img src="test1088_040_small.jpg" title="test1088_040" alt="test1088_040_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_041.html"><img src="test1088_041_small.jpg" title="test1088_041" alt="test1088_041_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_042.html"><img src="test1088_042_small.jpg" title="test1088_042" alt="test1088_042_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_043.html"><img src="test1088_043_small.jpg" title="test1088_043" alt="test1088_043_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_044.html"><img src="test1088_044_small.jpg" title="test1088_044" alt="test1088_044_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_045.html"><img src="test1088_045_small.jpg" title="test1088_045" alt="test1088_045_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_046.html"><img src="test1088_046_small.jpg" title="test1088_046" alt="test1088_046_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_047.html"><img src="test1088_047_small.jpg" title="test1088_047" alt="test1088_047_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_048.html"><img src="test1088_048_small.jpg" title="test1088_048" alt="test1088_048_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_049.html"><img src="test1088_049_small.jpg" title="test1088_049" alt="test1088_049_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_050.html"><img src="test1088_050_small.jpg" title="test1088_050" alt="test1088_050_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_051.html"><img src="test1088_051_small.jpg" title="test1088_051" alt="test1088_051_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_052.html"><img src="test1088_052_small.jpg" title="test1088_052" alt="test1088_052_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_053.html"><img src="test1088_053_small.jpg" title="test1088_053" alt="test1088_053_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_054.html"><img src="test1088_054_small.jpg" title="test1088_054" alt="test1088_054_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_055.html"><img src="test1088_055_small.jpg" title="test1088_055" alt="test1088_055_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_056.html"><img src="test1088_056_small.jpg" title="test1088_056" alt="test1088_056_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_057.html"><img src="test1088_057_small.jpg" title="test1088_057" alt="test1088_057_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_058.html"><img src="test1088_058_small.jpg" title="test1088_058" alt="test1088_058_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_059.html"><img src="test1088_059_small.jpg" title="test1088_059" alt="test1088_059_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_060.html"><img src="test1088_060_small.jpg" title="test1088_060" alt="test1088_060_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_061.html"><img src="test1088_061_small.jpg" title="test1088_061" alt="test1088_061_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_062.html"><img src="test1088_062_small.jpg" title="test1088_062" alt="test1088_062_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_063.html"><img src="test1088_063_small.jpg" title="test1088_063" alt="test1088_063_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_064.html"><img src="test1088_064_small.jpg" title="test1088_064" alt="test1088_064_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_065.html"><img src="test1088_065_small.jpg" title="test1088_065" alt="test1088_065_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_066.html"><img src="test1088_066_small.jpg" title="test1088_066" alt="test1088_066_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_067.html"><img src="test1088_067_small.jpg" title="test1088_067" alt="test1088_067_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_068.html"><img src="test1088_068_small.jpg" title="test1088_068" alt="test1088_068_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_069.html"><img src="test1088_069_small.jpg" title="test1088_069" alt="test1088_069_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_070.html"><img src="test1088_070_small.jpg" title="test1088_070" alt="test1088_070_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_071.html"><img src="test1088_071_small.jpg" title="test1088_071" alt="test1088_071_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_072.html"><img src="test1088_072_small.jpg" title="test1088_072" alt="test1088_072_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_073.html"><img src="test1088_073_small.jpg" title="test1088_073" alt="test1088_073_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_074.html"><img src="test1088_074_small.jpg" title="test1088_074" alt="test1088_074_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_075.html"><img src="test1088_075_small.jpg" title="test1088_075" alt="test1088_075_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_076.html"><img src="test1088_076_small.jpg" title="test1088_076" alt="test1088_076_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_077.html"><img src="test1088_077_small.jpg" title="test1088_077" alt="test1088_077_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_078.html"><img src="test1088_078_small.jpg" title="test1088_078" alt="test1088_078_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_079.html"><img src="test1088_079_small.jpg" title="test1088_079" alt="test1088_079_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_080.html"><img src="test1088_080_small.jpg" title="test1088_080" alt="test1088_080_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_081.html"><img src="test1088_081_small.jpg" title="test1088_081" alt="test1088_081_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_082.html"><img src="test1088_082_small.jpg" title="test1088_082" alt="test1088_082_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_083.html"><img src="test1088_083_small.jpg" title="test1088_083" alt="test1088_083_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_084.html"><img src="test1088_084_small.jpg" title="test1088_084" alt="test1088_084_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_085.html"><img src="test1088_085_small.jpg" title="test1088_085" alt="test1088_085_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_086.html"><img src="test1088_086_small.jpg" title="test1088_086" alt="test1088_086_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_087.html"><img src="test1088_087_small.jpg" title="test1088_087" alt="test1088_087_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_088.html"><img src="test1088_088_small.jpg" title="test1088_088" alt="test1088_088_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_089.html"><img src="test1088_089_small.jpg" title="test1088_089" alt="test1088_089_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_090.html"><img src="test1088_090_small.jpg" title="test1088_090" alt="test1088_090_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_091.html"><img src="test1088_091_small.jpg" title="test1088_091" alt="test1088_091_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_092.html"><img src="test1088_092_small.jpg" title="test1088_092" alt="test1088_092_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_093.html"><img src="test1088_093_small.jpg" title="test1088_093" alt="test1088_093_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_094.html"><img src="test1088_094_small.jpg" title="test1088_094" alt="test1088_094_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_095.html"><img src="test1088_095_small.jpg" title="test1088_095" alt="test1088_095_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_096.html"><img src="test1088_096_small.jpg" title="test1088_096" alt="test1088_096_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_097.html"><img src="test1088_097_small.jpg" title="test1088_097" alt="test1088_097_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_098.html"><img src="test1088_098_small.jpg" title="test1088_098" alt="test1088_098_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_099.html"><img src="test1088_099_small.jpg" title="test1088_099" alt="test1088_099_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_100.html"><img src="test1088_100_small.jpg" title="test1088_100" alt="test1088_100_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_101.html"><img src="test1088_101_small.jpg" title="test1088_101" alt="test1088_101_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_102.html"><img src="test1088_102_small.jpg" title="test1088_102" alt="test1088_102_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_103.html"><img src="test1088_103_small.jpg" title="test1088_103" alt="test1088_103_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_104.html"><img src="test1088_104_small.jpg" title="test1088_104" alt="test1088_104_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_105.html"><img src="test1088_105_small.jpg" title="test1088_105" alt="test1088_105_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_106.html"><img src="test1088_106_small.jpg" title="test1088_106" alt="test1088_106_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_107.html"><img src="test1088_107_small.jpg" title="test1088_107" alt="test1088_107_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_108.html"><img src="test1088_108_small.jpg" title="test1088_108" alt="test1088_108_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_109.html"><img src="test1088_109_small.jpg" title="test1088_109" alt="test1088_109_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_110.html"><img src="test1088_110_small.jpg" title="test1088_110" alt="test1088_110_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_111.html"><img src="test1088_111_small.jpg" title="test1088_111" alt="test1088_111_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_112.html"><img src="test1088_112_small.jpg" title="test1088_112" alt="test1088_112_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_113.html"><img src="test1088_113_small.jpg" title="test1088_113" alt="test1088_113_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_114.html"><img src="test1088_114_small.jpg" title="test1088_114" alt="test1088_114_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_115.html"><img src="test1088_115_small.jpg" title="test1088_115" alt="test1088_115_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_116.html"><img src="test1088_116_small.jpg" title="test1088_116" alt="test1088_116_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_117.html"><img src="test1088_117_small.jpg" title="test1088_117" alt="test1088_117_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_118.html"><img src="test1088_118_small.jpg" title="test1088_118" alt="test1088_118_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_119.html"><img src="test1088_119_small.jpg" title="test1088_119" alt="test1088_119_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_120.html"><img src="test1088_120_small.jpg" title="test1088_120" alt="test1088_120_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_121.html"><img src="test1088_121_small.jpg" title="test1088_121" alt="test1088_121_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_122.html"><img src="test1088_122_small.jpg" title="test1088_122" alt="test1088_122_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_123.html"><img src="test1088_123_small.jpg" title="test1088_123" alt="test1088_123_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_124.html"><img src="test1088_124_small.jpg" title="test1088_124" alt="test1088_124_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_125.html"><img src="test1088_125_small.jpg" title="test1088_125" alt="test1088_125_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_126.html"><img src="test1088_126_small.jpg" title="test1088_126" alt="test1088_126_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_127.html"><img src="test1088_127_small.jpg" title="test1088_127" alt="test1088_127_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_128.html"><img src="test1088_128_small.jpg" title="test1088_128" alt="test1088_128_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_129.html"><img src="test1088_129_small.jpg" title="test1088_129" alt="test1088_129_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_130.html"><img src="test1088_130_small.jpg" title="test1088_130" alt="test1088_130_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_131.html"><img src="test1088_131_small.jpg" title="test1088_131" alt="test1088_131_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_132.html"><img src="test1088_132_small.jpg" title="test1088_132" alt="test1088_132_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_133.html"><img src="test1088_133_small.jpg" title="test1088_133" alt="test1088_133_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_134.html"><img src="test1088_134_small.jpg" title="test1088_134" alt="test1088_134_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_135.html"><img src="test1088_135_small.jpg" title="test1088_135" alt="test1088_135_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_136.html"><img src="test1088_136_small.jpg" title="test1088_136" alt="test1088_136_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_137.html"><img src="test1088_137_small.jpg" title="test1088_137" alt="test1088_137_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_138.html"><img src="test1088_138_small.jpg" title="test1088_138" alt="test1088_138_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_139.html"><img src="test1088_139_small.jpg" title="test1088_139" alt="test1088_139_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_140.html"><img src="test1088_140_small.jpg" title="test1088_140" alt="test1088_140_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_141.html"><img src="test1088_141_small.jpg" title="test1088_141" alt="test1088_141_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_142.html"><img src="test1088_142_small.jpg" title="test1088_142" alt="test1088_142_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_143.html"><img src="test1088_143_small.jpg" title="test1088_143" alt="test1088_143_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_144.html"><img src="test1088_144_small.jpg" title="test1088_144" alt="test1088_144_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_145.html"><img src="test1088_145_small.jpg" title="test1088_145" alt="test1088_145_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_146.html"><img src="test1088_146_small.jpg" title="test1088_146" alt="test1088_146_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_147.html"><img src="test1088_147_small.jpg" title="test1088_147" alt="test1088_147_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_148.html"><img src="test1088_148_small.jpg" title="test1088_148" alt="test1088_148_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_149.html"><img src="test1088_149_small.jpg" title="test1088_149" alt="test1088_149_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_150.html"><img src="test1088_150_small.jpg" title="test1088_150" alt="test1088_150_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_151.html"><img src="test1088_151_small.jpg" title="test1088_151" alt="test1088_151_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_152.html"><img src="test1088_152_small.jpg" title="test1088_152" alt="test1088_152_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_153.html"><img src="test1088_153_small.jpg" title="test1088_153" alt="test1088_153_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_154.html"><img src="test1088_154_small.jpg" title="test1088_154" alt="test1088_154_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_155.html"><img src="test1088_155_small.jpg" title="test1088_155" alt="test1088_155_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_156.html"><img src="test1088_156_small.jpg" title="test1088_156" alt="test1088_156_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_157.html"><img src="test1088_157_small.jpg" title="test1088_157" alt="test1088_157_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_158.html"><img src="test1088_158_small.jpg" title="test1088_158" alt="test1088_158_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_159.html"><img src="test1088_159_small.jpg" title="test1088_159" alt="test1088_159_small.jpg" /></a></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
</tr>
</table>
</div>
<p class="footnote">Photo album created with <a href="http://www.ornj.net/">Web Album Generator</a></p>
</body>
</html>

#62 JosiahK

Forum Regular

Group: Members
Posts: 258
Joined: 05-August 10
Gender:Male

Posted 10 January 2011 - 06:43 PM

I believe that this code does almost what you have asked with regard the IndexX.html files. As always please be sure to test it on unimportant information, especially when possible on a page with 3 index files.

There is one thing that does not seem to be consistent between the two samples you have provided me with and which means the script won't work properly:
in Index there is a space between [1] and <a in the section you need to be removed, appearing as a space between [1] and [2]. In Index2 there is no such space. I cannot remove both of them, at present the script is configured to remove the bit from Index2 without a space.

Dim CFN 'Current Folder Name
Dim CF ' Current Folder, Object
Dim FileNames ' File names in current folder. '
Dim FN ' Name of the file. '
Dim ParseFile ' Entire Contents of HTML file. '
Dim ArraySize : ArraySize = 5 ' Size of PicName arrays.
Dim FakePicName()
Dim RealPicName()
ReDim FakePicName(ArraySize) ' Array of the fake name of the Pictures, used for searching. '
ReDim RealPicName(ArraySize) ' Array of the Real name of the Pictures, used for replacing. '
Dim NumOfPicNames : NumOfPicNames = 1 ' The number of unique image names, ignoring _small '
Dim AllFileNames ' The HTML files that have been processed
Dim CreatedFolder ' Whether the folder thumbs was created.
Dim AllPics ' Records all pictures moved
Dim TS : TS = "_small.jpg" ' The string constant _small.jpg
Dim DelStr ' ornj advert to remove'
DelStr = "<p class="+chr(34)+"footnote"+chr(34)+">Photo album created with <a href="+chr(34)+"http://www.ornj.net/"+chr(34)+">Web Album Generator</a></p>"
Dim IndexCount: IndexCount = 1 ' Variable holding the highest X for files IndexX.html

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Get Current Folder '
ScriptPath = Wscript.ScriptFullName
Set objScriptPath = objFSO.GetFile(ScriptPath)
CFN = objFSO.GetParentFolderName(objscriptPath)

' Find the number of IndexX.html files.
Do
NextIndex = true
If objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".html") or objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".htm") then
IndexCount = IndexCount + 1
else
NextIndex = false
end if 
Loop until NextIndex = false


' Work through HTML files '
Set CF = objFSO.GetFolder(CFN)
Set files = CF.Files
For each objFile In files
FN = objFile.name
If Lcase(right(FN,4)) = ".htm" or lcase(right(FN,5)) = ".html" then
If objFile.size > 0 then
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & FN, 1) ' Reads contents of file into string parsefile '
  ParseFile = objReadFile.ReadAll
  objReadFile.Close

  ClearET()
  If IndexCount > 1 and Lcase(FN) = "index.html" then ExtendIndex()
  If IndexCount > 1 then ResetIndexLinks()
  PopulatePicNames()
  SortPicNames()
  HunterSeeeker()
  EvacuateThumbs()
  KillText(delstr)
  BurnToDisk()
  If Not Lcase(FN) = "index.html" then RenameFile()
  Clean()
  AllFileNames = AllFileNames & vbCrLf & FN
end if
end if
Next

' Creates Thumbs folder if it doesn't already exist
If Not objFSO.FolderExists(CFN & "\thumbs") Then
   Set newfolder = objFSO.CreateFolder(CFN & "\thumbs")
   CreatedFolder = "Created Folder: True"
Else
   CreatedFolder = "Created Folder: False"
End If

' Second loop moves thumbnails if necessary'
For each objFile In files
FN = objFile.name
If Lcase(right(FN,10)) = TS then
        objFSO.MoveFile CFN & "\" & FN, CFN & "\thumbs\"
        AllPics = AllPics & vbCrLf & FN
end if
Next

MsgBox "File Parse Complete:" & vbCrLf & AllFileNames & vbCrLf & CreatedFolder & vbCrLf & AllPics
Wscript.quit






' Start of Subroutines '

Public Sub ExtendIndex()
  
'Read in IndexX pages  

Dim IndexXFile ' Text of the Index file being processed
Dim TableStartPos ' Location of the end of <table>
Dim TableEndPos ' Location of the start of </table>
Dim TableContents ' Text between <table> and </table>
For X = 2 to IndexCount ' Run through each index file
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & "index"&X&".html", 1) ' Reads contents of file into string parsefile '
  IndexXFile = objReadFile.ReadAll ' Read in text 
  objReadFile.Close
  
  TableStartPos = Instr(1, IndexXFile, "<table>")
  If TableStartPos > 0 then
  TableStartPos = TableStartPos + 9
  else
  MsgBox "<Table> Tag not found in index file. Aborting Parsing Index Files"
  exit sub
  end if 
  
  TableEndPos = Instr(TableStartPos, IndexXFile, "</table>")
  If TableEndPos > 0 then
  TableEndPos = TableEndPos - 1
  else
  MsgBox "</Table> Tag not found in index file. Aborting Parsing Index Files"
  exit sub
  end if 
  TableContents = mid(IndexXFile, TableStartPos, TableEndPos - TableStartPos)
  
  
  IndexEndTablePos = Instr(1, ParseFile, "</table>") ' Find location to instert TableContents
  ParseFile = left(ParseFile, IndexEndTablePos - 1) & TableContents & vbCrLf & Right(ParseFile, len(ParseFile) - IndexEndTablePos + 1)
  
Next

' Delete additional Index Pages
For X = 2 to IndexCount
set DelIndex = objFSO.GetFile(CFN & "\index" & cstr(X) & ".html")
DelIndex.Delete
Next 

'remove the link to later index pages
For Y = 1 to IndexCount
  Dim DelStr2 ' Index2 link
  DelStr2 = "<tr>"&vbCrLf&"<td colspan="&chr(34)&"6"&chr(34)&"><div class="&chr(34)&"pages"&chr(34)&">Page: " 
  For X = 1 to IndexCount
  if not X = Y then 
    If X > 1 then 
      DelStr2 = DelStr2 & "<a href="&chr(34)&"index"&X&".html"&chr(34)&" title="&chr(34)&"Jump to index page "&X&""&chr(34)&">["&X&"]</a>"
    else
	  DelStr2 = DelStr2 & "<a href="&chr(34)&"index.html"&chr(34)&" title="&chr(34)&"Jump to index page "&X&""&chr(34)&">["&X&"]</a>"
    end if 	
  else
  DelStr2 = DelStr2 & "["&X&"]"
  end if 
  Next
  DelStr2 = DelStr2 & "</div></td>" & vbCrLf & "</tr>"
  KillText(DelStr2)
Next

End Sub


Public Sub ResetIndexLinks()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = Indexcount to 2 step - 1
        Searchterm = "index" & cstr(X) & ".htm"
        Replaceterm = "index.htm"
      CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
            CHSp = CHSp + len(ReplaceTerm)
          end if
      Loop until CHSp = -1
  Next
end sub

Public Sub ClearEt()
  Dim WrongEtStr : WrongEtStr = "&amp;"
  Dim EtSp : EtSp = 1 ' Et Start point 
  Do
  EtSp = Instr(EtSp, ParseFile, WrongEtStr) - 1
  If not EtSp = -1 then 
    ParseFile = left(ParseFile, EtSP) & "&" & Right(ParseFile, Len(ParseFile) - EtSp - 5)
  End if
  Loop until EtSp = -1
End Sub

Public Sub PopulatePicNames()
  Dim ISp: ISp = 1 ' Image Start Position '
  Dim IEp ' Image End Position '
  Dim LIEp: LIEp = 1 ' Last Image End Position '
  Dim FPN ' Temporary holder Fake picture name, check that it isn't already in the array '
  Dim RPN ' Temporary holder Real picture name, check that it isn't already in the array '

  Do
  ' Get image text '
  ISp = Instr(LIEp, ParseFile, "<img")
  If ISp > 0 then
  IEp = Instr(ISp, ParseFile, ".jpg" & chr(34) & " />") + 8
  LIEp = IEp + 1
  ImageText = mid(ParseFile, ISp, IEp-ISp)

  ' extract Fake and Real names from Image text '
  FPN = FindFN(ImageText)
  RPN = FindRN(ImageText)

  AlreadyHasFPN = False
  AlreadyHasRPN = False
  If NumOfPicNames > 1 then
    For X = 1 to NumOfPicNames - 1
      If FPN = FakePicName(X) then AlreadyHasFPN = True
          If RPN = RealPicName(X) then AlreadyHasRPN = True
    Next
  End if

  IncNOPN = 0 ' A test that both are unique, or neither. '
  If not AlreadyHasFPN then FakePicName(NumOfPicNames) = FPN : IncNOPN = 1
  If not AlreadyHasRPN then RealPicName(NumOfPicNames) = RPN : IncNOPN = IncNOPN + 1
  If IncNOPN = 2 then NumOfPicNames = NumOfPicNames + 1
  If IncNOPN = 1 then Housten()
  If NumOfPicNames = ArraySize then
    ArraySize = ArraySize * 2
        ReDim preserve FakePicName(ArraySize)
    ReDim preserve RealPicName(ArraySize)
  end if 
  End if
  Loop until ISp = 0
  NumOfPicNames = NumOfPicNames - 1
End Sub

Public Sub SortPicNames() ' Aranges pic names longest first, to avoid replacing Photo1 with the name associated with Photo. '
For X = 1 to NumOfPicNames - 1
  For Y = 1 to NumOfPicNames - X
    If Len(FakePicName(Y)) < Len(FakePicName(Y+1)) then
      SortTemp = FakePicName(Y+1)
      FakePicName(Y+1) = FakePicName(Y)
      FakePicName(Y) = SortTemp
          SortTemp = RealPicName(Y+1)
          RealPicName(Y+1) = RealPicName(Y)
      RealPicName(Y) = SortTemp
    end if
  Next
Next
End sub

Public Sub HunterSeeeker()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = 1 to NumOfPicNames
    For SearchCase = 1 to 3
        Select Case SearchCase
        Case 1
        Searchterm = chr(34) & FakePicName(X) & ".jpg"
        Replaceterm = chr(34) & RealPicName(X) & ".jpg"
        Case 2
        Searchterm = chr(34) & FakePicName(X) & "_small.jpg"
        Replaceterm = chr(34) & RealPicName(X) & "_small.jpg"
        Case 3
        Searchterm = chr(34) & FakePicName(X) & ".htm"
        Replaceterm = chr(34) & RealPicName(X) & ".htm"
                end select
    CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
          CHSp = CHSp + len(ReplaceTerm)
            end if
      Loop until CHSp = -1
    Next
  Next
End Sub

Public Sub EvacuateThumbs()
Dim FS ' Numeric location of the string TS in UnParsedFile'
Dim FQ ' Numeric Location of the quote mark " before _small.jpg.'
Dim LFS ' Last location of the end of the last TS found'
LFS = 1
  Do
    FS = Instr(LFS, ParseFile, TS)
    If FS > 0 then
      FQ = FS
      Do
        FQ = FQ - 1
      Loop until mid(ParseFile, FQ, 5) = "src=" + CHR(34)
      FQ = FQ + 4
      If not mid(Parsefile, FQ+1,7) = "thumbs\" then
        ParseFile = left(ParseFile, FQ) & "thumbs\" & right(ParseFile, len(ParseFile) - FQ)
      end if
      LFS = FS + 7
    end if
  Loop until FS = 0
End Sub

Public Sub KillText(TextToRemove)

Dim FQ ' Numeric Location of the start of DelStr.'
  Do
    FQ = Instr(1, ParseFile, TextToRemove)
    If FQ > 0 then
      If len(ParseFile) > FQ + Len(TextToRemove) then
        ParseFile = left(ParseFile, FQ - 1) & Right(Parsefile,len(ParseFile) - FQ - Len(TextToRemove) - 1)
      else
        ParseFile = left(ParseFile, FQ - 1)
      end if
    end if
  Loop until FQ = 0
End Sub

Public Sub BurnToDisk()
  Set objFile = objFSO.OpenTextFile(CFN & "\" & FN, 2, True)
  objFile.writeline(ParseFile)
  objFile.close
End Sub

Public Sub RenameFile()
Dim RealFileName ' Value from within <Title> element '
Dim FFN : FFN = left(FN, instr(1, lcase(FN), ".htm") - 1 ) ' Fake File Name, the name of the picture matching this HTML file '
  RealFileName = FindRFN(ParseFile)
  if Lcase(right(FN, 5)) = ".html" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".html"
  if Lcase(right(FN, 4)) = ".htm" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".htm"
  if objFSO.FileExists(CFN & "\thumbs\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\thumbs\" & FFN & "_small.jpg" , CFN & "\thumbs\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\" & FFN & "_small.jpg", CFN & "\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & ".jpg") Then objFSO.moveFile CFN & "\" & FFN & ".jpg" , CFN & "\" & RealFileName & ".jpg"
End Sub

public function FindRN(Img) ' Find the real name of an image from the title attribute '
  Dim RN ' Real name '
  Dim RNSp : RNSp = 1 ' Real Name Start Position, location of the " before the real name of the picture. '
  Dim RNEp : RNEp = 1 ' Real Name End Position, location of the " after the real name of the picture. '

  RNSp = Instr(1, Img, "title=") + 7
  RNEp = RNSp
  Do
    RNEp = RNEp + 1
  loop until mid(img, RNEp, 1) = chr(34)
  RN = mid(img,RNSp, RNEp - RNSp)
  FindRN = RN
End function

public function FindFN(Img) ' Find the Fake name of an image from the title attribute '
  Dim FN ' Fake name '
  Dim FNSp : FNSp = 1 ' Fake Name Start Position, location of the " before the fake name of the picture. '
  Dim FNEp : FNEp = 1 ' Fake Name End Position, location of the " after the fake name of the picture. '

  FNSp = Instr(1, Img, "src=") + 5
  FNEp = Instr(FNSp, Img, "_small.jpg")
  If FNEp = 0 then FNEp = Instr(FNSp, Img, ".jpg")
  FN = mid(img,FNSp, FNEp - FNSp)
  FindFN = FN
End function

Public Function FindRFN(Text) ' Find the preferred name of the html file from the Title '
  Dim RFNSp: RFNSp = Instr(1, Text, "<title>") + 7 ' Real File Name Start Position '
  Dim RFNEp: RFNEp = Instr(RFNSp, Text, "</title>") ' Real File Name End Position '
  RFN = mid(Text, RFNSp, RFNEp - RFNSp)
  FindRFN = RFN
End Function

Public Sub Housten()
  MsgBox "Housten, We have a problem. Coming down to Earth, fast!"
  MSgBox "Partial Picture Identifier match--two pictures share either the same real name of the same fake name but not both."
  Wscript.quit
End sub

Public Sub Clean()
For X = 1 to ArraySize
FakePicName(X) = ""
RealPicName(X) = ""
Next 
NumOfPicNames = 1
Parsefile = ""
Arraysize = 5
ReDim FakePicName(ArraySize)
ReDim RealPicName(ArraySize)
End Sub

This post has been edited by JosiahK: 10 January 2011 - 06:44 PM

Quod non mortiferum, fortiorem me facit.
I don't read minds. Please help everyone by answering any questions and reporting on the results of any instructions. Query any concerns and explain problems or complications.

#63 Stephen W

Member

Group: Members
Posts: 65
Joined: 20-October 07

Posted 11 January 2011 - 05:36 AM

OK, I've run that and the result is pretty good, but as you say, there is a problem with the part I wanted removed. In your explanation you said that the script is configured to removed the bit from index2. However, the html code from both index1 and index2 now appear in the final resulting index file. My suggestion would be to configure it to remove the bit from index1 as that is the file we are keeping, and then cut and paste the code from index2 into index1 but without the bit we are trying to get rid of. I hope that makes sense.
Just to be clear. The bits that need removing from the html code below are:
<tr>
<td colspan="6"><div class="pages">Page:[1] <a href="index.html" title="Jump to index page 2">[2]</a></div></td>
</tr>
which comes from index1 and:
<tr>
<td colspan="6"><div class="pages">Page: <a href="index.html" title="Jump to index page 1">[1]</a>[2]</div></td>
</tr>
which came over from index 2.

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>Untitled Album</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Generator" content="Web Album Generator 1.8.2; http://www.ornj.net/" />
<link rel="stylesheet" type="text/css" href="main.css" />
</head>
<body>
<div id="header">
<h1>Untitled Album</h1>
</div>
<p class="description">Various photographs that I'd like to share on the Web.</p>

<div id="index">
<table>
<tr>
<td class="thumbcell"><a href="test1088_001.html"><img src="thumbs\test1088_001_small.jpg" title="test1088_001" alt="test1088_001_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_002.html"><img src="thumbs\test1088_002_small.jpg" title="test1088_002" alt="test1088_002_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_003.html"><img src="thumbs\test1088_003_small.jpg" title="test1088_003" alt="test1088_003_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_004.html"><img src="thumbs\test1088_004_small.jpg" title="test1088_004" alt="test1088_004_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_005.html"><img src="thumbs\test1088_005_small.jpg" title="test1088_005" alt="test1088_005_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_006.html"><img src="thumbs\test1088_006_small.jpg" title="test1088_006" alt="test1088_006_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_007.html"><img src="thumbs\test1088_007_small.jpg" title="test1088_007" alt="test1088_007_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_008.html"><img src="thumbs\test1088_008_small.jpg" title="test1088_008" alt="test1088_008_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_009.html"><img src="thumbs\test1088_009_small.jpg" title="test1088_009" alt="test1088_009_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_010.html"><img src="thumbs\test1088_010_small.jpg" title="test1088_010" alt="test1088_010_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_011.html"><img src="thumbs\test1088_011_small.jpg" title="test1088_011" alt="test1088_011_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_012.html"><img src="thumbs\test1088_012_small.jpg" title="test1088_012" alt="test1088_012_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_013.html"><img src="thumbs\test1088_013_small.jpg" title="test1088_013" alt="test1088_013_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_014.html"><img src="thumbs\test1088_014_small.jpg" title="test1088_014" alt="test1088_014_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_015.html"><img src="thumbs\test1088_015_small.jpg" title="test1088_015" alt="test1088_015_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_016.html"><img src="thumbs\test1088_016_small.jpg" title="test1088_016" alt="test1088_016_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_017.html"><img src="thumbs\test1088_017_small.jpg" title="test1088_017" alt="test1088_017_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_018.html"><img src="thumbs\test1088_018_small.jpg" title="test1088_018" alt="test1088_018_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_019.html"><img src="thumbs\test1088_019_small.jpg" title="test1088_019" alt="test1088_019_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_020.html"><img src="thumbs\test1088_020_small.jpg" title="test1088_020" alt="test1088_020_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_021.html"><img src="thumbs\test1088_021_small.jpg" title="test1088_021" alt="test1088_021_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_022.html"><img src="thumbs\test1088_022_small.jpg" title="test1088_022" alt="test1088_022_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_023.html"><img src="thumbs\test1088_023_small.jpg" title="test1088_023" alt="test1088_023_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_024.html"><img src="thumbs\test1088_024_small.jpg" title="test1088_024" alt="test1088_024_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_025.html"><img src="thumbs\test1088_025_small.jpg" title="test1088_025" alt="test1088_025_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_026.html"><img src="thumbs\test1088_026_small.jpg" title="test1088_026" alt="test1088_026_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_027.html"><img src="thumbs\test1088_027_small.jpg" title="test1088_027" alt="test1088_027_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_028.html"><img src="thumbs\test1088_028_small.jpg" title="test1088_028" alt="test1088_028_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_029.html"><img src="thumbs\test1088_029_small.jpg" title="test1088_029" alt="test1088_029_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_030.html"><img src="thumbs\test1088_030_small.jpg" title="test1088_030" alt="test1088_030_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_031.html"><img src="thumbs\test1088_031_small.jpg" title="test1088_031" alt="test1088_031_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_032.html"><img src="thumbs\test1088_032_small.jpg" title="test1088_032" alt="test1088_032_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_033.html"><img src="thumbs\test1088_033_small.jpg" title="test1088_033" alt="test1088_033_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_034.html"><img src="thumbs\test1088_034_small.jpg" title="test1088_034" alt="test1088_034_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_035.html"><img src="thumbs\test1088_035_small.jpg" title="test1088_035" alt="test1088_035_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_036.html"><img src="thumbs\test1088_036_small.jpg" title="test1088_036" alt="test1088_036_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_037.html"><img src="thumbs\test1088_037_small.jpg" title="test1088_037" alt="test1088_037_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_038.html"><img src="thumbs\test1088_038_small.jpg" title="test1088_038" alt="test1088_038_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_039.html"><img src="thumbs\test1088_039_small.jpg" title="test1088_039" alt="test1088_039_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_040.html"><img src="thumbs\test1088_040_small.jpg" title="test1088_040" alt="test1088_040_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_041.html"><img src="thumbs\test1088_041_small.jpg" title="test1088_041" alt="test1088_041_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_042.html"><img src="thumbs\test1088_042_small.jpg" title="test1088_042" alt="test1088_042_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_043.html"><img src="thumbs\test1088_043_small.jpg" title="test1088_043" alt="test1088_043_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_044.html"><img src="thumbs\test1088_044_small.jpg" title="test1088_044" alt="test1088_044_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_045.html"><img src="thumbs\test1088_045_small.jpg" title="test1088_045" alt="test1088_045_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_046.html"><img src="thumbs\test1088_046_small.jpg" title="test1088_046" alt="test1088_046_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_047.html"><img src="thumbs\test1088_047_small.jpg" title="test1088_047" alt="test1088_047_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_048.html"><img src="thumbs\test1088_048_small.jpg" title="test1088_048" alt="test1088_048_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_049.html"><img src="thumbs\test1088_049_small.jpg" title="test1088_049" alt="test1088_049_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_050.html"><img src="thumbs\test1088_050_small.jpg" title="test1088_050" alt="test1088_050_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_051.html"><img src="thumbs\test1088_051_small.jpg" title="test1088_051" alt="test1088_051_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_052.html"><img src="thumbs\test1088_052_small.jpg" title="test1088_052" alt="test1088_052_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_053.html"><img src="thumbs\test1088_053_small.jpg" title="test1088_053" alt="test1088_053_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_054.html"><img src="thumbs\test1088_054_small.jpg" title="test1088_054" alt="test1088_054_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_055.html"><img src="thumbs\test1088_055_small.jpg" title="test1088_055" alt="test1088_055_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_056.html"><img src="thumbs\test1088_056_small.jpg" title="test1088_056" alt="test1088_056_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_057.html"><img src="thumbs\test1088_057_small.jpg" title="test1088_057" alt="test1088_057_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_058.html"><img src="thumbs\test1088_058_small.jpg" title="test1088_058" alt="test1088_058_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_059.html"><img src="thumbs\test1088_059_small.jpg" title="test1088_059" alt="test1088_059_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_060.html"><img src="thumbs\test1088_060_small.jpg" title="test1088_060" alt="test1088_060_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_061.html"><img src="thumbs\test1088_061_small.jpg" title="test1088_061" alt="test1088_061_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_062.html"><img src="thumbs\test1088_062_small.jpg" title="test1088_062" alt="test1088_062_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_063.html"><img src="thumbs\test1088_063_small.jpg" title="test1088_063" alt="test1088_063_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_064.html"><img src="thumbs\test1088_064_small.jpg" title="test1088_064" alt="test1088_064_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_065.html"><img src="thumbs\test1088_065_small.jpg" title="test1088_065" alt="test1088_065_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_066.html"><img src="thumbs\test1088_066_small.jpg" title="test1088_066" alt="test1088_066_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_067.html"><img src="thumbs\test1088_067_small.jpg" title="test1088_067" alt="test1088_067_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_068.html"><img src="thumbs\test1088_068_small.jpg" title="test1088_068" alt="test1088_068_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_069.html"><img src="thumbs\test1088_069_small.jpg" title="test1088_069" alt="test1088_069_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_070.html"><img src="thumbs\test1088_070_small.jpg" title="test1088_070" alt="test1088_070_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_071.html"><img src="thumbs\test1088_071_small.jpg" title="test1088_071" alt="test1088_071_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_072.html"><img src="thumbs\test1088_072_small.jpg" title="test1088_072" alt="test1088_072_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_073.html"><img src="thumbs\test1088_073_small.jpg" title="test1088_073" alt="test1088_073_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_074.html"><img src="thumbs\test1088_074_small.jpg" title="test1088_074" alt="test1088_074_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_075.html"><img src="thumbs\test1088_075_small.jpg" title="test1088_075" alt="test1088_075_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_076.html"><img src="thumbs\test1088_076_small.jpg" title="test1088_076" alt="test1088_076_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_077.html"><img src="thumbs\test1088_077_small.jpg" title="test1088_077" alt="test1088_077_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_078.html"><img src="thumbs\test1088_078_small.jpg" title="test1088_078" alt="test1088_078_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_079.html"><img src="thumbs\test1088_079_small.jpg" title="test1088_079" alt="test1088_079_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_080.html"><img src="thumbs\test1088_080_small.jpg" title="test1088_080" alt="test1088_080_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_081.html"><img src="thumbs\test1088_081_small.jpg" title="test1088_081" alt="test1088_081_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_082.html"><img src="thumbs\test1088_082_small.jpg" title="test1088_082" alt="test1088_082_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_083.html"><img src="thumbs\test1088_083_small.jpg" title="test1088_083" alt="test1088_083_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_084.html"><img src="thumbs\test1088_084_small.jpg" title="test1088_084" alt="test1088_084_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_085.html"><img src="thumbs\test1088_085_small.jpg" title="test1088_085" alt="test1088_085_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_086.html"><img src="thumbs\test1088_086_small.jpg" title="test1088_086" alt="test1088_086_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_087.html"><img src="thumbs\test1088_087_small.jpg" title="test1088_087" alt="test1088_087_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_088.html"><img src="thumbs\test1088_088_small.jpg" title="test1088_088" alt="test1088_088_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_089.html"><img src="thumbs\test1088_089_small.jpg" title="test1088_089" alt="test1088_089_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_090.html"><img src="thumbs\test1088_090_small.jpg" title="test1088_090" alt="test1088_090_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_091.html"><img src="thumbs\test1088_091_small.jpg" title="test1088_091" alt="test1088_091_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_092.html"><img src="thumbs\test1088_092_small.jpg" title="test1088_092" alt="test1088_092_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_093.html"><img src="thumbs\test1088_093_small.jpg" title="test1088_093" alt="test1088_093_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_094.html"><img src="thumbs\test1088_094_small.jpg" title="test1088_094" alt="test1088_094_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_095.html"><img src="thumbs\test1088_095_small.jpg" title="test1088_095" alt="test1088_095_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_096.html"><img src="thumbs\test1088_096_small.jpg" title="test1088_096" alt="test1088_096_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_097.html"><img src="thumbs\test1088_097_small.jpg" title="test1088_097" alt="test1088_097_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_098.html"><img src="thumbs\test1088_098_small.jpg" title="test1088_098" alt="test1088_098_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_099.html"><img src="thumbs\test1088_099_small.jpg" title="test1088_099" alt="test1088_099_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_100.html"><img src="thumbs\test1088_100_small.jpg" title="test1088_100" alt="test1088_100_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_101.html"><img src="thumbs\test1088_101_small.jpg" title="test1088_101" alt="test1088_101_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_102.html"><img src="thumbs\test1088_102_small.jpg" title="test1088_102" alt="test1088_102_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_103.html"><img src="thumbs\test1088_103_small.jpg" title="test1088_103" alt="test1088_103_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_104.html"><img src="thumbs\test1088_104_small.jpg" title="test1088_104" alt="test1088_104_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_105.html"><img src="thumbs\test1088_105_small.jpg" title="test1088_105" alt="test1088_105_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_106.html"><img src="thumbs\test1088_106_small.jpg" title="test1088_106" alt="test1088_106_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_107.html"><img src="thumbs\test1088_107_small.jpg" title="test1088_107" alt="test1088_107_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_108.html"><img src="thumbs\test1088_108_small.jpg" title="test1088_108" alt="test1088_108_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_109.html"><img src="thumbs\test1088_109_small.jpg" title="test1088_109" alt="test1088_109_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_110.html"><img src="thumbs\test1088_110_small.jpg" title="test1088_110" alt="test1088_110_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_111.html"><img src="thumbs\test1088_111_small.jpg" title="test1088_111" alt="test1088_111_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_112.html"><img src="thumbs\test1088_112_small.jpg" title="test1088_112" alt="test1088_112_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_113.html"><img src="thumbs\test1088_113_small.jpg" title="test1088_113" alt="test1088_113_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_114.html"><img src="thumbs\test1088_114_small.jpg" title="test1088_114" alt="test1088_114_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_115.html"><img src="thumbs\test1088_115_small.jpg" title="test1088_115" alt="test1088_115_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_116.html"><img src="thumbs\test1088_116_small.jpg" title="test1088_116" alt="test1088_116_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_117.html"><img src="thumbs\test1088_117_small.jpg" title="test1088_117" alt="test1088_117_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_118.html"><img src="thumbs\test1088_118_small.jpg" title="test1088_118" alt="test1088_118_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_119.html"><img src="thumbs\test1088_119_small.jpg" title="test1088_119" alt="test1088_119_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_120.html"><img src="thumbs\test1088_120_small.jpg" title="test1088_120" alt="test1088_120_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_121.html"><img src="thumbs\test1088_121_small.jpg" title="test1088_121" alt="test1088_121_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_122.html"><img src="thumbs\test1088_122_small.jpg" title="test1088_122" alt="test1088_122_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_123.html"><img src="thumbs\test1088_123_small.jpg" title="test1088_123" alt="test1088_123_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_124.html"><img src="thumbs\test1088_124_small.jpg" title="test1088_124" alt="test1088_124_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_125.html"><img src="thumbs\test1088_125_small.jpg" title="test1088_125" alt="test1088_125_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_126.html"><img src="thumbs\test1088_126_small.jpg" title="test1088_126" alt="test1088_126_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_127.html"><img src="thumbs\test1088_127_small.jpg" title="test1088_127" alt="test1088_127_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_128.html"><img src="thumbs\test1088_128_small.jpg" title="test1088_128" alt="test1088_128_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_129.html"><img src="thumbs\test1088_129_small.jpg" title="test1088_129" alt="test1088_129_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_130.html"><img src="thumbs\test1088_130_small.jpg" title="test1088_130" alt="test1088_130_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_131.html"><img src="thumbs\test1088_131_small.jpg" title="test1088_131" alt="test1088_131_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_132.html"><img src="thumbs\test1088_132_small.jpg" title="test1088_132" alt="test1088_132_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_133.html"><img src="thumbs\test1088_133_small.jpg" title="test1088_133" alt="test1088_133_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_134.html"><img src="thumbs\test1088_134_small.jpg" title="test1088_134" alt="test1088_134_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_135.html"><img src="thumbs\test1088_135_small.jpg" title="test1088_135" alt="test1088_135_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_136.html"><img src="thumbs\test1088_136_small.jpg" title="test1088_136" alt="test1088_136_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_137.html"><img src="thumbs\test1088_137_small.jpg" title="test1088_137" alt="test1088_137_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_138.html"><img src="thumbs\test1088_138_small.jpg" title="test1088_138" alt="test1088_138_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_139.html"><img src="thumbs\test1088_139_small.jpg" title="test1088_139" alt="test1088_139_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_140.html"><img src="thumbs\test1088_140_small.jpg" title="test1088_140" alt="test1088_140_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_141.html"><img src="thumbs\test1088_141_small.jpg" title="test1088_141" alt="test1088_141_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_142.html"><img src="thumbs\test1088_142_small.jpg" title="test1088_142" alt="test1088_142_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_143.html"><img src="thumbs\test1088_143_small.jpg" title="test1088_143" alt="test1088_143_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_144.html"><img src="thumbs\test1088_144_small.jpg" title="test1088_144" alt="test1088_144_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_145.html"><img src="thumbs\test1088_145_small.jpg" title="test1088_145" alt="test1088_145_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_146.html"><img src="thumbs\test1088_146_small.jpg" title="test1088_146" alt="test1088_146_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_147.html"><img src="thumbs\test1088_147_small.jpg" title="test1088_147" alt="test1088_147_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_148.html"><img src="thumbs\test1088_148_small.jpg" title="test1088_148" alt="test1088_148_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_149.html"><img src="thumbs\test1088_149_small.jpg" title="test1088_149" alt="test1088_149_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_150.html"><img src="thumbs\test1088_150_small.jpg" title="test1088_150" alt="test1088_150_small.jpg" /></a></td>
</tr>
<tr>
<td colspan="6"><div class="pages">Page:[1] <a href="index.html" title="Jump to index page 2">[2]</a></div></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_151.html"><img src="thumbs\test1088_151_small.jpg" title="test1088_151" alt="test1088_151_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_152.html"><img src="thumbs\test1088_152_small.jpg" title="test1088_152" alt="test1088_152_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_153.html"><img src="thumbs\test1088_153_small.jpg" title="test1088_153" alt="test1088_153_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_154.html"><img src="thumbs\test1088_154_small.jpg" title="test1088_154" alt="test1088_154_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_155.html"><img src="thumbs\test1088_155_small.jpg" title="test1088_155" alt="test1088_155_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_156.html"><img src="thumbs\test1088_156_small.jpg" title="test1088_156" alt="test1088_156_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="test1088_157.html"><img src="thumbs\test1088_157_small.jpg" title="test1088_157" alt="test1088_157_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_158.html"><img src="thumbs\test1088_158_small.jpg" title="test1088_158" alt="test1088_158_small.jpg" /></a></td>
<td class="thumbcell"><a href="test1088_159.html"><img src="thumbs\test1088_159_small.jpg" title="test1088_159" alt="test1088_159_small.jpg" /></a></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
</tr>
<tr>
<td colspan="6"><div class="pages">Page: <a href="index.html" title="Jump to index page 1">[1]</a>[2]</div></td>
</tr>

</table>
</div>
</body>
</html>

#64 JosiahK

Forum Regular

Group: Members
Posts: 258
Joined: 05-August 10
Gender:Male

Posted 11 January 2011 - 04:00 PM

See how this works out.

Dim CFN 'Current Folder Name
Dim CF ' Current Folder, Object
Dim FileNames ' File names in current folder. '
Dim FN ' Name of the file. '
Dim ParseFile ' Entire Contents of HTML file. '
Dim ArraySize : ArraySize = 5 ' Size of PicName arrays.
Dim FakePicName()
Dim RealPicName()
ReDim FakePicName(ArraySize) ' Array of the fake name of the Pictures, used for searching. '
ReDim RealPicName(ArraySize) ' Array of the Real name of the Pictures, used for replacing. '
Dim NumOfPicNames : NumOfPicNames = 1 ' The number of unique image names, ignoring _small '
Dim AllFileNames ' The HTML files that have been processed
Dim CreatedFolder ' Whether the folder thumbs was created.
Dim AllPics ' Records all pictures moved
Dim TS : TS = "_small.jpg" ' The string constant _small.jpg
Dim DelStr ' ornj advert to remove'
DelStr = "<p class="+chr(34)+"footnote"+chr(34)+">Photo album created with <a href="+chr(34)+"http://www.ornj.net/"+chr(34)+">Web Album Generator</a></p>"
Dim IndexCount: IndexCount = 1 ' Variable holding the highest X for files IndexX.html

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Get Current Folder '
ScriptPath = Wscript.ScriptFullName
Set objScriptPath = objFSO.GetFile(ScriptPath)
CFN = objFSO.GetParentFolderName(objscriptPath)

' Find the number of IndexX.html files.
Do
NextIndex = true
If objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".html") or objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".htm") then
IndexCount = IndexCount + 1
else
NextIndex = false
end if 
Loop until NextIndex = false


' Work through HTML files '
Set CF = objFSO.GetFolder(CFN)
Set files = CF.Files
For each objFile In files
FN = objFile.name
If Lcase(right(FN,4)) = ".htm" or lcase(right(FN,5)) = ".html" then
If objFile.size > 0 then
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & FN, 1) ' Reads contents of file into string parsefile '
  ParseFile = objReadFile.ReadAll
  objReadFile.Close

  ClearET()
  If IndexCount > 1 and Lcase(FN) = "index.html" then ExtendIndex()
  If IndexCount > 1 then ResetIndexLinks()
  PopulatePicNames()
  SortPicNames()
  HunterSeeeker()
  EvacuateThumbs()
  KillText(delstr)
  BurnToDisk()
  If Not Lcase(FN) = "index.html" then RenameFile()
  Clean()
  AllFileNames = AllFileNames & vbCrLf & FN
end if
end if
Next

' Creates Thumbs folder if it doesn't already exist
If Not objFSO.FolderExists(CFN & "\thumbs") Then
   Set newfolder = objFSO.CreateFolder(CFN & "\thumbs")
   CreatedFolder = "Created Folder: True"
Else
   CreatedFolder = "Created Folder: False"
End If

' Second loop moves thumbnails if necessary'
For each objFile In files
FN = objFile.name
If Lcase(right(FN,10)) = TS then
        objFSO.MoveFile CFN & "\" & FN, CFN & "\thumbs\"
        AllPics = AllPics & vbCrLf & FN
end if
Next

MsgBox "File Parse Complete:" & vbCrLf & AllFileNames & vbCrLf & CreatedFolder & vbCrLf & AllPics
Wscript.quit






' Start of Subroutines '

Public Sub ExtendIndex()
  
'Read in IndexX pages  

Dim IndexXFile ' Text of the Index file being processed
Dim TableStartPos ' Location of the end of <table>
Dim TableEndPos ' Location of the start of </table>
Dim TableContents ' Text between <table> and </table>
For X = 2 to IndexCount ' Run through each index file
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & "index"&X&".html", 1) ' Reads contents of file into string parsefile '
  IndexXFile = objReadFile.ReadAll ' Read in text 
  objReadFile.Close
  
  TableStartPos = Instr(1, IndexXFile, "<table>")
  If TableStartPos > 0 then
  TableStartPos = TableStartPos + 9
  else
  MsgBox "<Table> Tag not found in index file. Aborting Parsing Index Files"
  exit sub
  end if 
  
  TableEndPos = Instr(TableStartPos, IndexXFile, "<tr>"&vbCrLf&"<td colspan="&chr(34)&"6"&chr(34)&"><div class="&chr(34)&"pages"&chr(34)&">Page:")
  TableEndPos = TableEndPos - 1
  TableContents = mid(IndexXFile, TableStartPos, TableEndPos - TableStartPos)
  
  
  IndexEndTablePos = Instr(1, ParseFile, "</table>") ' Find location to instert TableContents
  ParseFile = left(ParseFile, IndexEndTablePos - 1) & TableContents & vbCrLf & Right(ParseFile, len(ParseFile) - IndexEndTablePos + 1)
  
Next

' Delete additional Index Pages
For X = 2 to IndexCount
set DelIndex = objFSO.GetFile(CFN & "\index" & cstr(X) & ".html")
DelIndex.Delete
Next 

'remove the link to later index pages

LinkStartPos = Instr(1, parsefile, "<tr>"&vbCrLf&"<td colspan="&chr(34)&"6"&chr(34)&"><div class="&chr(34)&"pages"&chr(34)&">Page:")
LinkEndPos = Instr(LinkStartPos, Parsefile, "</tr>")
Parsefile = Left(Parsefile, LinkStartPos - 1) + Right(ParseFile, Len(parsefile) - LinkEndPos - 6)

End Sub


Public Sub ResetIndexLinks()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = Indexcount to 2 step - 1
        Searchterm = "index" & cstr(X) & ".htm"
        Replaceterm = "index.htm"
      CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
            CHSp = CHSp + len(ReplaceTerm)
          end if
      Loop until CHSp = -1
  Next
end sub

Public Sub ClearEt()
  Dim WrongEtStr : WrongEtStr = "&amp;"
  Dim EtSp : EtSp = 1 ' Et Start point 
  Do
  EtSp = Instr(EtSp, ParseFile, WrongEtStr) - 1
  If not EtSp = -1 then 
    ParseFile = left(ParseFile, EtSP) & "&" & Right(ParseFile, Len(ParseFile) - EtSp - 5)
  End if
  Loop until EtSp = -1
End Sub

Public Sub PopulatePicNames()
  Dim ISp: ISp = 1 ' Image Start Position '
  Dim IEp ' Image End Position '
  Dim LIEp: LIEp = 1 ' Last Image End Position '
  Dim FPN ' Temporary holder Fake picture name, check that it isn't already in the array '
  Dim RPN ' Temporary holder Real picture name, check that it isn't already in the array '

  Do
  ' Get image text '
  ISp = Instr(LIEp, ParseFile, "<img")
  If ISp > 0 then
  IEp = Instr(ISp, ParseFile, ".jpg" & chr(34) & " />") + 8
  LIEp = IEp + 1
  ImageText = mid(ParseFile, ISp, IEp-ISp)

  ' extract Fake and Real names from Image text '
  FPN = FindFN(ImageText)
  RPN = FindRN(ImageText)

  AlreadyHasFPN = False
  AlreadyHasRPN = False
  If NumOfPicNames > 1 then
    For X = 1 to NumOfPicNames - 1
      If FPN = FakePicName(X) then AlreadyHasFPN = True
          If RPN = RealPicName(X) then AlreadyHasRPN = True
    Next
  End if

  IncNOPN = 0 ' A test that both are unique, or neither. '
  If not AlreadyHasFPN then FakePicName(NumOfPicNames) = FPN : IncNOPN = 1
  If not AlreadyHasRPN then RealPicName(NumOfPicNames) = RPN : IncNOPN = IncNOPN + 1
  If IncNOPN = 2 then NumOfPicNames = NumOfPicNames + 1
  If IncNOPN = 1 then Housten()
  If NumOfPicNames = ArraySize then
    ArraySize = ArraySize * 2
        ReDim preserve FakePicName(ArraySize)
    ReDim preserve RealPicName(ArraySize)
  end if 
  End if
  Loop until ISp = 0
  NumOfPicNames = NumOfPicNames - 1
End Sub

Public Sub SortPicNames() ' Aranges pic names longest first, to avoid replacing Photo1 with the name associated with Photo. '
For X = 1 to NumOfPicNames - 1
  For Y = 1 to NumOfPicNames - X
    If Len(FakePicName(Y)) < Len(FakePicName(Y+1)) then
      SortTemp = FakePicName(Y+1)
      FakePicName(Y+1) = FakePicName(Y)
      FakePicName(Y) = SortTemp
          SortTemp = RealPicName(Y+1)
          RealPicName(Y+1) = RealPicName(Y)
      RealPicName(Y) = SortTemp
    end if
  Next
Next
End sub

Public Sub HunterSeeeker()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = 1 to NumOfPicNames
    For SearchCase = 1 to 3
        Select Case SearchCase
        Case 1
        Searchterm = chr(34) & FakePicName(X) & ".jpg"
        Replaceterm = chr(34) & RealPicName(X) & ".jpg"
        Case 2
        Searchterm = chr(34) & FakePicName(X) & "_small.jpg"
        Replaceterm = chr(34) & RealPicName(X) & "_small.jpg"
        Case 3
        Searchterm = chr(34) & FakePicName(X) & ".htm"
        Replaceterm = chr(34) & RealPicName(X) & ".htm"
                end select
    CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
          CHSp = CHSp + len(ReplaceTerm)
            end if
      Loop until CHSp = -1
    Next
  Next
End Sub

Public Sub EvacuateThumbs()
Dim FS ' Numeric location of the string TS in UnParsedFile'
Dim FQ ' Numeric Location of the quote mark " before _small.jpg.'
Dim LFS ' Last location of the end of the last TS found'
LFS = 1
  Do
    FS = Instr(LFS, ParseFile, TS)
    If FS > 0 then
      FQ = FS
      Do
        FQ = FQ - 1
      Loop until mid(ParseFile, FQ, 5) = "src=" + CHR(34)
      FQ = FQ + 4
      If not mid(Parsefile, FQ+1,7) = "thumbs\" then
        ParseFile = left(ParseFile, FQ) & "thumbs\" & right(ParseFile, len(ParseFile) - FQ)
      end if
      LFS = FS + 7
    end if
  Loop until FS = 0
End Sub

Public Sub KillText(TextToRemove)

Dim FQ ' Numeric Location of the start of DelStr.'
  Do
    FQ = Instr(1, ParseFile, TextToRemove)
    If FQ > 0 then
      If len(ParseFile) > FQ + Len(TextToRemove) then
        ParseFile = left(ParseFile, FQ - 1) & Right(Parsefile,len(ParseFile) - FQ - Len(TextToRemove) - 1)
      else
        ParseFile = left(ParseFile, FQ - 1)
      end if
    end if
  Loop until FQ = 0
End Sub

Public Sub BurnToDisk()
  Set objFile = objFSO.OpenTextFile(CFN & "\" & FN, 2, True)
  objFile.writeline(ParseFile)
  objFile.close
End Sub

Public Sub RenameFile()
Dim RealFileName ' Value from within <Title> element '
Dim FFN : FFN = left(FN, instr(1, lcase(FN), ".htm") - 1 ) ' Fake File Name, the name of the picture matching this HTML file '
  RealFileName = FindRFN(ParseFile)
  if Lcase(right(FN, 5)) = ".html" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".html"
  if Lcase(right(FN, 4)) = ".htm" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".htm"
  if objFSO.FileExists(CFN & "\thumbs\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\thumbs\" & FFN & "_small.jpg" , CFN & "\thumbs\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\" & FFN & "_small.jpg", CFN & "\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & ".jpg") Then objFSO.moveFile CFN & "\" & FFN & ".jpg" , CFN & "\" & RealFileName & ".jpg"
End Sub

public function FindRN(Img) ' Find the real name of an image from the title attribute '
  Dim RN ' Real name '
  Dim RNSp : RNSp = 1 ' Real Name Start Position, location of the " before the real name of the picture. '
  Dim RNEp : RNEp = 1 ' Real Name End Position, location of the " after the real name of the picture. '

  RNSp = Instr(1, Img, "title=") + 7
  RNEp = RNSp
  Do
    RNEp = RNEp + 1
  loop until mid(img, RNEp, 1) = chr(34)
  RN = mid(img,RNSp, RNEp - RNSp)
  FindRN = RN
End function

public function FindFN(Img) ' Find the Fake name of an image from the title attribute '
  Dim FN ' Fake name '
  Dim FNSp : FNSp = 1 ' Fake Name Start Position, location of the " before the fake name of the picture. '
  Dim FNEp : FNEp = 1 ' Fake Name End Position, location of the " after the fake name of the picture. '

  FNSp = Instr(1, Img, "src=") + 5
  FNEp = Instr(FNSp, Img, "_small.jpg")
  If FNEp = 0 then FNEp = Instr(FNSp, Img, ".jpg")
  FN = mid(img,FNSp, FNEp - FNSp)
  FindFN = FN
End function

Public Function FindRFN(Text) ' Find the preferred name of the html file from the Title '
  Dim RFNSp: RFNSp = Instr(1, Text, "<title>") + 7 ' Real File Name Start Position '
  Dim RFNEp: RFNEp = Instr(RFNSp, Text, "</title>") ' Real File Name End Position '
  RFN = mid(Text, RFNSp, RFNEp - RFNSp)
  FindRFN = RFN
End Function

Public Sub Housten()
  MsgBox "Housten, We have a problem. Coming down to Earth, fast!"
  MSgBox "Partial Picture Identifier match--two pictures share either the same real name of the same fake name but not both."
  Wscript.quit
End sub

Public Sub Clean()
For X = 1 to ArraySize
FakePicName(X) = ""
RealPicName(X) = ""
Next 
NumOfPicNames = 1
Parsefile = ""
Arraysize = 5
ReDim FakePicName(ArraySize)
ReDim RealPicName(ArraySize)
End Sub

#65 Stephen W

Member

Group: Members
Posts: 65
Joined: 20-October 07

Posted 12 January 2011 - 06:20 AM

Hi Josiah. When I tried to run the latest version I just got the following error:

Script: H:\VBStestarea\UntitledAlbum - Copy\combined5.vbs
Line: 115
Char: 3
Error: Invalid procedure call or argument: 'mid'
Code: 800A0005
Source: Microsoft VBScript runtime error

That appears to be something to do with the following line of code:
TableContents = mid(IndexXFile, TableStartPos, TableEndPos - TableStartPos)

I'd appreciate if you could take a look at it and get back to me.
Thanks
Steve

#66 JosiahK

Forum Regular

Group: Members
Posts: 258
Joined: 05-August 10
Gender:Male

Posted 12 January 2011 - 11:38 AM

I ran it on the samples you provided and it works as anticipated.
I can't do anything else without the sample that caused the crash, which would be index2.html.

#67 Stephen W

Member

Group: Members
Posts: 65
Joined: 20-October 07

Posted 12 January 2011 - 11:54 AM

Would it definately be the index2.html file causing the issue? I'm testing the code on the same thing that I posted here for you. I will try another example and see if the same thing happens, or maybe I need to send you the html files. I don't think I can attach files on here can I?

#68 Stephen W

Member

Group: Members
Posts: 65
Joined: 20-October 07

Posted 12 January 2011 - 12:01 PM

I've tried an example with 3 index files but am getting the same error when I try to run it. I will copy and paste the html code of the 3 index files below for you to try. If you find no issue, perhaps you can give me an email address to send you the html files?

Here is index.html:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>Jamietest</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Generator" content="Web Album Generator 1.8.2; http://www.ornj.net/" />
<link rel="stylesheet" type="text/css" href="main.css" />
</head>
<body>
<div id="header">
<h1>Jamietest</h1>
</div>
<p class="description">Various photographs that I'd like to share on the Web.</p>

<div id="index">
<table>
<tr>
<td class="thumbcell"><a href="p1260113.html"><img src="p1260113_small.jpg" title="P1260113" alt="p1260113_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1260114.html"><img src="p1260114_small.jpg" title="P1260114" alt="p1260114_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1260115.html"><img src="p1260115_small.jpg" title="P1260115" alt="p1260115_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1260116.html"><img src="p1260116_small.jpg" title="P1260116" alt="p1260116_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1260117.html"><img src="p1260117_small.jpg" title="P1260117" alt="p1260117_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1260118.html"><img src="p1260118_small.jpg" title="P1260118" alt="p1260118_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p1260119.html"><img src="p1260119_small.jpg" title="P1260119" alt="p1260119_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1260120.html"><img src="p1260120_small.jpg" title="P1260120" alt="p1260120_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310121.html"><img src="p1310121_small.jpg" title="P1310121" alt="p1310121_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310122.html"><img src="p1310122_small.jpg" title="P1310122" alt="p1310122_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310123.html"><img src="p1310123_small.jpg" title="P1310123" alt="p1310123_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310124.html"><img src="p1310124_small.jpg" title="P1310124" alt="p1310124_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p1310125.html"><img src="p1310125_small.jpg" title="P1310125" alt="p1310125_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310126.html"><img src="p1310126_small.jpg" title="P1310126" alt="p1310126_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310127.html"><img src="p1310127_small.jpg" title="P1310127" alt="p1310127_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310128.html"><img src="p1310128_small.jpg" title="P1310128" alt="p1310128_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310129.html"><img src="p1310129_small.jpg" title="P1310129" alt="p1310129_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310130.html"><img src="p1310130_small.jpg" title="P1310130" alt="p1310130_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p1310131.html"><img src="p1310131_small.jpg" title="P1310131" alt="p1310131_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310132.html"><img src="p1310132_small.jpg" title="P1310132" alt="p1310132_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310133.html"><img src="p1310133_small.jpg" title="P1310133" alt="p1310133_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310134.html"><img src="p1310134_small.jpg" title="P1310134" alt="p1310134_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310135.html"><img src="p1310135_small.jpg" title="P1310135" alt="p1310135_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310136.html"><img src="p1310136_small.jpg" title="P1310136" alt="p1310136_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p1310137.html"><img src="p1310137_small.jpg" title="P1310137" alt="p1310137_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310138.html"><img src="p1310138_small.jpg" title="P1310138" alt="p1310138_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310139.html"><img src="p1310139_small.jpg" title="P1310139" alt="p1310139_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310141.html"><img src="p1310141_small.jpg" title="P1310141" alt="p1310141_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310142.html"><img src="p1310142_small.jpg" title="P1310142" alt="p1310142_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310143.html"><img src="p1310143_small.jpg" title="P1310143" alt="p1310143_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p1310144.html"><img src="p1310144_small.jpg" title="P1310144" alt="p1310144_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310145.html"><img src="p1310145_small.jpg" title="P1310145" alt="p1310145_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310146.html"><img src="p1310146_small.jpg" title="P1310146" alt="p1310146_small.jpg" /></a></td>
<td class="thumbcell"><a href="p1310147.html"><img src="p1310147_small.jpg" title="P1310147" alt="p1310147_small.jpg" /></a></td>
<td class="thumbcell"><a href="p2140148.html"><img src="p2140148_small.jpg" title="P2140148" alt="p2140148_small.jpg" /></a></td>
<td class="thumbcell"><a href="p2140149.html"><img src="p2140149_small.jpg" title="P2140149" alt="p2140149_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p2140150.html"><img src="p2140150_small.jpg" title="P2140150" alt="p2140150_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3140151.html"><img src="p3140151_small.jpg" title="P3140151" alt="p3140151_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3140152.html"><img src="p3140152_small.jpg" title="P3140152" alt="p3140152_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3140153.html"><img src="p3140153_small.jpg" title="P3140153" alt="p3140153_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3180154.html"><img src="p3180154_small.jpg" title="P3180154" alt="p3180154_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3180155.html"><img src="p3180155_small.jpg" title="P3180155" alt="p3180155_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p3180156.html"><img src="p3180156_small.jpg" title="P3180156" alt="p3180156_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3180157.html"><img src="p3180157_small.jpg" title="P3180157" alt="p3180157_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3180158.html"><img src="p3180158_small.jpg" title="P3180158" alt="p3180158_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3180159.html"><img src="p3180159_small.jpg" title="P3180159" alt="p3180159_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3180160.html"><img src="p3180160_small.jpg" title="P3180160" alt="p3180160_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3180161.html"><img src="p3180161_small.jpg" title="P3180161" alt="p3180161_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p3210169.html"><img src="p3210169_small.jpg" title="P3210169" alt="p3210169_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3210176.html"><img src="p3210176_small.jpg" title="P3210176" alt="p3210176_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3210177.html"><img src="p3210177_small.jpg" title="P3210177" alt="p3210177_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3210179.html"><img src="p3210179_small.jpg" title="P3210179" alt="p3210179_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3210183.html"><img src="p3210183_small.jpg" title="P3210183" alt="p3210183_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3210184.html"><img src="p3210184_small.jpg" title="P3210184" alt="p3210184_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p3210185.html"><img src="p3210185_small.jpg" title="P3210185" alt="p3210185_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3310189.html"><img src="p3310189_small.jpg" title="P3310189" alt="p3310189_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3310190.html"><img src="p3310190_small.jpg" title="P3310190" alt="p3310190_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3310191.html"><img src="p3310191_small.jpg" title="P3310191" alt="p3310191_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3310192.html"><img src="p3310192_small.jpg" title="P3310192" alt="p3310192_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3310193.html"><img src="p3310193_small.jpg" title="P3310193" alt="p3310193_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p3310194.html"><img src="p3310194_small.jpg" title="P3310194" alt="p3310194_small.jpg" /></a></td>
<td class="thumbcell"><a href="p3310195.html"><img src="p3310195_small.jpg" title="P3310195" alt="p3310195_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4040196.html"><img src="p4040196_small.jpg" title="P4040196" alt="p4040196_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170197.html"><img src="p4170197_small.jpg" title="P4170197" alt="p4170197_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170199.html"><img src="p4170199_small.jpg" title="P4170199" alt="p4170199_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170200.html"><img src="p4170200_small.jpg" title="P4170200" alt="p4170200_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p4170201.html"><img src="p4170201_small.jpg" title="P4170201" alt="p4170201_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170202.html"><img src="p4170202_small.jpg" title="P4170202" alt="p4170202_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170203.html"><img src="p4170203_small.jpg" title="P4170203" alt="p4170203_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170204.html"><img src="p4170204_small.jpg" title="P4170204" alt="p4170204_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170205.html"><img src="p4170205_small.jpg" title="P4170205" alt="p4170205_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170206.html"><img src="p4170206_small.jpg" title="P4170206" alt="p4170206_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p4170207.html"><img src="p4170207_small.jpg" title="P4170207" alt="p4170207_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170208.html"><img src="p4170208_small.jpg" title="P4170208" alt="p4170208_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170209.html"><img src="p4170209_small.jpg" title="P4170209" alt="p4170209_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170210.html"><img src="p4170210_small.jpg" title="P4170210" alt="p4170210_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4170211.html"><img src="p4170211_small.jpg" title="P4170211" alt="p4170211_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180212.html"><img src="p4180212_small.jpg" title="P4180212" alt="p4180212_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p4180213.html"><img src="p4180213_small.jpg" title="P4180213" alt="p4180213_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180214.html"><img src="p4180214_small.jpg" title="P4180214" alt="p4180214_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180215.html"><img src="p4180215_small.jpg" title="P4180215" alt="p4180215_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180216.html"><img src="p4180216_small.jpg" title="P4180216" alt="p4180216_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180217.html"><img src="p4180217_small.jpg" title="P4180217" alt="p4180217_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180218.html"><img src="p4180218_small.jpg" title="P4180218" alt="p4180218_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p4180219.html"><img src="p4180219_small.jpg" title="P4180219" alt="p4180219_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180220.html"><img src="p4180220_small.jpg" title="P4180220" alt="p4180220_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4180221.html"><img src="p4180221_small.jpg" title="P4180221" alt="p4180221_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240222.html"><img src="p4240222_small.jpg" title="P4240222" alt="p4240222_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240223.html"><img src="p4240223_small.jpg" title="P4240223" alt="p4240223_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240224.html"><img src="p4240224_small.jpg" title="P4240224" alt="p4240224_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p4240225.html"><img src="p4240225_small.jpg" title="P4240225" alt="p4240225_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240226.html"><img src="p4240226_small.jpg" title="P4240226" alt="p4240226_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240227.html"><img src="p4240227_small.jpg" title="P4240227" alt="p4240227_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240228.html"><img src="p4240228_small.jpg" title="P4240228" alt="p4240228_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240229.html"><img src="p4240229_small.jpg" title="P4240229" alt="p4240229_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240230.html"><img src="p4240230_small.jpg" title="P4240230" alt="p4240230_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p4240231.html"><img src="p4240231_small.jpg" title="P4240231" alt="p4240231_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240232.html"><img src="p4240232_small.jpg" title="P4240232" alt="p4240232_small.jpg" /></a></td>
<td class="thumbcell"><a href="p4240233.html"><img src="p4240233_small.jpg" title="P4240233" alt="p4240233_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090234.html"><img src="p5090234_small.jpg" title="P5090234" alt="p5090234_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090235.html"><img src="p5090235_small.jpg" title="P5090235" alt="p5090235_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090236.html"><img src="p5090236_small.jpg" title="P5090236" alt="p5090236_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p5090237.html"><img src="p5090237_small.jpg" title="P5090237" alt="p5090237_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090238.html"><img src="p5090238_small.jpg" title="P5090238" alt="p5090238_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090239.html"><img src="p5090239_small.jpg" title="P5090239" alt="p5090239_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090240.html"><img src="p5090240_small.jpg" title="P5090240" alt="p5090240_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090241.html"><img src="p5090241_small.jpg" title="P5090241" alt="p5090241_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090242.html"><img src="p5090242_small.jpg" title="P5090242" alt="p5090242_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p5090243.html"><img src="p5090243_small.jpg" title="P5090243" alt="p5090243_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090244.html"><img src="p5090244_small.jpg" title="P5090244" alt="p5090244_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090245.html"><img src="p5090245_small.jpg" title="P5090245" alt="p5090245_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5090246.html"><img src="p5090246_small.jpg" title="P5090246" alt="p5090246_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5150247.html"><img src="p5150247_small.jpg" title="P5150247" alt="p5150247_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5150248.html"><img src="p5150248_small.jpg" title="P5150248" alt="p5150248_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p5150249.html"><img src="p5150249_small.jpg" title="P5150249" alt="p5150249_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5150250.html"><img src="p5150250_small.jpg" title="P5150250" alt="p5150250_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5150252.html"><img src="p5150252_small.jpg" title="P5150252" alt="p5150252_small.jpg" /></a></td>
<td class="thumbcell"><a href="p5150253.html"><img src="p5150253_small.jpg" title="P5150253" alt="p5150253_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6250296.html"><img src="p6250296_small.jpg" title="P6250296" alt="p6250296_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260001.html"><img src="p6260001_small.jpg" title="P6260001" alt="p6260001_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p6260002.html"><img src="p6260002_small.jpg" title="P6260002" alt="p6260002_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260003.html"><img src="p6260003_small.jpg" title="P6260003" alt="p6260003_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260004.html"><img src="p6260004_small.jpg" title="P6260004" alt="p6260004_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260005.html"><img src="p6260005_small.jpg" title="P6260005" alt="p6260005_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260006.html"><img src="p6260006_small.jpg" title="P6260006" alt="p6260006_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260007.html"><img src="p6260007_small.jpg" title="P6260007" alt="p6260007_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p6260008.html"><img src="p6260008_small.jpg" title="P6260008" alt="p6260008_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260009.html"><img src="p6260009_small.jpg" title="P6260009" alt="p6260009_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260010.html"><img src="p6260010_small.jpg" title="P6260010" alt="p6260010_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260011.html"><img src="p6260011_small.jpg" title="P6260011" alt="p6260011_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260012.html"><img src="p6260012_small.jpg" title="P6260012" alt="p6260012_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260013.html"><img src="p6260013_small.jpg" title="P6260013" alt="p6260013_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p6260014.html"><img src="p6260014_small.jpg" title="P6260014" alt="p6260014_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260015.html"><img src="p6260015_small.jpg" title="P6260015" alt="p6260015_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260016.html"><img src="p6260016_small.jpg" title="P6260016" alt="p6260016_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260017.html"><img src="p6260017_small.jpg" title="P6260017" alt="p6260017_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260018.html"><img src="p6260018_small.jpg" title="P6260018" alt="p6260018_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260019.html"><img src="p6260019_small.jpg" title="P6260019" alt="p6260019_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p6260020.html"><img src="p6260020_small.jpg" title="P6260020" alt="p6260020_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260021.html"><img src="p6260021_small.jpg" title="P6260021" alt="p6260021_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260022.html"><img src="p6260022_small.jpg" title="P6260022" alt="p6260022_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260023.html"><img src="p6260023_small.jpg" title="P6260023" alt="p6260023_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260024.html"><img src="p6260024_small.jpg" title="P6260024" alt="p6260024_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6260025.html"><img src="p6260025_small.jpg" title="P6260025" alt="p6260025_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p6300026.html"><img src="p6300026_small.jpg" title="P6300026" alt="p6300026_small.jpg" /></a></td>
<td class="thumbcell"><a href="p6300027.html"><img src="p6300027_small.jpg" title="P6300027" alt="p6300027_small.jpg" /></a></td>
<td class="thumbcell"><a href="p7300028.html"><img src="p7300028_small.jpg" title="P7300028" alt="p7300028_small.jpg" /></a></td>
<td class="thumbcell"><a href="p7300029.html"><img src="p7300029_small.jpg" title="P7300029" alt="p7300029_small.jpg" /></a></td>
<td class="thumbcell"><a href="p7300030.html"><img src="p7300030_small.jpg" title="P7300030" alt="p7300030_small.jpg" /></a></td>
<td class="thumbcell"><a href="p7300031.html"><img src="p7300031_small.jpg" title="P7300031" alt="p7300031_small.jpg" /></a></td>
</tr>
<tr>
<td colspan="6"><div class="pages">Page:[1] <a href="index2.html" title="Jump to index page 2">[2]</a> <a href="index3.html" title="Jump to index page 3">[3]</a></div></td>
</tr>
</table>
</div>
<p class="footnote">Photo album created with <a href="http://www.ornj.net/">Web Album Generator</a></p>
</body>
</html>

index2.html:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>Jamietest</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Generator" content="Web Album Generator 1.8.2; http://www.ornj.net/" />
<link rel="stylesheet" type="text/css" href="main.css" />
</head>
<body>
<div id="header">
<h1>Jamietest</h1>
</div>
<p class="description">Various photographs that I'd like to share on the Web.</p>

<div id="index">
<table>
<tr>
<td class="thumbcell"><a href="p8160079.html"><img src="p8160079_small.jpg" title="P8160079" alt="p8160079_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8160080.html"><img src="p8160080_small.jpg" title="P8160080" alt="p8160080_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8160081.html"><img src="p8160081_small.jpg" title="P8160081" alt="p8160081_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210082.html"><img src="p8210082_small.jpg" title="P8210082" alt="p8210082_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210083.html"><img src="p8210083_small.jpg" title="P8210083" alt="p8210083_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210084.html"><img src="p8210084_small.jpg" title="P8210084" alt="p8210084_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p8210085.html"><img src="p8210085_small.jpg" title="P8210085" alt="p8210085_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210086.html"><img src="p8210086_small.jpg" title="P8210086" alt="p8210086_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210087.html"><img src="p8210087_small.jpg" title="P8210087" alt="p8210087_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210088.html"><img src="p8210088_small.jpg" title="P8210088" alt="p8210088_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210089.html"><img src="p8210089_small.jpg" title="P8210089" alt="p8210089_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210090.html"><img src="p8210090_small.jpg" title="P8210090" alt="p8210090_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p8210091.html"><img src="p8210091_small.jpg" title="P8210091" alt="p8210091_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210092.html"><img src="p8210092_small.jpg" title="P8210092" alt="p8210092_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210093.html"><img src="p8210093_small.jpg" title="P8210093" alt="p8210093_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210094.html"><img src="p8210094_small.jpg" title="P8210094" alt="p8210094_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8210095.html"><img src="p8210095_small.jpg" title="P8210095" alt="p8210095_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300001.html"><img src="p8300001_small.jpg" title="P8300001" alt="p8300001_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p8300002.html"><img src="p8300002_small.jpg" title="P8300002" alt="p8300002_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300003.html"><img src="p8300003_small.jpg" title="P8300003" alt="p8300003_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300004.html"><img src="p8300004_small.jpg" title="P8300004" alt="p8300004_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300005.html"><img src="p8300005_small.jpg" title="P8300005" alt="p8300005_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300006.html"><img src="p8300006_small.jpg" title="P8300006" alt="p8300006_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300007.html"><img src="p8300007_small.jpg" title="P8300007" alt="p8300007_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p8300008.html"><img src="p8300008_small.jpg" title="P8300008" alt="p8300008_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300009.html"><img src="p8300009_small.jpg" title="P8300009" alt="p8300009_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300010.html"><img src="p8300010_small.jpg" title="P8300010" alt="p8300010_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300011.html"><img src="p8300011_small.jpg" title="P8300011" alt="p8300011_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300012.html"><img src="p8300012_small.jpg" title="P8300012" alt="p8300012_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300013.html"><img src="p8300013_small.jpg" title="P8300013" alt="p8300013_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p8300014.html"><img src="p8300014_small.jpg" title="P8300014" alt="p8300014_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300015.html"><img src="p8300015_small.jpg" title="P8300015" alt="p8300015_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300016.html"><img src="p8300016_small.jpg" title="P8300016" alt="p8300016_small.jpg" /></a></td>
<td class="thumbcell"><a href="p8300017.html"><img src="p8300017_small.jpg" title="P8300017" alt="p8300017_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020018.html"><img src="p9020018_small.jpg" title="P9020018" alt="p9020018_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020019.html"><img src="p9020019_small.jpg" title="P9020019" alt="p9020019_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p9020020.html"><img src="p9020020_small.jpg" title="P9020020" alt="p9020020_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020021.html"><img src="p9020021_small.jpg" title="P9020021" alt="p9020021_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020022.html"><img src="p9020022_small.jpg" title="P9020022" alt="p9020022_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020023.html"><img src="p9020023_small.jpg" title="P9020023" alt="p9020023_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020024.html"><img src="p9020024_small.jpg" title="P9020024" alt="p9020024_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020025.html"><img src="p9020025_small.jpg" title="P9020025" alt="p9020025_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p9020026.html"><img src="p9020026_small.jpg" title="P9020026" alt="p9020026_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020027.html"><img src="p9020027_small.jpg" title="P9020027" alt="p9020027_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020028.html"><img src="p9020028_small.jpg" title="P9020028" alt="p9020028_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020029.html"><img src="p9020029_small.jpg" title="P9020029" alt="p9020029_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020030.html"><img src="p9020030_small.jpg" title="P9020030" alt="p9020030_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020031.html"><img src="p9020031_small.jpg" title="P9020031" alt="p9020031_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p9020032.html"><img src="p9020032_small.jpg" title="P9020032" alt="p9020032_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020033.html"><img src="p9020033_small.jpg" title="P9020033" alt="p9020033_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020034.html"><img src="p9020034_small.jpg" title="P9020034" alt="p9020034_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020035.html"><img src="p9020035_small.jpg" title="P9020035" alt="p9020035_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020036.html"><img src="p9020036_small.jpg" title="P9020036" alt="p9020036_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020037.html"><img src="p9020037_small.jpg" title="P9020037" alt="p9020037_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p9020038.html"><img src="p9020038_small.jpg" title="P9020038" alt="p9020038_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020039.html"><img src="p9020039_small.jpg" title="P9020039" alt="p9020039_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020040.html"><img src="p9020040_small.jpg" title="P9020040" alt="p9020040_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9020041.html"><img src="p9020041_small.jpg" title="P9020041" alt="p9020041_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9200064.html"><img src="p9200064_small.jpg" title="P9200064" alt="p9200064_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9200065.html"><img src="p9200065_small.jpg" title="P9200065" alt="p9200065_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p9200066.html"><img src="p9200066_small.jpg" title="P9200066" alt="p9200066_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9200067.html"><img src="p9200067_small.jpg" title="P9200067" alt="p9200067_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9200068.html"><img src="p9200068_small.jpg" title="P9200068" alt="p9200068_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9200069.html"><img src="p9200069_small.jpg" title="P9200069" alt="p9200069_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9200070.html"><img src="p9200070_small.jpg" title="P9200070" alt="p9200070_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9200071.html"><img src="p9200071_small.jpg" title="P9200071" alt="p9200071_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="p9200072.html"><img src="p9200072_small.jpg" title="P9200072" alt="p9200072_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9300079.html"><img src="p9300079_small.jpg" title="P9300079" alt="p9300079_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9300080.html"><img src="p9300080_small.jpg" title="P9300080" alt="p9300080_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9300081.html"><img src="p9300081_small.jpg" title="P9300081" alt="p9300081_small.jpg" /></a></td>
<td class="thumbcell"><a href="p9300082.html"><img src="p9300082_small.jpg" title="P9300082" alt="p9300082_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa120092.html"><img src="pa120092_small.jpg" title="PA120092" alt="pa120092_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa120093.html"><img src="pa120093_small.jpg" title="PA120093" alt="pa120093_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa120094.html"><img src="pa120094_small.jpg" title="PA120094" alt="pa120094_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa120095.html"><img src="pa120095_small.jpg" title="PA120095" alt="pa120095_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa150099.html"><img src="pa150099_small.jpg" title="PA150099" alt="pa150099_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa150100.html"><img src="pa150100_small.jpg" title="PA150100" alt="pa150100_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa150101.html"><img src="pa150101_small.jpg" title="PA150101" alt="pa150101_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa150102.html"><img src="pa150102_small.jpg" title="PA150102" alt="pa150102_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa150103.html"><img src="pa150103_small.jpg" title="PA150103" alt="pa150103_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa150104.html"><img src="pa150104_small.jpg" title="PA150104" alt="pa150104_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa250105.html"><img src="pa250105_small.jpg" title="PA250105" alt="pa250105_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa250106.html"><img src="pa250106_small.jpg" title="PA250106" alt="pa250106_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa250107.html"><img src="pa250107_small.jpg" title="PA250107" alt="pa250107_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa250108.html"><img src="pa250108_small.jpg" title="PA250108" alt="pa250108_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270109.html"><img src="pa270109_small.jpg" title="PA270109" alt="pa270109_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270110.html"><img src="pa270110_small.jpg" title="PA270110" alt="pa270110_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270111.html"><img src="pa270111_small.jpg" title="PA270111" alt="pa270111_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270112.html"><img src="pa270112_small.jpg" title="PA270112" alt="pa270112_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270113.html"><img src="pa270113_small.jpg" title="PA270113" alt="pa270113_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa270114.html"><img src="pa270114_small.jpg" title="PA270114" alt="pa270114_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270115.html"><img src="pa270115_small.jpg" title="PA270115" alt="pa270115_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270116.html"><img src="pa270116_small.jpg" title="PA270116" alt="pa270116_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270117.html"><img src="pa270117_small.jpg" title="PA270117" alt="pa270117_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270118.html"><img src="pa270118_small.jpg" title="PA270118" alt="pa270118_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270119.html"><img src="pa270119_small.jpg" title="PA270119" alt="pa270119_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa270120.html"><img src="pa270120_small.jpg" title="PA270120" alt="pa270120_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270121.html"><img src="pa270121_small.jpg" title="PA270121" alt="pa270121_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270122.html"><img src="pa270122_small.jpg" title="PA270122" alt="pa270122_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270123.html"><img src="pa270123_small.jpg" title="PA270123" alt="pa270123_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270124.html"><img src="pa270124_small.jpg" title="PA270124" alt="pa270124_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270125.html"><img src="pa270125_small.jpg" title="PA270125" alt="pa270125_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa270126.html"><img src="pa270126_small.jpg" title="PA270126" alt="pa270126_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270127.html"><img src="pa270127_small.jpg" title="PA270127" alt="pa270127_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270128.html"><img src="pa270128_small.jpg" title="PA270128" alt="pa270128_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270129.html"><img src="pa270129_small.jpg" title="PA270129" alt="pa270129_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270130.html"><img src="pa270130_small.jpg" title="PA270130" alt="pa270130_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270131.html"><img src="pa270131_small.jpg" title="PA270131" alt="pa270131_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa270132.html"><img src="pa270132_small.jpg" title="PA270132" alt="pa270132_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270133.html"><img src="pa270133_small.jpg" title="PA270133" alt="pa270133_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270134.html"><img src="pa270134_small.jpg" title="PA270134" alt="pa270134_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270135.html"><img src="pa270135_small.jpg" title="PA270135" alt="pa270135_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270136.html"><img src="pa270136_small.jpg" title="PA270136" alt="pa270136_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270137.html"><img src="pa270137_small.jpg" title="PA270137" alt="pa270137_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa270138.html"><img src="pa270138_small.jpg" title="PA270138" alt="pa270138_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270139.html"><img src="pa270139_small.jpg" title="PA270139" alt="pa270139_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270140.html"><img src="pa270140_small.jpg" title="PA270140" alt="pa270140_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa270141.html"><img src="pa270141_small.jpg" title="PA270141" alt="pa270141_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa310142.html"><img src="pa310142_small.jpg" title="PA310142" alt="pa310142_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa310143.html"><img src="pa310143_small.jpg" title="PA310143" alt="pa310143_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pa310144.html"><img src="pa310144_small.jpg" title="PA310144" alt="pa310144_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa310145.html"><img src="pa310145_small.jpg" title="PA310145" alt="pa310145_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa310146.html"><img src="pa310146_small.jpg" title="PA310146" alt="pa310146_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa310147.html"><img src="pa310147_small.jpg" title="PA310147" alt="pa310147_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa310148.html"><img src="pa310148_small.jpg" title="PA310148" alt="pa310148_small.jpg" /></a></td>
<td class="thumbcell"><a href="pa310149.html"><img src="pa310149_small.jpg" title="PA310149" alt="pa310149_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pb110150.html"><img src="pb110150_small.jpg" title="PB110150" alt="pb110150_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb110151.html"><img src="pb110151_small.jpg" title="PB110151" alt="pb110151_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb110152.html"><img src="pb110152_small.jpg" title="PB110152" alt="pb110152_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb300163.html"><img src="pb300163_small.jpg" title="PB300163" alt="pb300163_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb300164.html"><img src="pb300164_small.jpg" title="PB300164" alt="pb300164_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb300165.html"><img src="pb300165_small.jpg" title="PB300165" alt="pb300165_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pb300166.html"><img src="pb300166_small.jpg" title="PB300166" alt="pb300166_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb300167.html"><img src="pb300167_small.jpg" title="PB300167" alt="pb300167_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb300168.html"><img src="pb300168_small.jpg" title="PB300168" alt="pb300168_small.jpg" /></a></td>
<td class="thumbcell"><a href="pb300169.html"><img src="pb300169_small.jpg" title="PB300169" alt="pb300169_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110183.html"><img src="pc110183_small.jpg" title="PC110183" alt="pc110183_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110184.html"><img src="pc110184_small.jpg" title="PC110184" alt="pc110184_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pc110185.html"><img src="pc110185_small.jpg" title="PC110185" alt="pc110185_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110186.html"><img src="pc110186_small.jpg" title="PC110186" alt="pc110186_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110187.html"><img src="pc110187_small.jpg" title="PC110187" alt="pc110187_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110188.html"><img src="pc110188_small.jpg" title="PC110188" alt="pc110188_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110189.html"><img src="pc110189_small.jpg" title="PC110189" alt="pc110189_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110190.html"><img src="pc110190_small.jpg" title="PC110190" alt="pc110190_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pc110191.html"><img src="pc110191_small.jpg" title="PC110191" alt="pc110191_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110192.html"><img src="pc110192_small.jpg" title="PC110192" alt="pc110192_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110193.html"><img src="pc110193_small.jpg" title="PC110193" alt="pc110193_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110194.html"><img src="pc110194_small.jpg" title="PC110194" alt="pc110194_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110195.html"><img src="pc110195_small.jpg" title="PC110195" alt="pc110195_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110196.html"><img src="pc110196_small.jpg" title="PC110196" alt="pc110196_small.jpg" /></a></td>
</tr>
<tr>
<td colspan="6"><div class="pages">Page: <a href="index.html" title="Jump to index page 1">[1]</a>[2] <a href="index3.html" title="Jump to index page 3">[3]</a></div></td>
</tr>
</table>
</div>
<p class="footnote">Photo album created with <a href="http://www.ornj.net/">Web Album Generator</a></p>
</body>
</html>

index3.html:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
<head>
<title>Jamietest</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="Generator" content="Web Album Generator 1.8.2; http://www.ornj.net/" />
<link rel="stylesheet" type="text/css" href="main.css" />
</head>
<body>
<div id="header">
<h1>Jamietest</h1>
</div>
<p class="description">Various photographs that I'd like to share on the Web.</p>

<div id="index">
<table>
<tr>
<td class="thumbcell"><a href="pc110197.html"><img src="pc110197_small.jpg" title="PC110197" alt="pc110197_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc110198.html"><img src="pc110198_small.jpg" title="PC110198" alt="pc110198_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc180199.html"><img src="pc180199_small.jpg" title="PC180199" alt="pc180199_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc180200.html"><img src="pc180200_small.jpg" title="PC180200" alt="pc180200_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250201.html"><img src="pc250201_small.jpg" title="PC250201" alt="pc250201_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250202.html"><img src="pc250202_small.jpg" title="PC250202" alt="pc250202_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pc250203.html"><img src="pc250203_small.jpg" title="PC250203" alt="pc250203_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250204.html"><img src="pc250204_small.jpg" title="PC250204" alt="pc250204_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250205.html"><img src="pc250205_small.jpg" title="PC250205" alt="pc250205_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250206.html"><img src="pc250206_small.jpg" title="PC250206" alt="pc250206_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250207.html"><img src="pc250207_small.jpg" title="PC250207" alt="pc250207_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250208.html"><img src="pc250208_small.jpg" title="PC250208" alt="pc250208_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pc250209.html"><img src="pc250209_small.jpg" title="PC250209" alt="pc250209_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250210.html"><img src="pc250210_small.jpg" title="PC250210" alt="pc250210_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250211.html"><img src="pc250211_small.jpg" title="PC250211" alt="pc250211_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250212.html"><img src="pc250212_small.jpg" title="PC250212" alt="pc250212_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250213.html"><img src="pc250213_small.jpg" title="PC250213" alt="pc250213_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250214.html"><img src="pc250214_small.jpg" title="PC250214" alt="pc250214_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pc250215.html"><img src="pc250215_small.jpg" title="PC250215" alt="pc250215_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250216.html"><img src="pc250216_small.jpg" title="PC250216" alt="pc250216_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250217.html"><img src="pc250217_small.jpg" title="PC250217" alt="pc250217_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250218.html"><img src="pc250218_small.jpg" title="PC250218" alt="pc250218_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250219.html"><img src="pc250219_small.jpg" title="PC250219" alt="pc250219_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc250220.html"><img src="pc250220_small.jpg" title="PC250220" alt="pc250220_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pc260221.html"><img src="pc260221_small.jpg" title="PC260221" alt="pc260221_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc260222.html"><img src="pc260222_small.jpg" title="PC260222" alt="pc260222_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc260223.html"><img src="pc260223_small.jpg" title="PC260223" alt="pc260223_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc260224.html"><img src="pc260224_small.jpg" title="PC260224" alt="pc260224_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc260225.html"><img src="pc260225_small.jpg" title="PC260225" alt="pc260225_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc260226.html"><img src="pc260226_small.jpg" title="PC260226" alt="pc260226_small.jpg" /></a></td>
</tr>
<tr>
<td class="thumbcell"><a href="pc260227.html"><img src="pc260227_small.jpg" title="PC260227" alt="pc260227_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc260228.html"><img src="pc260228_small.jpg" title="PC260228" alt="pc260228_small.jpg" /></a></td>
<td class="thumbcell"><a href="pc260229.html"><img src="pc260229_small.jpg" title="PC260229" alt="pc260229_small.jpg" /></a></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
<td class="thumbcell"></td>
</tr>
<tr>
<td colspan="6"><div class="pages">Page: <a href="index.html" title="Jump to index page 1">[1]</a> <a href="index2.html" title="Jump to index page 2">[2]</a>[3]</div></td>
</tr>
</table>
</div>
<p class="footnote">Photo album created with <a href="http://www.ornj.net/">Web Album Generator</a></p>
</body>
</html>

#69 JosiahK

Forum Regular

Group: Members
Posts: 258
Joined: 05-August 10
Gender:Male

Posted 12 January 2011 - 12:16 PM

As far as I can tell it has to be related to Index2. That line finds the location of
<tr>
<td colspan="6"><div class="pages">Page:
in index2, so that it can copy the section of the page between <table> and that text. The one other factor that I suppose could cause issues is the possibility that your system uses a different symbol for the newline character from mine (or more likely that it uses a different character from the forum we're posting on).
VbCrLf on line 113 stands for "Visual Basic Carriage Return Line feed", and is basically a two character newline. However some systems only put in the line feed character, in which case that would change to VbLf. That isn't something that I can test from over here unless we had some way to attach the file, and being unfamiliar with this forum I don't know how you'd do that. I would suggest that you try changing that on line 113-- VbCrLf to VbLf.

By the way the code still works perfectly when executed with your 3 samples on my machine.

Test code:

Dim CFN 'Current Folder Name
Dim CF ' Current Folder, Object
Dim FileNames ' File names in current folder. '
Dim FN ' Name of the file. '
Dim ParseFile ' Entire Contents of HTML file. '
Dim ArraySize : ArraySize = 5 ' Size of PicName arrays.
Dim FakePicName()
Dim RealPicName()
ReDim FakePicName(ArraySize) ' Array of the fake name of the Pictures, used for searching. '
ReDim RealPicName(ArraySize) ' Array of the Real name of the Pictures, used for replacing. '
Dim NumOfPicNames : NumOfPicNames = 1 ' The number of unique image names, ignoring _small '
Dim AllFileNames ' The HTML files that have been processed
Dim CreatedFolder ' Whether the folder thumbs was created.
Dim AllPics ' Records all pictures moved
Dim TS : TS = "_small.jpg" ' The string constant _small.jpg
Dim DelStr ' ornj advert to remove'
DelStr = "<p class="+chr(34)+"footnote"+chr(34)+">Photo album created with <a href="+chr(34)+"http://www.ornj.net/"+chr(34)+">Web Album Generator</a></p>"
Dim IndexCount: IndexCount = 1 ' Variable holding the highest X for files IndexX.html

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Get Current Folder '
ScriptPath = Wscript.ScriptFullName
Set objScriptPath = objFSO.GetFile(ScriptPath)
CFN = objFSO.GetParentFolderName(objscriptPath)

' Find the number of IndexX.html files.
Do
NextIndex = true
If objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".html") or objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".htm") then
IndexCount = IndexCount + 1
else
NextIndex = false
end if 
Loop until NextIndex = false


' Work through HTML files '
Set CF = objFSO.GetFolder(CFN)
Set files = CF.Files
For each objFile In files
FN = objFile.name
If Lcase(right(FN,4)) = ".htm" or lcase(right(FN,5)) = ".html" then
If objFile.size > 0 then
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & FN, 1) ' Reads contents of file into string parsefile '
  ParseFile = objReadFile.ReadAll
  objReadFile.Close

  ClearET()
  If IndexCount > 1 and Lcase(FN) = "index.html" then ExtendIndex()
  If IndexCount > 1 then ResetIndexLinks()
  PopulatePicNames()
  SortPicNames()
  HunterSeeeker()
  EvacuateThumbs()
  KillText(delstr)
  BurnToDisk()
  If Not Lcase(FN) = "index.html" then RenameFile()
  Clean()
  AllFileNames = AllFileNames & vbCrLf & FN
end if
end if
Next

' Creates Thumbs folder if it doesn't already exist
If Not objFSO.FolderExists(CFN & "\thumbs") Then
   Set newfolder = objFSO.CreateFolder(CFN & "\thumbs")
   CreatedFolder = "Created Folder: True"
Else
   CreatedFolder = "Created Folder: False"
End If

' Second loop moves thumbnails if necessary'
For each objFile In files
FN = objFile.name
If Lcase(right(FN,10)) = TS then
        objFSO.MoveFile CFN & "\" & FN, CFN & "\thumbs\"
        AllPics = AllPics & vbCrLf & FN
end if
Next

MsgBox "File Parse Complete:" & vbCrLf & AllFileNames & vbCrLf & CreatedFolder & vbCrLf & AllPics
Wscript.quit






' Start of Subroutines '

Public Sub ExtendIndex()
  
'Read in IndexX pages  

Dim IndexXFile ' Text of the Index file being processed
Dim TableStartPos ' Location of the end of <table>
Dim TableEndPos ' Location of the start of </table>
Dim TableContents ' Text between <table> and </table>
For X = 2 to IndexCount ' Run through each index file
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & "index"&X&".html", 1) ' Reads contents of file into string parsefile '
  IndexXFile = objReadFile.ReadAll ' Read in text 
  objReadFile.Close
  
  TableStartPos = Instr(1, IndexXFile, "<table>")
  If TableStartPos > 0 then
  TableStartPos = TableStartPos + 9
  else
  MsgBox "<Table> Tag not found in index file. Aborting Parsing Index Files"
  exit sub
  end if 
  
  TableEndPos = Instr(TableStartPos, IndexXFile, "<tr>"&vbLf&"<td colspan="&chr(34)&"6"&chr(34)&"><div class="&chr(34)&"pages"&chr(34)&">Page:")
  TableEndPos = TableEndPos - 1
  If TableEndPos = -1 then 
    msgbox "Error reading Additional Index page" 
	wscript.exit
  end if 
  TableContents = mid(IndexXFile, TableStartPos, TableEndPos - TableStartPos)
  
  
  IndexEndTablePos = Instr(1, ParseFile, "</table>") ' Find location to instert TableContents
  ParseFile = left(ParseFile, IndexEndTablePos - 1) & TableContents & vbCrLf & Right(ParseFile, len(ParseFile) - IndexEndTablePos + 1)
  
Next

' Delete additional Index Pages
For X = 2 to IndexCount
set DelIndex = objFSO.GetFile(CFN & "\index" & cstr(X) & ".html")
DelIndex.Delete
Next 

'remove the link to later index pages

LinkStartPos = Instr(1, parsefile, "<tr>"&vbCrLf&"<td colspan="&chr(34)&"6"&chr(34)&"><div class="&chr(34)&"pages"&chr(34)&">Page:")
LinkEndPos = Instr(LinkStartPos, Parsefile, "</tr>")
Parsefile = Left(Parsefile, LinkStartPos - 1) + Right(ParseFile, Len(parsefile) - LinkEndPos - 6)

End Sub


Public Sub ResetIndexLinks()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = Indexcount to 2 step - 1
        Searchterm = "index" & cstr(X) & ".htm"
        Replaceterm = "index.htm"
      CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
            CHSp = CHSp + len(ReplaceTerm)
          end if
      Loop until CHSp = -1
  Next
end sub

Public Sub ClearEt()
  Dim WrongEtStr : WrongEtStr = "&amp;"
  Dim EtSp : EtSp = 1 ' Et Start point 
  Do
  EtSp = Instr(EtSp, ParseFile, WrongEtStr) - 1
  If not EtSp = -1 then 
    ParseFile = left(ParseFile, EtSP) & "&" & Right(ParseFile, Len(ParseFile) - EtSp - 5)
  End if
  Loop until EtSp = -1
End Sub

Public Sub PopulatePicNames()
  Dim ISp: ISp = 1 ' Image Start Position '
  Dim IEp ' Image End Position '
  Dim LIEp: LIEp = 1 ' Last Image End Position '
  Dim FPN ' Temporary holder Fake picture name, check that it isn't already in the array '
  Dim RPN ' Temporary holder Real picture name, check that it isn't already in the array '

  Do
  ' Get image text '
  ISp = Instr(LIEp, ParseFile, "<img")
  If ISp > 0 then
  IEp = Instr(ISp, ParseFile, ".jpg" & chr(34) & " />") + 8
  LIEp = IEp + 1
  ImageText = mid(ParseFile, ISp, IEp-ISp)

  ' extract Fake and Real names from Image text '
  FPN = FindFN(ImageText)
  RPN = FindRN(ImageText)

  AlreadyHasFPN = False
  AlreadyHasRPN = False
  If NumOfPicNames > 1 then
    For X = 1 to NumOfPicNames - 1
      If FPN = FakePicName(X) then AlreadyHasFPN = True
          If RPN = RealPicName(X) then AlreadyHasRPN = True
    Next
  End if

  IncNOPN = 0 ' A test that both are unique, or neither. '
  If not AlreadyHasFPN then FakePicName(NumOfPicNames) = FPN : IncNOPN = 1
  If not AlreadyHasRPN then RealPicName(NumOfPicNames) = RPN : IncNOPN = IncNOPN + 1
  If IncNOPN = 2 then NumOfPicNames = NumOfPicNames + 1
  If IncNOPN = 1 then Housten()
  If NumOfPicNames = ArraySize then
    ArraySize = ArraySize * 2
        ReDim preserve FakePicName(ArraySize)
    ReDim preserve RealPicName(ArraySize)
  end if 
  End if
  Loop until ISp = 0
  NumOfPicNames = NumOfPicNames - 1
End Sub

Public Sub SortPicNames() ' Aranges pic names longest first, to avoid replacing Photo1 with the name associated with Photo. '
For X = 1 to NumOfPicNames - 1
  For Y = 1 to NumOfPicNames - X
    If Len(FakePicName(Y)) < Len(FakePicName(Y+1)) then
      SortTemp = FakePicName(Y+1)
      FakePicName(Y+1) = FakePicName(Y)
      FakePicName(Y) = SortTemp
          SortTemp = RealPicName(Y+1)
          RealPicName(Y+1) = RealPicName(Y)
      RealPicName(Y) = SortTemp
    end if
  Next
Next
End sub

Public Sub HunterSeeeker()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = 1 to NumOfPicNames
    For SearchCase = 1 to 3
        Select Case SearchCase
        Case 1
        Searchterm = chr(34) & FakePicName(X) & ".jpg"
        Replaceterm = chr(34) & RealPicName(X) & ".jpg"
        Case 2
        Searchterm = chr(34) & FakePicName(X) & "_small.jpg"
        Replaceterm = chr(34) & RealPicName(X) & "_small.jpg"
        Case 3
        Searchterm = chr(34) & FakePicName(X) & ".htm"
        Replaceterm = chr(34) & RealPicName(X) & ".htm"
                end select
    CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
          CHSp = CHSp + len(ReplaceTerm)
            end if
      Loop until CHSp = -1
    Next
  Next
End Sub

Public Sub EvacuateThumbs()
Dim FS ' Numeric location of the string TS in UnParsedFile'
Dim FQ ' Numeric Location of the quote mark " before _small.jpg.'
Dim LFS ' Last location of the end of the last TS found'
LFS = 1
  Do
    FS = Instr(LFS, ParseFile, TS)
    If FS > 0 then
      FQ = FS
      Do
        FQ = FQ - 1
      Loop until mid(ParseFile, FQ, 5) = "src=" + CHR(34)
      FQ = FQ + 4
      If not mid(Parsefile, FQ+1,7) = "thumbs\" then
        ParseFile = left(ParseFile, FQ) & "thumbs\" & right(ParseFile, len(ParseFile) - FQ)
      end if
      LFS = FS + 7
    end if
  Loop until FS = 0
End Sub

Public Sub KillText(TextToRemove)

Dim FQ ' Numeric Location of the start of DelStr.'
  Do
    FQ = Instr(1, ParseFile, TextToRemove)
    If FQ > 0 then
      If len(ParseFile) > FQ + Len(TextToRemove) then
        ParseFile = left(ParseFile, FQ - 1) & Right(Parsefile,len(ParseFile) - FQ - Len(TextToRemove) - 1)
      else
        ParseFile = left(ParseFile, FQ - 1)
      end if
    end if
  Loop until FQ = 0
End Sub

Public Sub BurnToDisk()
  Set objFile = objFSO.OpenTextFile(CFN & "\" & FN, 2, True)
  objFile.writeline(ParseFile)
  objFile.close
End Sub

Public Sub RenameFile()
Dim RealFileName ' Value from within <Title> element '
Dim FFN : FFN = left(FN, instr(1, lcase(FN), ".htm") - 1 ) ' Fake File Name, the name of the picture matching this HTML file '
  RealFileName = FindRFN(ParseFile)
  if Lcase(right(FN, 5)) = ".html" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".html"
  if Lcase(right(FN, 4)) = ".htm" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".htm"
  if objFSO.FileExists(CFN & "\thumbs\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\thumbs\" & FFN & "_small.jpg" , CFN & "\thumbs\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\" & FFN & "_small.jpg", CFN & "\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & ".jpg") Then objFSO.moveFile CFN & "\" & FFN & ".jpg" , CFN & "\" & RealFileName & ".jpg"
End Sub

public function FindRN(Img) ' Find the real name of an image from the title attribute '
  Dim RN ' Real name '
  Dim RNSp : RNSp = 1 ' Real Name Start Position, location of the " before the real name of the picture. '
  Dim RNEp : RNEp = 1 ' Real Name End Position, location of the " after the real name of the picture. '

  RNSp = Instr(1, Img, "title=") + 7
  RNEp = RNSp
  Do
    RNEp = RNEp + 1
  loop until mid(img, RNEp, 1) = chr(34)
  RN = mid(img,RNSp, RNEp - RNSp)
  FindRN = RN
End function

public function FindFN(Img) ' Find the Fake name of an image from the title attribute '
  Dim FN ' Fake name '
  Dim FNSp : FNSp = 1 ' Fake Name Start Position, location of the " before the fake name of the picture. '
  Dim FNEp : FNEp = 1 ' Fake Name End Position, location of the " after the fake name of the picture. '

  FNSp = Instr(1, Img, "src=") + 5
  FNEp = Instr(FNSp, Img, "_small.jpg")
  If FNEp = 0 then FNEp = Instr(FNSp, Img, ".jpg")
  FN = mid(img,FNSp, FNEp - FNSp)
  FindFN = FN
End function

Public Function FindRFN(Text) ' Find the preferred name of the html file from the Title '
  Dim RFNSp: RFNSp = Instr(1, Text, "<title>") + 7 ' Real File Name Start Position '
  Dim RFNEp: RFNEp = Instr(RFNSp, Text, "</title>") ' Real File Name End Position '
  RFN = mid(Text, RFNSp, RFNEp - RFNSp)
  FindRFN = RFN
End Function

Public Sub Housten()
  MsgBox "Housten, We have a problem. Coming down to Earth, fast!"
  MSgBox "Partial Picture Identifier match--two pictures share either the same real name of the same fake name but not both."
  Wscript.quit
End sub

Public Sub Clean()
For X = 1 to ArraySize
FakePicName(X) = ""
RealPicName(X) = ""
Next 
NumOfPicNames = 1
Parsefile = ""
Arraysize = 5
ReDim FakePicName(ArraySize)
ReDim RealPicName(ArraySize)
End Sub

#70 Stephen W

Member

Group: Members
Posts: 65
Joined: 20-October 07

Posted 12 January 2011 - 12:44 PM

When I run that version I first get an error box saying 'Error reading Additional Index page' then get error on line 117 char 9 - object doesnt support this property or method: 'Wscript.exit'

I've noticed that when I copy the html code on here it removes all the spaces and tabs at the start of each line. Could that be the issue or would it make no difference?
e.g. from index2.html
<tr>
<td colspan="6"><div class="pages">Page: <a href="index.html" title="Jump to index page 1">[1]</a>[2] <a href="index3.html" title="Jump to index page 3">[3]</a></div></td>
</tr>
actually should have 1 tab before <tr> and </tr> and 2 tabs before <td colspan

This post has been edited by Stephen W: 12 January 2011 - 12:45 PM

#71 JosiahK

Forum Regular

Group: Members
Posts: 258
Joined: 05-August 10
Gender:Male

Posted 12 January 2011 - 12:49 PM

Quote

I've noticed that when I copy the html code on here it removes all the spaces and tabs at the start of each line. Could that be the issue or would it make no difference?

Now that is probably the exact problem. I'll have a go at coding around that.

And I muddled my languages, the exit error was because it should be wscript.quit
It isn't the problem though, we don't ever want that to be executed.

#72 Stephen W

Member

Group: Members
Posts: 65
Joined: 20-October 07

Posted 12 January 2011 - 01:00 PM

If it is the tabs, it seems pretty amazing that we have not run into this issue sooner doesn't it? Or maybe we have not previously looked at anything with more than 1 line of code and so it hasn't been a problem?
I can email you the html files if you are happy to give me an email address?

This post has been edited by Stephen W: 12 January 2011 - 01:01 PM

#73 JosiahK

Forum Regular

Group: Members
Posts: 258
Joined: 05-August 10
Gender:Male

Posted 12 January 2011 - 01:04 PM

That's what I initially thought when I suggested the linefeed as well, and sure enough there are no other comparisons which span two lines.

#74 JosiahK

Forum Regular

Group: Members
Posts: 258
Joined: 05-August 10
Gender:Male

Posted 12 January 2011 - 01:25 PM

This should avoid any characters in between <tr> and the links, be they strange line breaks or tab marks.

Dim CFN 'Current Folder Name
Dim CF ' Current Folder, Object
Dim FileNames ' File names in current folder. '
Dim FN ' Name of the file. '
Dim ParseFile ' Entire Contents of HTML file. '
Dim ArraySize : ArraySize = 5 ' Size of PicName arrays.
Dim FakePicName()
Dim RealPicName()
ReDim FakePicName(ArraySize) ' Array of the fake name of the Pictures, used for searching. '
ReDim RealPicName(ArraySize) ' Array of the Real name of the Pictures, used for replacing. '
Dim NumOfPicNames : NumOfPicNames = 1 ' The number of unique image names, ignoring _small '
Dim AllFileNames ' The HTML files that have been processed
Dim CreatedFolder ' Whether the folder thumbs was created.
Dim AllPics ' Records all pictures moved
Dim TS : TS = "_small.jpg" ' The string constant _small.jpg
Dim DelStr ' ornj advert to remove'
DelStr = "<p class="+chr(34)+"footnote"+chr(34)+">Photo album created with <a href="+chr(34)+"http://www.ornj.net/"+chr(34)+">Web Album Generator</a></p>"
Dim IndexCount: IndexCount = 1 ' Variable holding the highest X for files IndexX.html

Set objFSO = CreateObject("Scripting.FileSystemObject")

' Get Current Folder '
ScriptPath = Wscript.ScriptFullName
Set objScriptPath = objFSO.GetFile(ScriptPath)
CFN = objFSO.GetParentFolderName(objscriptPath)

' Find the number of IndexX.html files.
Do
NextIndex = true
If objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".html") or objFSO.fileexists(CFN&"\Index"&Cstr(IndexCount + 1)&".htm") then
IndexCount = IndexCount + 1
else
NextIndex = false
end if 
Loop until NextIndex = false


' Work through HTML files '
Set CF = objFSO.GetFolder(CFN)
Set files = CF.Files
For each objFile In files
FN = objFile.name
If Lcase(right(FN,4)) = ".htm" or lcase(right(FN,5)) = ".html" then
If objFile.size > 0 then
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & FN, 1) ' Reads contents of file into string parsefile '
  ParseFile = objReadFile.ReadAll
  objReadFile.Close

  ClearET()
  If IndexCount > 1 and Lcase(FN) = "index.html" then ExtendIndex()
  If IndexCount > 1 then ResetIndexLinks()
  PopulatePicNames()
  SortPicNames()
  HunterSeeeker()
  EvacuateThumbs()
  KillText(delstr)
  BurnToDisk()
  If Not Lcase(FN) = "index.html" then RenameFile()
  Clean()
  AllFileNames = AllFileNames & vbCrLf & FN
end if
end if
Next

' Creates Thumbs folder if it doesn't already exist
If Not objFSO.FolderExists(CFN & "\thumbs") Then
   Set newfolder = objFSO.CreateFolder(CFN & "\thumbs")
   CreatedFolder = "Created Folder: True"
Else
   CreatedFolder = "Created Folder: False"
End If

' Second loop moves thumbnails if necessary'
For each objFile In files
FN = objFile.name
If Lcase(right(FN,10)) = TS then
        objFSO.MoveFile CFN & "\" & FN, CFN & "\thumbs\"
        AllPics = AllPics & vbCrLf & FN
end if
Next

MsgBox "File Parse Complete:" & vbCrLf & AllFileNames & vbCrLf & CreatedFolder & vbCrLf & AllPics
Wscript.quit






' Start of Subroutines '

Public Sub ExtendIndex()
  
'Read in IndexX pages  

Dim IndexXFile ' Text of the Index file being processed
Dim TableStartPos ' Location of the end of <table>
Dim TableEndPos ' Location of the start of </table>
Dim TableContents ' Text between <table> and </table>
For X = 2 to IndexCount ' Run through each index file
  Set objReadFile = objFSO.OpenTextFile(CFN & "\" & "index"&X&".html", 1) ' Reads contents of file into string parsefile '
  IndexXFile = objReadFile.ReadAll ' Read in text 
  objReadFile.Close
  
  TableStartPos = Instr(1, IndexXFile, "<table>")
  If TableStartPos > 0 then
  TableStartPos = TableStartPos + 9
  else
  MsgBox "<Table> Tag not found in index file. Aborting Parsing Index Files"
  exit sub
  end if 
  
  TableEndPos = Instr(TableStartPos, IndexXFile, "<td colspan="&chr(34)&"6"&chr(34)&"><div class="&chr(34)&"pages"&chr(34)&">Page:")
  TableEndPos = InstrRev(IndexXFile, "<tr>", TableEndPos)
  TableEndPos = TableEndPos - 1
  If TableEndPos = -1 then 
    msgbox "Error reading Additional Index page" 
	wscript.quit
  end if 
  TableContents = mid(IndexXFile, TableStartPos, TableEndPos - TableStartPos)
  
  
  IndexEndTablePos = Instr(1, ParseFile, "</table>") ' Find location to instert TableContents
  ParseFile = left(ParseFile, IndexEndTablePos - 1) & TableContents & vbCrLf & Right(ParseFile, len(ParseFile) - IndexEndTablePos + 1)
  
Next

' Delete additional Index Pages
For X = 2 to IndexCount
set DelIndex = objFSO.GetFile(CFN & "\index" & cstr(X) & ".html")
DelIndex.Delete
Next 

'remove the link to later index pages

LinkStartPos = Instr(1, parsefile, "<td colspan="&chr(34)&"6"&chr(34)&"><div class="&chr(34)&"pages"&chr(34)&">Page:")
LinkStartPos = InstrRev(parsefile, "<tr>", LinkStartPos)
LinkEndPos = Instr(LinkStartPos, Parsefile, "</tr>")
Parsefile = Left(Parsefile, LinkStartPos - 1) + Right(ParseFile, Len(parsefile) - LinkEndPos - 6)

End Sub


Public Sub ResetIndexLinks()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = Indexcount to 2 step - 1
        Searchterm = "index" & cstr(X) & ".htm"
        Replaceterm = "index.htm"
      CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
            CHSp = CHSp + len(ReplaceTerm)
          end if
      Loop until CHSp = -1
  Next
end sub

Public Sub ClearEt()
  Dim WrongEtStr : WrongEtStr = "&amp;"
  Dim EtSp : EtSp = 1 ' Et Start point 
  Do
  EtSp = Instr(EtSp, ParseFile, WrongEtStr) - 1
  If not EtSp = -1 then 
    ParseFile = left(ParseFile, EtSP) & "&" & Right(ParseFile, Len(ParseFile) - EtSp - 5)
  End if
  Loop until EtSp = -1
End Sub

Public Sub PopulatePicNames()
  Dim ISp: ISp = 1 ' Image Start Position '
  Dim IEp ' Image End Position '
  Dim LIEp: LIEp = 1 ' Last Image End Position '
  Dim FPN ' Temporary holder Fake picture name, check that it isn't already in the array '
  Dim RPN ' Temporary holder Real picture name, check that it isn't already in the array '

  Do
  ' Get image text '
  ISp = Instr(LIEp, ParseFile, "<img")
  If ISp > 0 then
  IEp = Instr(ISp, ParseFile, ".jpg" & chr(34) & " />") + 8
  LIEp = IEp + 1
  ImageText = mid(ParseFile, ISp, IEp-ISp)

  ' extract Fake and Real names from Image text '
  FPN = FindFN(ImageText)
  RPN = FindRN(ImageText)

  AlreadyHasFPN = False
  AlreadyHasRPN = False
  If NumOfPicNames > 1 then
    For X = 1 to NumOfPicNames - 1
      If FPN = FakePicName(X) then AlreadyHasFPN = True
          If RPN = RealPicName(X) then AlreadyHasRPN = True
    Next
  End if

  IncNOPN = 0 ' A test that both are unique, or neither. '
  If not AlreadyHasFPN then FakePicName(NumOfPicNames) = FPN : IncNOPN = 1
  If not AlreadyHasRPN then RealPicName(NumOfPicNames) = RPN : IncNOPN = IncNOPN + 1
  If IncNOPN = 2 then NumOfPicNames = NumOfPicNames + 1
  If IncNOPN = 1 then Housten()
  If NumOfPicNames = ArraySize then
    ArraySize = ArraySize * 2
        ReDim preserve FakePicName(ArraySize)
    ReDim preserve RealPicName(ArraySize)
  end if 
  End if
  Loop until ISp = 0
  NumOfPicNames = NumOfPicNames - 1
End Sub

Public Sub SortPicNames() ' Aranges pic names longest first, to avoid replacing Photo1 with the name associated with Photo. '
For X = 1 to NumOfPicNames - 1
  For Y = 1 to NumOfPicNames - X
    If Len(FakePicName(Y)) < Len(FakePicName(Y+1)) then
      SortTemp = FakePicName(Y+1)
      FakePicName(Y+1) = FakePicName(Y)
      FakePicName(Y) = SortTemp
          SortTemp = RealPicName(Y+1)
          RealPicName(Y+1) = RealPicName(Y)
      RealPicName(Y) = SortTemp
    end if
  Next
Next
End sub

Public Sub HunterSeeeker()
Dim CHSp ' Crosshairs Start Position, where the target begins. '
Dim Searchterm '
Dim Replaceterm '
  For X = 1 to NumOfPicNames
    For SearchCase = 1 to 3
        Select Case SearchCase
        Case 1
        Searchterm = chr(34) & FakePicName(X) & ".jpg"
        Replaceterm = chr(34) & RealPicName(X) & ".jpg"
        Case 2
        Searchterm = chr(34) & FakePicName(X) & "_small.jpg"
        Replaceterm = chr(34) & RealPicName(X) & "_small.jpg"
        Case 3
        Searchterm = chr(34) & FakePicName(X) & ".htm"
        Replaceterm = chr(34) & RealPicName(X) & ".htm"
                end select
    CHSp = 1
      Do
        CHSp = Instr(CHSp, ParseFile, Searchterm) - 1
          If CHSp > -1 then
            ParseFile = Left(ParseFile, CHSP) & Replaceterm & right(ParseFile, Len(ParseFile) - len(Searchterm) - CHSp)
          CHSp = CHSp + len(ReplaceTerm)
            end if
      Loop until CHSp = -1
    Next
  Next
End Sub

Public Sub EvacuateThumbs()
Dim FS ' Numeric location of the string TS in UnParsedFile'
Dim FQ ' Numeric Location of the quote mark " before _small.jpg.'
Dim LFS ' Last location of the end of the last TS found'
LFS = 1
  Do
    FS = Instr(LFS, ParseFile, TS)
    If FS > 0 then
      FQ = FS
      Do
        FQ = FQ - 1
      Loop until mid(ParseFile, FQ, 5) = "src=" + CHR(34)
      FQ = FQ + 4
      If not mid(Parsefile, FQ+1,7) = "thumbs\" then
        ParseFile = left(ParseFile, FQ) & "thumbs\" & right(ParseFile, len(ParseFile) - FQ)
      end if
      LFS = FS + 7
    end if
  Loop until FS = 0
End Sub

Public Sub KillText(TextToRemove)

Dim FQ ' Numeric Location of the start of DelStr.'
  Do
    FQ = Instr(1, ParseFile, TextToRemove)
    If FQ > 0 then
      If len(ParseFile) > FQ + Len(TextToRemove) then
        ParseFile = left(ParseFile, FQ - 1) & Right(Parsefile,len(ParseFile) - FQ - Len(TextToRemove) - 1)
      else
        ParseFile = left(ParseFile, FQ - 1)
      end if
    end if
  Loop until FQ = 0
End Sub

Public Sub BurnToDisk()
  Set objFile = objFSO.OpenTextFile(CFN & "\" & FN, 2, True)
  objFile.writeline(ParseFile)
  objFile.close
End Sub

Public Sub RenameFile()
Dim RealFileName ' Value from within <Title> element '
Dim FFN : FFN = left(FN, instr(1, lcase(FN), ".htm") - 1 ) ' Fake File Name, the name of the picture matching this HTML file '
  RealFileName = FindRFN(ParseFile)
  if Lcase(right(FN, 5)) = ".html" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".html"
  if Lcase(right(FN, 4)) = ".htm" then objFSO.moveFile CFN & "\" & FN, CFN & "\" & RealFileName & ".htm"
  if objFSO.FileExists(CFN & "\thumbs\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\thumbs\" & FFN & "_small.jpg" , CFN & "\thumbs\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & "_small.jpg") Then objFSO.moveFile CFN & "\" & FFN & "_small.jpg", CFN & "\" & RealFileName & "_small.jpg"
  if objFSO.FileExists(CFN & "\" & FFN & ".jpg") Then objFSO.moveFile CFN & "\" & FFN & ".jpg" , CFN & "\" & RealFileName & ".jpg"
End Sub

public function FindRN(Img) ' Find the real name of an image from the title attribute '
  Dim RN ' Real name '
  Dim RNSp : RNSp = 1 ' Real Name Start Position, location of the " before the real name of the picture. '
  Dim RNEp : RNEp = 1 ' Real Name End Position, location of the " after the real name of the picture. '

  RNSp = Instr(1, Img, "title=") + 7
  RNEp = RNSp
  Do
    RNEp = RNEp + 1
  loop until mid(img, RNEp, 1) = chr(34)
  RN = mid(img,RNSp, RNEp - RNSp)
  FindRN = RN
End function

public function FindFN(Img) ' Find the Fake name of an image from the title attribute '
  Dim FN ' Fake name '
  Dim FNSp : FNSp = 1 ' Fake Name Start Position, location of the " before the fake name of the picture. '
  Dim FNEp : FNEp = 1 ' Fake Name End Position, location of the " after the fake name of the picture. '

  FNSp = Instr(1, Img, "src=") + 5
  FNEp = Instr(FNSp, Img, "_small.jpg")
  If FNEp = 0 then FNEp = Instr(FNSp, Img, ".jpg")
  FN = mid(img,FNSp, FNEp - FNSp)
  FindFN = FN
End function

Public Function FindRFN(Text) ' Find the preferred name of the html file from the Title '
  Dim RFNSp: RFNSp = Instr(1, Text, "<title>") + 7 ' Real File Name Start Position '
  Dim RFNEp: RFNEp = Instr(RFNSp, Text, "</title>") ' Real File Name End Position '
  RFN = mid(Text, RFNSp, RFNEp - RFNSp)
  FindRFN = RFN
End Function

Public Sub Housten()
  MsgBox "Housten, We have a problem. Coming down to Earth, fast!"
  MSgBox "Partial Picture Identifier match--two pictures share either the same real name of the same fake name but not both."
  Wscript.quit
End sub

Public Sub Clean()
For X = 1 to ArraySize
FakePicName(X) = ""
RealPicName(X) = ""
Next 
NumOfPicNames = 1
Parsefile = ""
Arraysize = 5
ReDim FakePicName(ArraySize)
ReDim RealPicName(ArraySize)
End Sub