72 lines
2.3 KiB
Plaintext
72 lines
2.3 KiB
Plaintext
<%@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(); %>
|