Dim ObjDiv
	Dim ObjDivID
	Sub Frys(DivNr,objId,got)
		if got<>"" then: parent.frames.Frame_1.location.href=got end if
		If isObject(ObjDiv) = False Then
			Set ObjDiv = TdId_3
			Set ObjDivID = DivID_3
		End If
		'--- hide old page ---'
		ObjDivID.style.visibility = "hidden"
		ObjDivID.style.display = "none"
		ObjDiv.className = "HovedmenuSelected"

		'--- show new page ---'
		DivNr.style.visibility = "visible"
		DivNr.style.display = ""
		objId.className = "Hovedmenu"
		Set ObjDiv = objId
		Set ObjDivID = DivNr
	End Sub