Function check()
On error resume next
Dim i
Dim Str
check=true
If document.mzak.FIORus.Value="" then
	check=false
	msgbox("Укажите фамилию")
	document.mzak.FIORus.focus()
	exit function
end if
if len(document.mzak.PhoneWork1.Value)<4 and  len(document.mzak.PhoneWork2.Value)<4 and len(document.mzak.PhoneHome.Value)<4 and len(document.mzak.PhoneMobile.Value)<4 then
	check=false
	msgbox("Укажите свои телефоны")
	document.mzak.PhoneWork1.focus()
	Exit function
end If
If (document.mzak.city.value="no_region") OR (document.mzak.city.value="-") Then
	check=false
	msgbox("Пожалуйста укажите свой регион для доставки")
	document.mzak.city.focus()
	exit function
End If
For i=0 to document.mzak.elements.length-1
	If document.mzak.elements(i).type = "checkbox" Then
		If Left(document.mzak.elements(i).name,4)="cat[" Then
			' только каталоги
			If document.mzak.elements(i).checked=TRUE Then
			' значит хоть один каталог выбран можно выходить из цикла
				Exit For
			End if
		End if
	End If
	If i=document.mzak.elements.length-1 Then
	' т.е. дошли до конца а не нашли отмеченного флажка
		check=false
		msgbox("Вы не выбрали ни одного каталога, пожалуйста отметьте галочками каталоги, которые Вы хотите получить")
		exit Function
	End If
Next 
End Function
Function check_sale()
on error resume next
check_sale=true
if document.mzak1.FIORus.Value="" then
	check=false
	msgbox("Укажите фамилию")
	exit function
end if
if len(document.mzak1.PhoneWork1.Value)<4 and  len(document.mzak1.PhoneWork2.Value)<4 and len(document.mzak1.PhoneHome.Value)<4 and len(document.mzak1.PhoneMobile.Value)<4 then
	check_sale=false
	msgbox("Укажите свои телефоны")
	exit function
end if
End Function