// JavaScript Document

	function taLimit() {
		var taObj=event.srcElement;
		if (taObj.value.length==taObj.maxLength*1) return false;
	}
	
	function taCount(visCnt) { 
		var taObj=event.srcElement;
		if (taObj.value.length>taObj.maxLength*1) taObj.value=taObj.value.substring(0,taObj.maxLength*1);
		if (visCnt) visCnt.innerText=taObj.maxLength-taObj.value.length;
	}	
	
	function OpenForum() 
	{
		window.open("forum/all.asp?fnumber=1"); 
	}	
	
	
	function delete_row(iPage, id)
		Select Case iPage
			Case "nav1"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את כפתור הניווט וכן את תת הנושאים הקשורים אליו "
			Case "nav2"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את כפתור הניווט "
			Case "news"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הידיעה החדשותית "
			Case "albums"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את האלבום "	
			Case "diary"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את יומן האירועים "										
			Case "mem"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את החבר "	
			Case "grp"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הקבוצה "
			Case "ev_cat"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את קטגורית האירועים "
			Case "occ"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את המקצוע "	
			Case "pp"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הדף האישי "																										
			Case "alb_cat"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את סוג הקטגוריה "																										
			Case "nl"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הנושא "
			Case "gr_type"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את סוג הקבוצה "																										
			Case "boLnk"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הלינק למודול "																										
			Case "ftp_auth"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את ההרשאה "																										
			Case "nbg"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את ההודעה "
			Case "que"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את השאלה "
			Case "ans"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את התשובה "
			Case "reales"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הנכס"	
			Case "asset"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את סוג הנכס"	
			Case "art_cat"
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הרשומה"					
			Case else
				iMsg = "? האם אתה בטוח כי ברצונך למחוק את הרשומה"		
		End select
		
		REM -- Actual deleting
		if msgbox(iMsg, VbYesNo, "מחיקה")=6 then
			document.delete.submit()  
		end if
		
	end function