Function Obrir(Camp)
	Dim Resposta, X, Y
	X = window.event.screenX - 5
	Y = window.event.screenY + 6
	if X > 180 then X = X -180
	Resposta = Window.ShowModalDialog ("./asp/Calendari.asp","","dialogwidth=175px; dialogheight=270px; dialogtop=" & Y & "px; dialogleft=" & X & "px; scroll=no; status=no; help=no")
	if Resposta <> "" then Camp.value = Resposta
End Function