Public Sorgente

Sub Form_Reset
	Set Form_In_Page=document.forms
	For i=0 to Form_in_Page.length-1
		If ucase(Form_In_Page(i).Action)<>"TESTATA.ASP" AND Ucase(Form_In_Page(i).Action)<>"" Then
			Form_In_Page(i).Reset()
		End If
	Next
End Sub

St_class=""

Sub Menu_On
	Set Bottone=window.event.srcElement
	If Bottone.TagName<>"LI" Then
		Do while Bottone.Tagname<>"TR"
			Set Bottone=Bottone.ParentElement
		Loop
	End If
		st_class=Bottone.Classname
		Bottone.Classname="Menu_Evidenziato"
End Sub

Sub Menu_Off
	Set Bottone=window.event.srcElement
		If Bottone.Tagname="TD" Then Set Bottone=Bottone.parentElement
		Bottone.Classname=St_Class
End Sub

Sub Btn_On
	Set Bottone=window.event.srcElement
		Bottone.Classname="Pulsanti_Evidenziati"
End Sub

Sub Btn_Off
	Set Bottone=window.event.srcElement
		Bottone.Classname=""
End Sub

Sub Btn_Press
	Set Bottone=window.event.srcElement
		Bottone.Classname="Pulsanti_Premuti"
End Sub

Sub Btn_Release
	Btn_Off
End Sub

Sub MostraCalendario(Oggetto)
	set Sorgente=Document.all(Oggetto)
	Data=window.ShowModalDialog("DateDialog.asp","","dialogWidth=250px;dialogHeight=250px;scrollbar=no;status=no;")
	If Data<>"" then Sorgente.value=Data 
End Sub

Sub CheckData
	Data=window.event.srcElement.value
	if data<>"" and not isdate(data) then
		alert("Data Non Valida")
		Sorgente.value=""
	end if
End Sub

Sub ImageList(nome)
	Set Destinazione=Document.getelementsbyname(nome)(0)
	Url="ListaImmagini.asp?nome="&nome
	Finestra=window.showmodelessdialog(Url,window,"menubar:no;scrollbars=yes;Width=720;Height=250;status=no")
End SUb

Sub ListaFoto(nome)
	Set Destinazione=Document.getelementsbyname(nome)(0)
	Url="Listaimmagini_Foto.asp?nome="&nome
	Finestra=window.showmodelessdialog(Url,window,"menubar:no;scrollbars=yes;Width=720;Height=250;status=no")
End SUb


Sub FileList(nome)
	Set Destinazione=Document.getelementsbyname(nome)(0)
	Url="Documenti_lista.asp?nome="&nome
	Finestra=window.showmodelessdialog(Url,window,"menubar:no;scrollbars=yes;Width=720;Height=250;status=no")
End SUb

window.top.document.title=document.title