<%@language = "javascript" %>
<% /*
    $Revision$
    $Id$

    File:               ShowRoom.asp
    Description:        Toon een ruimte in plaatje
    Parameters:
        tKey            ALG_TEREINSECTOR.ALG_TERREINSECTOR_KEY
        lKey            ALG_LOCATIE.ALG_LOCATIE_KEY
    Context:
    Note:               Als tKey niet is gegeven moet lKey gedefieerd zijn
                        anders wordt hij er wel bij gezocht.
*/
%>
<!-- #include file="../Shared/common.inc" -->
<!-- #include file="../CAD/FGII.inc" -->
<!-- #include file="../SlnkDWF/Slnk2IMG.inc" -->

<%
prKey = getQParamInt("tKey", -1);
if (prKey > 0)
{
  oRs = Oracle.Execute("SELECT alg_locatie_key FROM alg_terreinsector WHERE alg_terreinsector_key = " + prKey);
  if (oRs.Eof)
  {
      Response.Write("Showrooms.asp internal error: Terrein niet gevonden");
      Response.End;
  }
  lKey = oRs("alg_locatie_key").Value;
}
else
    lKey = getQParamInt("lKey");

oRs = Oracle.Execute("SELECT alg_locatie_code, alg_terreinsector_naam" +
                     "  FROM alg_terreinsector t, alg_locatie l" +
                     " WHERE t.alg_locatie_key = l.alg_locatie_key "+
                     " AND alg_terreinsector_key = " + prKey);
var titel = L("lcl_graphics") + " " + oRs("alg_locatie_code").Value + "-"
                               + oRs("alg_terreinsector_naam").Value
%>
<html>
  <head>
    <script>
      function MMap_onClick(SlnkEvent)
      {
        return false; // Don't process
      }
      function init()
      {
        MMap.Reset();
        MMap.SetIMGGenerator("../CAD/mySlnk2IMG.asp");
        MMap.SetCustomParameters("&vKey=<%=lKey%>&scenario_key=0&highlight=<%=prKey%>&mode=<%=MODE_OUT%>")
        MMap.SetPaperColor(<%=S("fg_paperColor")%>);
        MMap.Refresh(true); // Try to zoom extents
      }
    </script>
    <title><%=safe.html(titel)%></title>
  </head>

  <body id='docBody' onLoad='javascript:init();'>
    <!-- ==========================
         HET plaatje
    ============================ -->
    <iframe id="MMap" name="MMap" src="../SlnkDWF/ToonIMG.asp"
            frameborder="0" framespacing="0" scrolling="no"
            style="border:0" width="100%"  height="100%" valign="center">
    </iframe>
  </body>
</html>
<% ASPPAGE_END(); %>
