LPNL#75607 bezoeker shorturl toegevoegd

svn path=/Website/branches/v2023.1/; revision=59075

APPL/API/shorturl.asp

@@ -53,6 +53,16 @@ __Log("== Entering shorturl.asp ==");
     }
 
     var keyparam = getQParamInt("k", -1);
+    if (u == "bezoeker" && keyparam > -1) {
+        // Er bestaat geen bezoeker weergave, wel een afspraak weergave waar je de bezoekers terug kunt zien, zoek de afspr_key erbij
+        var sql = "SELECT bez_afspraak_key FROM bez_bezoekers WHERE bez_bezoekers_key = " + keyparam;
+        var oRs = Oracle.Execute(sql);
+        if (!oRs.EoF) {
+            u = "afspraak";
+            keyparam = oRs("bez_afspraak_key").Value;
+        }
+        oRs.Close();
+    }
 
     var locked_bdradr_key = getQParamInt("lbdr", -1);
     if (locked_bdradr_key > 0)