Aestiva H2O Web Site

Installation:
  Free Downloads
  The H2O Family
  Install Notes

Programming:
  Prerequisites
  H2O Whitepaper
  Online Manual
  Code Examples
  H2O Free Support

What's H2O?
H2O is programming made for the web.

What's it like?
H2O is English-like. If you know some Perl, VB, ASP, or PhP you'll be immediately productive in H2O. It runs on Linux, Mac, Unix, and Windows.

How do I try it?
Download H2O for free. Get it from hosting providers. Or buy on-line.

Where does H2O come from?
The language was invented by Aestiva. H2O stands for:
   HTML with
   HTML/OS
   Overlays.

Data Validation Examples

validation.html


<html>
<title>Form With Validation Examples</title>>
<<IF errmessage <> "ERROR" DO
    DISPLAY '<br>' + errmessage + '<br>' /DISPLAY
    errmessage = "ERROR"
  /IF

>>
<form method=post action=processit>
Full Name: <input type=text name=>form_fullname size=25><BR>
Zip Code: <input type=text name=>form_zip size=10><BR>

Email Address: <input type=text name=>form_email size=35><BR>
Age: <input type=text name=>form_age size=5><BR>
Phone: <input type=text name=form_phone size=40>

<input type=submit value="Send">
</form>
</html>
<<OVERLAY processit
    errmessage = ""
    # full name validation /#
    IF COUNT(TRIM(form_fullname)," ")=0 OR 
       LENGTH(TRIM(form_fullname))<3 OR  THEN
      errmessage = errmessage + "Please Enter First Name<br>"
    /IF
    # zip code validation /#
    void=LEFT(TRIM(form_zipcode),5)
    IF ISINTEGER(void) != "TRUE" THEN
      errmessage = errmessage + "Please Enter Valid Zip Code<br>"
    /IF
    # email address validation /#
    IF LENGTH(form_email)<7 OR 
       COUNT(form_email,"@") != 1 OR 
       COUNT(form_email,".")=0 THEN
      errmessage = errmessage + "Please Enter Either EMail or Phone<br>"
    /IF
    # phone number validation /#
    void=form_phone
    void=CUTALL(CUTALL(CUTALL(void,"("),")")," ")
    void=CUTALL(CUTALL(CUTALL(void,"."),"-"),"_")
    void=LEFT(void,10)
    IF LENGTH(void) < 10 THEN
      errmessage = errmessage + "Phone number too short.<br>"
    /IF
    IF ISINTEGER(void) != "TRUE" THEN
      errmessage = errmessage + "Invalid phone number.<br>"
    /IF
    # number/range validation /#
    IS ISINTEGER(form_age) != "TRUE" OR
       form_age < 1 OR
       form_age > 100 THEN
        errmessage = errmessage + "Invalid age.<br>"
    /IF

    IF errmessage != "" THEN GOTO PAGE /IF

    mailstring = 
      '------------- Test Data ---------------' + LF +
      'Full Name: ' + firstname + LF + 
      'Zip Code: ' + zipcode + LF + 
      'Email Address: ' + email + LF + 
      'Age:' + fom-age + LF

      MAIL mailstring TO Address="yourname@yourserver.com" /MAIL

      # clear vars /#
      form_fullname="ERROR"
      form_zip="ERROR"
      form_email="ERROR"
      form_age="ERROR"
      GOTO PAGE

>>