SUB cmdSend_onClick()
		IF trim(MyOnlineApp.FirstName.value) = "" or len(trim(MyOnlineApp.FirstName.value)) > 50 then
			msgbox "Please enter your first name less than 50 characters.",48,"Data Required"
			MyOnlineApp.FirstName.focus()
			exit sub
		END IF
		IF trim(MyOnlineApp.LastName.value) = "" or len(trim(MyOnlineApp.LastName.value)) > 50 then
			msgbox "Please enter your last name less than 50 characters.",48,"Data Required"
			MyOnlineApp.LastName.focus()
			exit sub
		END IF
		IF trim(MyOnlineApp.Address.value) = "" or len(trim(MyOnlineApp.address.value)) > 100 then
			msgbox "Please enter your address less than 100 characters.",48,"Data Required"
			MyOnlineApp.address.focus()
			exit sub
		END IF
		IF trim(MyOnlineApp.City.value) = "" or len(trim(MyOnlineApp.City.value)) > 50 then
			msgbox "Please enter your city less than 50 characters.",48,"Data Required"
			MyOnlineApp.City.focus()
			exit sub
		END IF
		
		DIM myDot,myAt,i,myPos
			myAt = 0
			myDot = 0
			myPos = 0
			FOR i = 1 to Len(MyOnlineApp.Email.value)
				IF Mid(MyOnlineApp.Email.value,i,1) = "@" AND i > 1 THEN
					myAt = myAt + 1
					IF myAt = 1 THEN
						myPos = i
					END IF
				END IF
				
				IF Mid(MyOnlineApp.Email.value,i,1) = "." AND i > myPos AND myPos <> 0 THEN
					myDot = myDot + 1
				END IF
			NEXT
			
		IF trim(MyOnlineApp.Email.value) = "" or len(trim(MyOnlineApp.Email.value)) > 150 OR myAt <> 1 OR myDot > 2 OR myDot < 1 then
			msgbox "Favor de incluir su direccion electronica",48,"Invalid Email"
			MyOnlineApp.Email.focus()
			exit sub
		END IF			
		IF (trim(MyOnlineApp.HomePhone.value) = "" or len(trim(MyOnlineApp.HomePhone.value)) > 50) AND (trim(MyOnlineApp.HomePhone.value) = "" or len(trim(MyOnlineApp.HomePhone.value)) > 50) then
			msgbox "Favor de incluir su numero de telefono",48,"Data Required"
			MyOnlineApp.HomePhone.focus()
			exit sub
		END IF
		MyOnlineApp.submit()
	END SUB