SUB cmdSend_onClick()
		IF trim(LiddAmigoApp.FirstName.value) = "" or len(trim(LiddAmigoApp.FirstName.value)) > 50 then
			msgbox "Favor de incluir su primer Nombre.",48,"Data Required"
			LiddAmigoApp.FirstName.focus()
			exit sub
		END IF
		IF trim(LiddAmigoApp.LastName.value) = "" or len(trim(LiddAmigoApp.LastName.value)) > 50 then
			msgbox "Favor de incluir su apellido.",48,"Data Required"
			LiddAmigoApp.LastName.focus()
			exit sub
		END IF
				
		DIM myDot,myAt,i,myPos
			myAt = 0
			myDot = 0
			myPos = 0
			FOR i = 1 to Len(LiddAmigoApp.MyEmail.value)
				IF Mid(LiddAmigoApp.MyEmail.value,i,1) = "@" AND i > 1 THEN
					myAt = myAt + 1
					IF myAt = 1 THEN
						myPos = i
					END IF
				END IF
				
				IF Mid(LiddAmigoApp.MyEmail.value,i,1) = "." AND i > myPos AND myPos <> 0 THEN
					myDot = myDot + 1
				END IF
			NEXT
			
		IF trim(LiddAmigoApp.MyEmail.value) = "" or len(trim(LiddAmigoApp.MyEmail.value)) > 150 OR myAt <> 1 OR myDot > 2 OR myDot < 1 then
			msgbox "Favor de incluir su direccion electronica",48,"Invalid Email"
			LiddAmigoApp.MyEmail.focus()
			exit sub
		END IF			
		myAt = 0
		myDot = 0
		myPos = 0
		FOR i = 1 to Len(LiddAmigoApp.AmigoEmail.value)
			IF Mid(LiddAmigoApp.AmigoEmail.value,i,1) = "@" AND i > 1 THEN
				myAt = myAt + 1
				IF myAt = 1 THEN
					myPos = i
				END IF
			END IF
			
			IF Mid(LiddAmigoApp.AmigoEmail.value,i,1) = "." AND i > myPos AND myPos <> 0 THEN
				myDot = myDot + 1
			END IF
		NEXT
			
		IF trim(LiddAmigoApp.AmigoEmail.value) = "" or len(trim(LiddAmigoApp.AmigoEmail.value)) > 150 OR myAt <> 1 OR myDot > 2 OR myDot < 1 then
			msgbox "Favor de incluir la direccion electronica de su amigo",48,"Invalid Email"
			LiddAmigoApp.AmigoEmail.focus()
			exit sub
		END IF			

		LiddAmigoApp.submit()
	END SUB