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

     File:               BezBezoekersTitle.asp
     Description:        Genereer non-HTML title voor een BezBezoeker in het (parkeerplaats)planbord
     Parameters:         bez_bezoekers_key een bezoeker (met parkeerplaats)
     Context:            asynchrone aanroep vanuit setBezBezoekersTitle()
     Notes:

*/ %>
<%
DOCTYPE_Disable = 1;
%>

<!--#include file="../Shared/common.inc"-->
<!--#include file="./res.inc" -->

<%
var bez_bezoekers_key = getQParamInt("bez_bezoekers_key");

sql = "SELECT  b.bez_afspraak_naam"
     +      ", b.bez_afspraak_bedrijf"
     +      ", p.prs_perslid_naam_friendly naam"
     +      ", a.bez_afspraak_telefoonnr"
     +      ", a.bez_afspraak_key"
     +      ", a.res_rsv_ruimte_key"
     +      ", a.bez_afspraak_datum"
     +      ", a.bez_afspraak_eind"
     + " FROM prs_v_perslid_fullnames_all p,"
     +      " bez_bezoekers b,"
     +      " bez_afspraak a"
     + " WHERE  p.prs_perslid_key(+)=a.bez_afspraak_host_key"
     + "   AND b.bez_bezoekers_key = " + bez_bezoekers_key
     + "   AND b.bez_afspraak_key = a.bez_afspraak_key";

var oRs = Oracle.Execute(sql);
if (oRs.Eof) // net verwijderd in ander tabje?
{
    Response.Write(L("lcl_recnotfound_error"));
    Response.End;
}
var rsv_ruimte_key;
var txt_min = "";
var txt = "";
if (!oRs.eof)
{
  rsv_ruimte_key = oRs("res_rsv_ruimte_key").Value;
  txt_min = L("lcl_vis_appointment") + ": "
          // reserveringsnummer niet tonen
          + " " + toTimeString(new Date(oRs("bez_afspraak_datum").Value))
          + "-" + toTimeString(new Date(oRs("bez_afspraak_eind").Value));
  txt = L("lcl_vis_name") + ": " + oRs("bez_afspraak_naam").Value;
  if (oRs("bez_afspraak_bedrijf").Value != null)
      txt += " (" + oRs("bez_afspraak_bedrijf").Value + ")";
  txt += (oRs("naam").Value ? "\n" + L("lcl_vis_visit") + ": " + oRs("naam").Value : "");
  txt += (oRs("bez_afspraak_telefoonnr").Value ? "  " + oRs("bez_afspraak_telefoonnr").Value : "");
}
oRs.close();

var showTooltip = planbordTooltipShowing(rsv_ruimte_key);
if (showTooltip >= 1)  // geheim!
  txt = txt_min;

Response.Write(txt);
%><% ASPPAGE_END(); %> 
