sub theBody_onkeypress
	exit sub
	'Fast Refresh
	if window.event.keyCode=82 then
		window.open document.url,"_top"
	end if
	if 1=2 and window.event.keyCode=78 then
		AddContentShow
	end if
end sub

sub navSubjOver
	window.event.srcElement.style.backgroundcolor="eeeeff"
end sub

sub navSubjOut
	window.event.srcElement.style.backgroundcolor="ccddee"
end sub

sub showBig(inItem,inNumber)
	window.open "/showbigPicture.asp?jpeg=items!!item" & inItem & "-" & inNumber & ".jpg","_new","menubar=false,resizable =false,scrollbars =false,status =false,titlebar =false,toolbar =false"
end sub

sub showHide(inItem)
	on error resume next
	if inItem.style.display="none" then
		inItem.style.display=""
	else
		inItem.style.display="none"
	end if
	if err.number<>0 then msgbox "Error:ShowHide"
end sub