<!--
Sub checkdata()
	If Trim(YuQaIFS_Feedback.Feedback_Title.value)=empty Then
		Window.Alert"The subject can not be empty."
		Exit Sub
	End If
	If Trim(YuQaIFS_Feedback.Feedback_Type.value)=empty Then
		Window.Alert"The comment cause can not be empty."
		Exit Sub
	End If
	If Trim(YuQaIFS_Feedback.Feedback_Name.value)=empty Then
		Window.Alert"The name can not be empty."
		Exit Sub
	End If
	If Trim(YuQaIFS_Feedback.Feedback_Mail.value)=empty Then
		Window.Alert"The e-mail can not be empty."
		Exit Sub
	End If
	If Trim(YuQaIFS_Feedback.Feedback_From.value)=empty Then
		Window.Alert"The from can not be empty."
		Exit Sub
	End If
	If Trim(YuQaIFS_Feedback.Feedback_Mail.value)<>"" Then
		IsEmail = True
		sEmail  = Trim(YuQaIFS_Feedback.Feedback_Mail.value)
    	If instr(1,sEmail,"@")<=1 Or instr(1,sEmail,".")<1 then
        	IsEmail = False
	    Elseif instr(1,sEmail,".") = instr(1,sEmail,"@")+1 Then
    	    IsEmail = False
	    ElseIf Mid(sEmail,(InStr(1,sEmail,".")+1)) = "" Then
    	    IsEmail = False
    End if
	    If Not IsEmail Then
    		Window.Alert"The form of the E-MAIL ID is erroneous."
    		Exit Sub
	    Else
        	CheckEmail = sEmail
	    End If
	End If
	If Trim(YuQaIFS_Feedback.Feedback_Info.value)=empty Then
		Window.Alert"The content can not be empty."
		Exit Sub
	End If
YuQaIFS_Feedback.submit	
End Sub
-->