FSN#21363 QRcodes

svn path=/Website/trunk/; revision=4592

APPL/API/shorturl.asp

@@ -0,0 +1,32 @@
+<%@language = "javascript" %>
+<% /*
+    $Revision: 1 $
+    $Modtime: 21-09-11 11:17 $
+
+    File:           shorturl.asp
+    Description:    Redirect naar een bookmark url
+    Parameters:     bm      Bookmark die in de bookmark tabel moet zitten
+    Context:        Vanuit root
+    Note:           Welbeschouwd is dit gewoon een url-shortener
+                    http://sgf12/Facilitor5iWork/?u=J448UIrR43
+*/
+
+%>
+<!-- #include file="../../cust/install.inc"-->
+<%
+    var u = getQParam("u");
+
+    var sql = "SELECT fac_bookmark_path, fac_bookmark_query"
+            + "  FROM fac_bookmark"
+            + " WHERE fac_bookmark_id = " + safe.quoted_sql(u);
+    var oRs = Oracle.Execute(sql);
+    if (oRs.Eof)
+    {
+        Response.Write("Url niet gevonden");
+        Response.End;
+    }
+    var url = oRs("fac_bookmark_path").Value + "?" + oRs("fac_bookmark_query").Value;
+    oRs.Close();
+    Response.Redirect(url);
+%>
+