' VB Script Document

Sub Pictu1_OnClick()
		PicNo=1
		Call ChangePic(PicNo)
End Sub
Sub Pict1_OnClick()
		PicNo=1
		Call ChangePic(PicNo)
End Sub
Sub Pic1_OnClick()
		PicNo=1
		Call ChangePic(PicNo)
End Sub
Sub Pictu2_OnClick()
		PicNo=2
		Call ChangePic(PicNo)
End Sub
Sub Pict2_OnClick()
		PicNo=2
		Call ChangePic(PicNo) 
End Sub
Sub Pic2_OnClick()
		PicNo=2
		Call ChangePic(PicNo)
End Sub
Sub Pictu3_OnClick()
		PicNo=3		
		Call ChangePic(PicNo)
End Sub
Sub Pict3_OnClick()
PicNo=3		
		Call ChangePic(PicNo)
End Sub
Sub Pic3_OnClick()
		PicNo=3		
		Call ChangePic(PicNo)
End Sub
Sub Pictu4_OnClick()
PicNo=4		
		Call ChangePic(PicNo) 
End Sub
Sub Pict4_OnClick()
		PicNo=4		
		Call ChangePic(PicNo) 
End Sub
Sub Pic4_OnClick()
		PicNo=4		
		Call ChangePic(PicNo) 
End Sub
Sub Pictu5_OnClick()
		PicNo=5		
		Call ChangePic(PicNo) 
End Sub
Sub Pict5_OnClick()
		PicNo=5		
		Call ChangePic(PicNo) 
End Sub
Sub Pic5_OnClick()
		PicNo=5		
		Call ChangePic(PicNo)
End Sub
Sub Pictu6_OnClick()
		PicNo=6		
		Call ChangePic(PicNo) 
End Sub
Sub Pict6_OnClick()
		PicNo=6		
		Call ChangePic(PicNo) 
End Sub
Sub Pic6_OnClick()
		PicNo=6		
		Call ChangePic(PicNo) 
End Sub
Sub Pictu7_OnClick()
		PicNo=7		
		Call ChangePic(PicNo)
End Sub
Sub Pict7_OnClick()
		PicNo=7		
		Call ChangePic(PicNo) 
End Sub
Sub Pic7_OnClick()
		PicNo=7		
		Call ChangePic(PicNo)
End Sub
Sub Pictu8_OnClick()
		PicNo=8		
		Call ChangePic(PicNo) 
End Sub
Sub Pict8_OnClick()
		PicNo=8		
		Call ChangePic(PicNo) 
End Sub
Sub Pic8_OnClick()
		PicNo=8		
		Call ChangePic(PicNo) 
End Sub
Sub Pictu9_OnClick()
		PicNo=9		
		Call ChangePic(PicNo)
End Sub
Sub Pict9_OnClick()
		PicNo=9		
		Call ChangePic(PicNo)
End Sub
Sub Pic9_OnClick()
		PicNo=9		
		Call ChangePic(PicNo) 
End Sub
Sub Pictu10_OnClick()
		PicNo=10		
		Call ChangePic(PicNo)
End Sub
Sub Pict10_OnClick()
		PicNo=10		
		Call ChangePic(PicNo) 
End Sub
Sub Pic10_OnClick()
		PicNo=10		
		Call ChangePic(PicNo)
End Sub
Sub Pictu11_OnClick()
		PicNo=11		
		Call ChangePic(PicNo)
End Sub
Sub Pict11_OnClick()
		PicNo=11		
		Call ChangePic(PicNo) 
End Sub
Sub Pic11_OnClick()
		PicNo=11		
		Call ChangePic(PicNo)
End Sub
Sub Pictu12_OnClick()
		PicNo=12		
		Call ChangePic(PicNo)
End Sub
Sub Pict12_OnClick()
		PicNo=12		
		Call ChangePic(PicNo) 
End Sub
Sub Pic12_OnClick()
		PicNo=12		
		Call ChangePic(PicNo)
End Sub
Sub Pictu13_OnClick()
		PicNo=13		
		Call ChangePic(PicNo)
End Sub
Sub Pict13_OnClick()
		PicNo=13		
		Call ChangePic(PicNo) 
End Sub
Sub Pic13_OnClick()
		PicNo=13		
		Call ChangePic(PicNo)
End Sub
Sub Pictu14_OnClick()
		PicNo=14		
		Call ChangePic(PicNo)
End Sub
Sub Pict14_OnClick()
		PicNo=14		
		Call ChangePic(PicNo) 
End Sub
Sub Pic14_OnClick()
		PicNo=14		
		Call ChangePic(PicNo)
End Sub
Sub Pictu15_OnClick()
		PicNo=15		
		Call ChangePic(PicNo)
End Sub
Sub Pict15_OnClick()
		PicNo=15		
		Call ChangePic(PicNo) 
End Sub
Sub Pic15_OnClick()
		PicNo=15		
		Call ChangePic(PicNo)
End Sub
Sub Pictu16_OnClick()
		PicNo=16		
		Call ChangePic(PicNo)
End Sub
Sub Pict16_OnClick()
		PicNo=16		
		Call ChangePic(PicNo) 
End Sub
Sub Pic16_OnClick()
		PicNo=16		
		Call ChangePic(PicNo)
End Sub
Sub Pictu17_OnClick()
		PicNo=17		
		Call ChangePic(PicNo)
End Sub
Sub Pict17_OnClick()
		PicNo=17		
		Call ChangePic(PicNo) 
End Sub
Sub Pic17_OnClick()
		PicNo=17		
		Call ChangePic(PicNo)
