function home()
{ location.replace("home.html")
}

function pagerequest()
{  var refer=document.referrer
   var dom=""
   var page="index.html"
   var parms=""
   if (!refer || refer.length<5)
   {  refer=""
   }
   if (refer=="")
   {  home()
   }  else
   {  dom=refer
      var ldom=dom.toLowerCase()
      if (ldom.indexOf("://")>-1)
      {  dsplit=dom.split("://")
         dom=dsplit[1]
      }
      if (ldom.indexOf("www.")>-1)
      {  dsplit=ldom.split("www.")
         dom=dsplit[1]
      }
      var dl=dom.length
      var rl=refer.length
      var dif=rl-dl
      dom=refer.substr(dif,dl)  
      ldom=dom.toLowerCase()
      if (dom.indexOf("?")>-1)
      {  dsplit=dom.split("?")
         dom=dsplit[0]
         parms=dsplit[1]
         parms=unescape(parms)
         if (parms.indexOf("&")>-1)
         {  psplit=parms.split("&")
            page=psplit[0]+".html"
            parms=psplit[1]
            parms=escape(parms)
            parms="?"+parms
         }  else
         {  page=parms
            parms=""
         }
      }
      if (ldom.indexOf(".htm")>-1)
      {  dsplit=dom.split("/")
         dom=dsplit[0]
         page=ldom[1]
      }  else
      {  if (page.indexOf(".")<0)
         {  page=page+".html"
         }
      }
      
      var fpage="./ssl/"+dom+"/"+page+parms
      if (fpage.indexOf("//")>-1)
      {  fsplit=fpage.split("//")
         fpage=fsplit.join("/")
      }
      fpage="<iframe src=\""+fpage+"\" height=100000 width=1024 frameborder=0 scrolling=no></iframe>"
      document.getElementById('pagearea').innerHTML=fpage
   }
}


