function ow(name,h,w)
		openwindowxx name,h,w
	end function
	
	function owf(h,w)
		openwindowf h,w
	end function
	
	sub openwindowxx(name,h,w)
		dim strname
		strname = "dafMakdim_Link" + cstr(name) + ".aspx"
		select case name
			case 3
				scrl = "no"
			case 1,4
				scrl = "yes"
		end select
		dim x
		dim y
		x = (window.screen.availwidth - w) / 2 
		if window.screen.availheight > h then
			y = (window.screen.availheight - h) / 2
		else
			y = 0
		end if
		
		dim str
		str = "dialogHeight:" & h & "px; dialogWidth: " & w & "px; dialogLeft: " & x & "px; dialogTop: " & y & "px; status: No; scroll:" & scrl  
		window.showmodaldialog strname,	0, cstr(str)
	end sub
	
	sub openwindowf(h,w)
	'	strname = "http://www.magamaga.com/addwise/800x600.html"
	'	strname = "http://www.magamaga.com/addwise/gemelNet.html"
	    strname = "http://gemelnet.mof.gov.il/tsuot/ui/siurMudrach.aspx"
	'   strname = "http://localhost/gemeltsuotui/tsuot/ui/siurMudrach.aspx"
		'scrl = "no"
		h = window.screen.availwidth
		w = window.screen.availheight

		window.open strname,"siur_mudrach", _
			"resizable=1,scrollbars=1,width=" & window.screen.availwidth & _
									  "height=" & window.screen.availheight & _
									  "left = 0, top=0"
	end sub