Function chkAddress()

              chkAddress=true

           
           
	   End Function
				
		sub btnSave_onClick()	
			window.event.returnValue = DataCheck()	
		end sub

		Function DataCheck()
		    dim strMessage,birth1,birth2,birth3
		    strMessage=""
		    DataCheck=false

			if CGetVal("Mother")="" then
			   strMessage=strMessage & "請填寫申請者!!" & chr(13)
			else
               if checkChinese(CGetVal("Mother"))=false then
                  strMessage=strMessage & "申請者只能填寫中文!!" & chr(13)
               end if               
			end if
			
			if CGetVal("father")<>"" then
               if checkChinese(CGetVal("father"))=false then
				  strMessage=strMessage & "配偶只能填寫中文!!" & chr(13)
               end if               
			end if
								
			if (CGetVal("TelH_Num")<>"" and CGetVal("TelH")<>"") then
			   strTelH=CGetVal("TelH_Num") & "-" & CGetVal("TelH")
			else
			   strTelH=""
			end if
			if (CGetVal("TelO_Num")<>"" and CGetVal("TelO")<>"") then
			   strTelO=CGetVal("TelO_Num") & "-" & CGetVal("TelO")
			else
			   strTelO=""
			end if
			strMPhone=CGetVal("MPhone")
			if (strTelH<>"" and len(strTelH)<10) then
			   strMessage=strMessage & "住宅電話填寫錯誤!!" & chr(13)
			end if
			if (strTelO<>"" and len(strTelO)<10) then
			   strMessage=strMessage & "公司電話填寫錯誤!!" & chr(13)
			end if
			if (strMPhone<>"" and len(strMPhone)<10) then
			   strMessage=strMessage & "手機電話填寫錯誤!!" & chr(13)
			end if						
			if (strTelH="" and strTelO="" and strMPhone="") then
			   strMessage=strMessage & "請至少填寫二支聯絡電話!!" & chr(13)
			elseif (strTelH<>"" and strTelO="" and strMPhone="") then
			   strMessage=strMessage & "請至少填寫二支聯絡電話!!" & chr(13)
			elseif (strTelH="" and strTelO<>"" and strMPhone="") then
			   strMessage=strMessage & "請至少填寫二支聯絡電話!!" & chr(13)
			elseif (strTelH="" and strTelO="" and strMPhone<>"") then
			   strMessage=strMessage & "請至少填寫二支聯絡電話!!" & chr(13)
			end if
				
			if CGetVal("ZipCode")="" then
			   strMessage=strMessage & "請填寫郵遞區號!!"+chr(13)
			end if
			
			if CGetVal("Address")="" then
			   strMessage=strMessage & "請填寫地址!!"+chr(13)
			else
			   if chkAddress=false then
			      strMessage=strMessage & "地址輸入錯誤，將無法寄出贈品!!"+chr(13)
			   end if
			end if
			
			birth1=""
			birth2=""
			birth3=""	    
			if (CGetVal("YY1")<>"" and CGetVal("MM1")<>"" and CGetVal("DD1")<>"") then
				birth1= cstr(CGetVal("YY1")+1911) &"/"&  cstr(CGetVal("MM1")) & "/"& cstr(CGetVal("DD1"))
				if isdate(birth1)=false then 
				   birth1=""
				else
				   if birth1<=get_toDate() then
					  strMessage=strMessage & "預產期已過，請重新輸入!!"+chr(13)
				   end if
 			       if birth1>get_toDateAdd(190) then
				      strMessage=strMessage & "限懷孕三個月以上孕媽咪填寫，請重新輸入!!"+chr(13)
				   elseif birth1>get_toDateAdd(280) then
				      strMessage=strMessage & "預產期超過280天，請重新輸入!!"+chr(13)
				   end if
				end if				
			end if
			if (CGetVal("YY2")<>"" and CGetVal("MM2")<>"" and CGetVal("DD2")<>"") then
				birth2= cstr(CGetVal("YY2")+1911) &"/"&  cstr(CGetVal("MM2")) & "/"& cstr(CGetVal("DD2"))
				if isdate(birth2)=false then birth2=""
			end if
			if (CGetVal("YY3")<>"" and CGetVal("MM3")<>"" and CGetVal("DD3")<>"") then
				birth3= cstr(CGetVal("YY3")+1911) &"/"&  cstr(CGetVal("MM3")) & "/"& cstr(CGetVal("DD3"))
				if isdate(birth3)=false then birth3=""
			end if
			if (birth1="" and birth2="" and birth3="") then 
			   strMessage=strMessage & "請填寫小孩生日!!"+chr(13)
			end if

			if birth2<>"" then
			   if CGetVal("baby2")="" then strMessage=strMessage & "請填寫小孩姓名!!"+chr(13)
			   if CGetVal("Sex2")="" then strMessage=strMessage & "請選擇小孩性別!!"+chr(13)
			end if
			
			if birth3<>"" then
			   if CGetVal("baby3")="" then strMessage=strMessage & "請填寫小孩姓名!!"+chr(13)
			   if CGetVal("Sex3")="" then strMessage=strMessage & "請選擇小孩性別!!"+chr(13)
			end if			
			
			strEMail=CGetVal("EMail")
			if strEMail<>"" then 
				if len(strEMail)-len(replace(replace(strEMail,"@",""),".",""))<2 then
					strMessage=strMessage & "Email驗證有誤!!" & chr(13)
				end if
			end if			
						
			if strMessage="" then
			   DataCheck=true
			else
			   alert strMessage			   
			end if   						
			
		End Function
		
		sub btnSave_Appt_onClick()	
			window.event.returnValue = ApptDataCheck()	
		end sub
				
		Function ApptDataCheck()
		    ApptDataCheck=false
			if (CGetVal("PY")<>"" and CGetVal("PM")<>"" and CGetVal("PD")<>"") then
				PDate= cstr(CGetVal("PY")+1911) &"/"&  cstr(CGetVal("PM")) & "/"& cstr(CGetVal("PD"))
				if isdate(PDate)=false then 
				   PDate=""
				else
				   if PDate<=get_toDateAdd(2) then
					  strMessage=strMessage & "約訪日期必須過二日後!!"+chr(13)
				   end if
				   if PDate>="2012/01/21" and PDate<="2012/01/29" then
				      strMessage=strMessage & "因逢過年期間(2012/01/21-2012/01/29)暫停預約，請選擇其他日期!!"+chr(13)
				   end if
				end if				
			end if
			
			if CGetVal("PTime")="" then
				strMessage=strMessage & "必須選擇約訪時段!!"+chr(13)
			end if
			
			if strMessage="" then
			   if DataCheck=true then
			      ApptDataCheck=true
			   end if
			else
			   alert strMessage
			end if   			
		End Function
		
		Sub getFFP()
			document.all("FFP_No").value=CGetVal("ffp")
		end sub