End Sub
Sub Pictu18_OnClick()
		PicNo=18		
		Call ChangePic(PicNo)
End Sub
Sub Pict18_OnClick()
		PicNo=18		
		Call ChangePic(PicNo) 
End Sub
Sub Pic18_OnClick()
		PicNo=18		
		Call ChangePic(PicNo)
End Sub
Sub Pictu19_OnClick()
		PicNo=19		
		Call ChangePic(PicNo)
End Sub
Sub Pict19_OnClick()
		PicNo=19		
		Call ChangePic(PicNo) 
End Sub
Sub Pic19_OnClick()
		PicNo=19		
		Call ChangePic(PicNo)
End Sub
Sub Pictu20_OnClick()
		PicNo=20		
		Call ChangePic(PicNo)
End Sub
Sub Pict20_OnClick()
		PicNo=20		
		Call ChangePic(PicNo) 
End Sub
Sub Pic20_OnClick()
		PicNo=20		
		Call ChangePic(PicNo)
End Sub
Sub Pictu21_OnClick()
		PicNo=21		
		Call ChangePic(PicNo)
End Sub
Sub Pict21_OnClick()
		PicNo=21		
		Call ChangePic(PicNo) 
End Sub
Sub Pic21_OnClick()
		PicNo=21		
		Call ChangePic(PicNo)
End Sub
Sub Pictu22_OnClick()
		PicNo=22		
		Call ChangePic(PicNo)
End Sub
Sub Pict22_OnClick()
		PicNo=22		
		Call ChangePic(PicNo) 
End Sub
Sub Pic22_OnClick()
		PicNo=22		
		Call ChangePic(PicNo)
End Sub
Sub Pictu23_OnClick()
		PicNo=23		
		Call ChangePic(PicNo)
End Sub
Sub Pict23_OnClick()
		PicNo=23		
		Call ChangePic(PicNo) 
End Sub
Sub Pic23_OnClick()
		PicNo=23		
		Call ChangePic(PicNo)
End Sub
Sub Pictu24_OnClick()
		PicNo=24		
		Call ChangePic(PicNo)
End Sub
Sub Pict24_OnClick()
		PicNo=24		
		Call ChangePic(PicNo) 
End Sub
Sub Pic24_OnClick()
		PicNo=24		
		Call ChangePic(PicNo)
End Sub
Sub Pictu25_OnClick()
		PicNo=25		
		Call ChangePic(PicNo)
End Sub
Sub Pict25_OnClick()
		PicNo=25		
		Call ChangePic(PicNo) 
End Sub
Sub Pic25_OnClick()
		PicNo=25		
		Call ChangePic(PicNo)
End Sub

Sub Pictu26_OnClick()
		PicNo=26		
		Call ChangePic(PicNo)
End Sub
Sub Pict26_OnClick()
		PicNo=26		
		Call ChangePic(PicNo) 
End Sub
Sub Pic26_OnClick()
		PicNo=26		
		Call ChangePic(PicNo)
End Sub

Sub Pictu27_OnClick()
		PicNo=27		
		Call ChangePic(PicNo)
End Sub
Sub Pict27_OnClick()
		PicNo=27		
		Call ChangePic(PicNo) 
End Sub
Sub Pic27_OnClick()
		PicNo=27		
		Call ChangePic(PicNo)
End Sub
Sub Pictu28_OnClick()
		PicNo=28		
		Call ChangePic(PicNo)
End Sub
Sub Pict28_OnClick()
		PicNo=28		
		Call ChangePic(PicNo) 
End Sub
Sub Pic28_OnClick()
		PicNo=28		
		Call ChangePic(PicNo)
End Sub
Sub Pictu29_OnClick()
		PicNo=29		
		Call ChangePic(PicNo)
End Sub
Sub Pict29_OnClick()
		PicNo=29		
		Call ChangePic(PicNo) 
End Sub
Sub Pic29_OnClick()
		PicNo=29		
		Call ChangePic(PicNo)
End Sub
Sub Pictu30_OnClick()
		PicNo=30		
		Call ChangePic(PicNo)
End Sub
Sub Pict30_OnClick()
		PicNo=30		
		Call ChangePic(PicNo) 
End Sub
Sub Pic30_OnClick()
		PicNo=30		
		Call ChangePic(PicNo)
End Sub
Sub ChangePic(TempPicNo)
		Call LandorHead()		
		PicPath="images/Pic" & TempPicNo & ".JPG"
		window.Document.MainPic.src=PicPath
		MainForm.MainText.Value=eval("PicTextVar" & PicNo)
End Sub
Sub Next_OnClick()
		
		If PicNo <> NoOfPics then
			PicNo = PicNo + 1
		end if
		Call ChangePic(PicNo)
End Sub
Sub Previous_OnClick()
		If PicNo <> 1 then
			PicNo = PicNo - 1
		end if
		Call ChangePic(PicNo)
End Sub

sub ChangeCategory(x)
	if x = 1 then
		PhotoImage=true
	end if
	if x = 2 then
		PhotoImage=false
	end if
end sub
Sub LandorHead()
	if eval("Land" & PicNo)=True and window.Document.MainPic.width <> LandPicWidth then
		window.Document.MainPic.width = LandPicWidth
		window.Document.MainPic.height = LandPicHeight
	end if
	if eval("Land" & PicNo)=False and window.Document.MainPic.width <> HeadPicWidth then
		window.Document.MainPic.width = HeadPicWidth
		window.Document.MainPic.height = HeadPicHeight
	end if
end sub