sub SetTimeFrame (name1,name2,iyear,imonth,iday,iyearend,imonthend,idayend)
	'onclick="SetTimeFrame('x','nr2',#Timeframe1Year#,#Timeframe1Month#,#Timeframe1Day#,#Timeframe1EndYear#,#Timeframe1EndMonth#,#Timeframe1EndDay#);">
	
	'msgbox name1 & ":" & name2 & ":" & iyear & ":" & imonth & ":" & iday & ":" & iyearend & ":" & imonthend & ":" & idayend
	
	'Set FROM Date
	document.all(name1+"IDcmbDateYear").value = iyear
	document.all(name1+"IDcmbDateMonth").value = imonth
	document.all(name1+"IDcmbDateDay").value = iday
	
	'Set TO Date
	document.all(name2+"IDcmbDateYear").value = iyearend
	document.all(name2+"IDcmbDateMonth").value = imonthend
	document.all(name2+"IDcmbDateDay").value = idayend
end sub

sub check_date (lyear,lmonth,lday,lhour,lminute,lsecond,nofuture,nameprefix)

	dim newdate
	newdate =  document.all(nameprefix+"IDcmbDateDay").value & "/" & document.all(nameprefix+"IDcmbDateMonth").value & "/"  & document.all(nameprefix+"IDcmbDateYear").value

	'Validate the selected date
	if Isdate(newdate) = "False" then

		if lyear = 0 then
			msgbox "VALIDATION ERROR" & VbCrLf & VbCrLf & "- Invalid date format." & VbCrLf & "- The date/time will be reset to now.", 64, "Invalid Date Format"			
			document.all(nameprefix+"IDcmbDateYear").value = Year(Now())
			document.all(nameprefix+"IDcmbDateDay").value = Day(Now())
			document.all(nameprefix+"IDcmbDateMonth").value = Month(Now())
			On Error Resume Next
			document.all(nameprefix +"IDcmbDateHour").value = Hour(Now())
			document.all(nameprefix +"IDcmbDateMinute").value = Minute(Now())
			document.all(nameprefix +"IDcmbDateSecond").value = Second(Now())
			On Error Goto 0
		else
			msgbox "VALIDATION ERROR" & VbCrLf & VbCrLf & "- Invalid date format." & VbCrLf & "- The date/time will be reset.", 64, "Invalid Date Format"
			document.all(nameprefix+"IDcmbDateYear").value = lyear
			document.all(nameprefix+"IDcmbDateDay").value = lday
			document.all(nameprefix+"IDcmbDateMonth").value = lmonth
			On Error Resume Next
			document.all(nameprefix +"IDcmbDateHour").value = lhour
			document.all(nameprefix +"IDcmbDateMinute").value = lminute
			document.all(nameprefix +"IDcmbDateSecond").value = lsecond
			On Error Goto 0
		end if
		
	else
		if LCase(noFuture) = "true" then
			if DateDiff("d",Now(),newdate) > 0 Then 
				msgbox "NOT ALLOWED" & VbCrLf & VbCrLf & "- Date selected is in the future." & VbCrLf & "- The date/time will be reset to now.", 64, "Invalid Date"
				document.all(nameprefix+"IDcmbDateYear").value = Year(Now())
				document.all(nameprefix+"IDcmbDateDay").value = Day(Now())
				document.all(nameprefix+"IDcmbDateMonth").value = Month(Now())
				On Error Resume Next
				document.all(nameprefix +"IDcmbDateHour").value = Hour(Now())
				document.all(nameprefix +"IDcmbDateMinute").value = Minute(Now())
				document.all(nameprefix +"IDcmbDateSecond").value = Second(Now())
				On Error Goto 0
			end if
		end if
	end if

end sub

Sub AdvancedSearch()
	On Error Resume Next
	Caller()
End Sub