home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / internet / ukazky / 17_soubory / mini_form.js < prev    next >
Text File  |  2001-06-21  |  1KB  |  62 lines
  1. <!--
  2. function toUrlString(myArray)
  3. {
  4.     var str = "";
  5.     for(var i=0; i < myArray.length; i++)
  6.     {
  7.         if(i != 0) str += ","
  8.         str += myArray[i];
  9.     }
  10.     return str;
  11. }
  12.         
  13. function getlists(f)
  14. {
  15.    var size = f.List_Size.value;
  16.    var nl = new Array();
  17.  
  18.    if(size == 1)
  19.    {
  20.       return (f.NewsLetter.value = f.id_0.value);
  21.  
  22.    }
  23.  
  24.    for(var i=0; i < size; i++) 
  25.    {
  26.       if(eval("f.UserChoice_" + i + ".checked")) 
  27.       {  
  28.          nl[nl.length] = eval("f.id_" + i + ".value");
  29.       }
  30.    }  
  31.    return (f.NewsLetter.value = toUrlString(nl));
  32. }
  33.  
  34. function getFormIndexByName(name)
  35. {
  36.    var d = document;
  37.  
  38.    for(var i=0; i < d.forms.length; i++)
  39.    {
  40.       if(eval(d.forms[i].FormName))
  41.       {
  42.         if(d.forms[i].FormName.value == name) return i;
  43.       }
  44.    }
  45.    alert("There is no form with " + name);
  46.    return -1;
  47. }
  48.          
  49. function gotoFullPage(name, url)
  50. {
  51.    var index = getFormIndexByName(name);
  52.    if(index != -1)
  53.    {
  54.       var f = document.forms[index];
  55.       url += "?EmailAddr="  + escape(f.EmailAddr.value); 
  56.       url += "&AddInfo=1&NewsLetter=" + getlists(f);
  57.       location = url;
  58.    }
  59. }
  60. //-->
  61.  
  62.