Re: [Easy400Group] Simple AJAX and iSeries Form Sample

[K. Schreur]

I tried it and it didn't work. 

  ----- Original Message ----- 
  From: 
  [EMAIL PROTECTED] 
  To: Easy400Group@yahoogroups.com 
  
  Sent: Friday, March 24, 2006 4:50 
PM
  Subject: [Easy400Group] Simple AJAX and 
  iSeries Form Sample
  Hi, here is a simple HTML that submits a form with AJAX and 
  calls a program with parameters and outputs 
  the result on the page http://www.way2trade.dk/w600websam/ajax3.htm 
  Be aware that my server is in Europe GMT+1 and may be 
  down due to backup and IPL 
  WEB RESOURCES: http://developer.mozilla.org/en/docs/AJAX:Getting_Started 
  http://www.captain.at/howto-ajax-form-post-request.php 
  Program AJAX4P -------------- H DatFmt(*eur) 
                        
                        
           /copy 
  qrpglesrc,hspecs                 
                        
       /copy qrpglesrc,hspecsbnd 
                        
                    
   /copy qrpglesrc,prototypeb       
                        
             /copy qrpglesrc,usec           
                        
               /copy qrpglesrc,variables3           
                        
        d web_page     
     s            128     
                        
        d name     
         s             50 
                        
            d address 
          s             50 
                        
             /copy qrpglesrc,prolog3           
                        
              
                        
                        
                      
  c             
        eval      web_page    = 
  %trim('/w600websam/') c       
                        
              + 'ajax4.htm'       
              
                        
                        
                c                   
  callp     gethtmlIFS(web_page:'<as400>')     
              
                        
                        
              c 
                    eval   
     name        = zhbgetvar('name')   
  c             
        callp     UpdHtmlVar('NAME':name)     
        c       
              eval      address 
      = zhbgetvar('address') c   
                  callp     
  UpdHtmlVar('ADDRESS':address)                       
                        
                        
    c           
          callp     wrtsection('noname')   
              c 
                    callp   
    wrtsection('*fini')               
              
                        
                        
          c     
                return       
                        
            HTML 
  AJAX4: ------------ Content-type: text/html This is the response from iSeries: <br> Your name are /%name%/ <br> Your Address are 
  /%address%/ 


  




  
  
  YAHOO! GROUPS LINKS



   Visit your group "Easy400Group" on the web. 
   To unsubscribe from this group, send an email to: [EMAIL PROTECTED] 
   Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.