Option Explicit
On Error Resume Next

Sub changeImage1(sTagID)
	Select Case sTagID
		Case "home"
			document.all.thumb.src="images/homepage_small.jpg"
			document.all.home.style.color="#FFFFFF"
		Case "reviews"
			document.all.thumb.src="images/reviews_small.jpg"
			document.all.reviews.style.color="#FFFFFF"
		Case "info"
			document.all.thumb.src="images/info_small.jpg"
			document.all.info.style.color="#FFFFFF"
		Case "shows"
			document.all.thumb.src="images/shows_small.jpg"
			document.all.shows.style.color="#FFFFFF"
		Case "photos"
			document.all.thumb.src="images/photos_small.jpg"
			document.all.photos.style.color="#FFFFFF"
		Case "lyrics"
			document.all.thumb.src="images/ficcaphoto_small.jpg"
			document.all.lyrics.style.color="#FFFFFF"
		Case "downloads"
			document.all.thumb.src="images/downloads_small.jpg"
			document.all.downloads.style.color="#FFFFFF"
		Case "hoard"
			document.all.thumb.src="images/hoard_small.jpg"
			document.all.hoard.style.color="#FFFFFF"
		Case "contact"
			document.all.thumb.src="images/contact_small.jpg"
			document.all.contact.style.color="#FFFFFF"
		Case "guest"
			document.all.thumb.src="images/guest_small.jpg"
			document.all.guest.style.color="#FFFFFF"
		Case "links"
			document.all.thumb.src="images/links_small.jpg"
			document.all.links.style.color="#FFFFFF"
		Case else
		' do nothing
	End select
End Sub

Sub changeImage2(sTagID)
	Select Case sTagID
		Case "home"
			document.all.thumb.src="images/black.jpg"
			document.all.home.style.color="#AAAAAA"
		Case "reviews"
			document.all.thumb.src="images/black.jpg"
			document.all.reviews.style.color="#AAAAAA"
		Case "info"
			document.all.thumb.src="images/black.jpg"
			document.all.info.style.color="#AAAAAA"
		Case "shows"
			document.all.thumb.src="images/black.jpg"
			document.all.shows.style.color="#AAAAAA"
		Case "photos"
			document.all.thumb.src="images/black.jpg"
			document.all.photos.style.color="#AAAAAA"
		Case "lyrics"
			document.all.thumb.src="images/black.jpg"
			document.all.lyrics.style.color="#AAAAAA"
		Case "downloads"
			document.all.thumb.src="images/black.jpg"
			document.all.downloads.style.color="#AAAAAA"
		Case "hoard"
			document.all.thumb.src="images/black.jpg"
			document.all.hoard.style.color="#AAAAAA"
		Case "contact"
			document.all.thumb.src="images/black.jpg"
			document.all.contact.style.color="#AAAAAA"
		Case "guest"
			document.all.thumb.src="images/black.jpg"
			document.all.guest.style.color="#AAAAAA"
		Case "links"
			document.all.thumb.src="images/black.jpg"
			document.all.links.style.color="#AAAAAA"
		Case else
		' do nothing
	End Select
End Sub

Sub onlyImage1(sTagID)
	Select Case sTagID
		Case "home"
			document.all.thumb.src="images/homepage.jpg"
		Case "reviews"
			document.all.thumb.src="images/reviews.jpg"
		Case "info"
			document.all.thumb.src="images/info.jpg"
		Case "shows"
			document.all.thumb.src="images/shows.jpg"
		Case "photos"
			document.all.thumb.src="images/photos.jpg"
		Case "lyrics"
			document.all.thumb.src="images/ficcaphoto.jpg"
		Case "downloads"
			document.all.thumb.src="images/downloads.jpg"
		Case "hoard"
			document.all.thumb.src="images/hoard.jpg"
		Case "contact"
			document.all.thumb.src="images/contact.jpg"
		Case "guest"
			document.all.thumb.src="images/guest.jpg"
		Case "links"
			document.all.thumb.src="images/links.jpg"
		Case else
		' do nothing
	End select
End Sub

Sub onlyImage2(sTagID)
	document.all.thumb.src="images/black.jpg"
End Sub