' File= Includes\Farsi\vbs\OrderF.vbs

Dim asReqFldNames(20)

Sub clearComments()

	Dim iSize, sComments, isEmpty, i
	Dim sChar, iUnicode, sVal
		
	sComments = Trim(frmFarsi.txtComments.value)
	iSize = Len(sComments)
	isEmpty = true
		
	for i = 1 to iSize
		sChar = Mid(sComments,i,1)
		iUnicode = AscW(sChar)
		if (iUnicode <> 32) And (iUnicode <> 13) And (iUnicode <> 9 ) _
				And(iUnicode <> 10) then
			isEmpty = false
			Exit for
		End if
	Next
	if isEmpty then
		frmFarsi.txtComments.value = ""
	End if
	
End Sub


Sub setReqFldNames()
	
	Dim i 
	
	for i = 0 to UBound(asReqFldNames)
		asReqFldNames(i) = ""	
	next
	
	asReqFldNames(0) = "First name"
	asReqFldNames(1) = "Last name"
	asReqFldNames(2) = "Tel"
	asReqFldNames(3) = "Address"
	asReqFldNames(4) = "Matter"
	asReqFldNames(5) = "Description"
	
End sub


function isReqField(sFieldName)
	
	bIsReq = false
	
	for i = 0 to UBound(asReqFldNames)
		if Len(asReqFldNames(i)) = 0 then
			Exit for
		else
			if sFieldName = asReqFldNames(i) then
				bIsReq = true
				Exit for
			end if 	
		end if
	next
	
	isReqField = bIsReq
		
End function


Sub onSumbitFarsiForm()
		
	if validateFarsiForm() then
		' Write unicode string to textboxes for submission
		frmFarsi.UTxtFName.value = getUnicodeString(Trim(frmFarsi.txtFName.value))
		frmFarsi.UTxtLName.value = getUnicodeString(Trim(frmFarsi.txtLName.value))
		frmFarsi.UTxtDegree.value = getUnicodeString(Trim(frmFarsi.txtDegree.value))
		frmFarsi.UTxtProf.value = getUnicodeString(Trim(frmFarsi.txtProf.value))
		frmFarsi.UTxtTel.value = getUnicodeString(Trim(frmFarsi.txtTel.value))
		frmFarsi.UTxtFax.value = getUnicodeString(Trim(frmFarsi.txtFax.value))
		frmFarsi.UTxtAdd.value = getUnicodeString(Trim(frmFarsi.txtAdd.value))
		frmFarsi.UTxtMatter.value = getUnicodeString(Trim(frmFarsi.txtMatter.value))
		frmFarsi.UTxtComments.value = getUnicodeStringTextArea(Trim(frmFarsi.txtComments.value))
	Else
		window.event.returnValue = false
	End if
		
End Sub
	
Function validateFarsiForm()
		
	' Validates first & last names, Tel, address, city,
	' and country for empty fields. Ignores fax & email.
	
	Const sMsgPrefix = "The following is required:"
	Dim bErrorFound, sName, sText, ctrl
	Dim sMsg
		
	bErrorFound = False
	for each ctrl in frmFarsi
		if Left(ctrl.id,3) = "txt" then
			sText = Trim(ctrl.Value)
			if Len(sText) = 0 then
				sName = ctrl.Name
				ctrl.value = ""
				if isReqField(sName) then
					sMsg = sMsgPrefix & sName
					bErrorFound = True
					MsgBox(sMsg)
					ctrl.focus
					bErrorFound = True
					Exit For
				End if
			End if
		End if
	Next
		
	validateFarsiForm = Not(bErrorFound)
		
End Function

	
Sub onBtnResetClick()
		
	Dim ctrl
		
	' Clear all text fields
	for each ctrl in frmFarsi
		if Left(ctrl.id,3) = "txt" then
			ctrl.value = ""
		End if
	next
	
	frmFarsi.RbRequest0.click()
		
	' Set focus on the first name
	frmFarsi.txtFName.focus
	
		
End sub	

Sub onBtnSendClick()
	Dim sHref
		
	sHref = "ConfirmF.asp"
	location.href = sHref
		
End Sub