I have this vbscript form that allows me opening incidents, but, I wish to have a dropdown menu in some fields which allow me to select the appropriate option. How to I include those selectable options in this form?
Many thanks in advance and here is the code:
Many thanks in advance and here is the code:
Code:
Option Explicit
Dim oParams, bAccepted, wsInsertIncidentAlert, sPar
' base64 coded background image, converted with [URL unfurl="true"]http://picbase64.com/[/URL]
Const sBG = "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA08AAAK4CAYAAACs3sYPAABeEElEQVR42u3d15IkO44t0Pr/j+vRWmutp5/PNR6zPReNBukeqcV6WFY6KzPSw52bBMEf//M///MTAAAAZz+8CAAAAMITAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE8AAAAITwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE8AAAAITwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPHkhAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAABCevAgAAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE8AAAAITwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAgPAEAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE9eBAAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJy8CAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPXggAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAhCcvAgAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAAMITAACA8AQAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAAIDwBAAAIDwBAAAITwAAAMITAACA8AQAACA8AQAACE8AAADCkxcBAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOHJiwAAACA8AQAACE8AAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAADCEwAAgPAEAAAgPAEAAAhPAADAC/jf//1fr4PwBAAAIDwBAADPWG2y4iQ8AQAACE8AAMDz/fd///f4c4QnAADgf/5/c4gEpl66p5RPeAIAAA5havq1ICU8AQDAtwxJVf29tQrV/0x4Ep4AAOBbrzBNgegqPL10iPpunf6EJwAA+ISrTglLUfc/vVXAEZ4AAIAPX6pXg1MPUf/1X/91q/PeU8PPd+3qJzwBAMAHclo9moLTCkpVwlMCVA9WtXzvJUPQdwhUwhMAAHySfU4JSwlD//mf//nTv//7v//0H//xH78SktbvT+GpB6hf/vKXDwefhLj829fYSyU8AQAAz17dSYBagemf/umffvr7v//7n/7xH//x5xC1/mz9foLTbgWqBqleEngln0f/+e7vCk8AAMCblu3VP0t4+ud//uef/u7v/u6nv/3bv/3pH/7hH37613/9159XndafrR/7CtRU8lf/v13I6uq/q78vPAEAAB+qbC9WOKoBaq1C/cu//Muvhae6EjV16HspOWvqOc0ohCcAAHjhIPGaKzwf7evN5zU1hVjlej1ArV+v30/AqiFq2g91Ku07rTzV13AKZsITAAC8U1C629jgpf7de4Wk/rn0Lnt1NSlNI3YrUNFDVFX3Se26+J1WsB7ZTyU8AQDAK+/7eWoI+SwhsX7euyDVQ039dQLUCk4rQK0gtX79b//2bz//2Sk87X5/F5zqnqfditYUnqw8AQAA77bylF9nBWqtOK0A9Td/8zc/B6jViW81ksjq03PC0/Tv1v+5Pv4KacITAAB8kv1NtQnCLpScVrU+0gD/FJ6m8rqsLK2QVAPUWoVKgKorUJNTwMr/sf5OAtNqlb4+dqwAJTwBAMA7le3tBt09KO3ONfqKq1K7EFVD0Ao3NUCtVuYrVOVQ3V14qn9W90ytf7fC0SoFXEFpfbz1cVMimPBUS/qEJwAAeOPAcOr41vfinJoZ7Abxn21wfxWc8vMVoFbIWQFqSSOJvgLVw1QNS+tjrH+TA3lXWPrrv/7rnwPT+tgrNK1AldJA4QkAAN4hPP3yl7/8tWYJU7narqnBFKb6x/3IZYrT57g+9x6i8vN+MO76+QpAK/is0PNXf/VXvxKgoq4uJTStf7MC0gpdKyzVALasP0879Cm8frVOe182PE1LtLtv2Kkutr9ZTx8f4DuX1HzFvRVv8ZD/amVFfJ732uljXv1/r/3eWOOv6A0SaoCqqyR1L85UitYD1Pq9r3KQ62k1rr42KwzVFah6HlT2QtVVqhWyVmBaP/7lX/7lzz9P2V9Wl6aGE9N+p6/0fvzxlW8yNeX2h9Odw7+mDXofbSMhAG8bcKaZ1Kf4DJvV+RqTAJkMPl2Huwnm9wj2fV9PX02a9uKk41v9vfx+D1TTAP+rvP+m8FRfgxWgVondCkcrENWAlJ+v309YSsBaK0y1W98USOuChPD0Betj+5LvVaCqb6gayNykAT7XQLLey++Gl/pvHp2Imyob+nPK94mXGvv0sLS7JjP2qf9muuanSp63es/2z7kHodrxbYWCtSKSn/f9PH2lappw/+zf9/6a9a+5NpFYK0grIP35n//5zz/+xV/8xa8EphWW1uu5Xsu8ntNq025cLTx94gto/Xi3T/2uPvZ08zBDCPA1yqD6ZvJd0Oqzq9Oeivr8uFtOfqezGN/3ej01OOgD52kVYgojp4/1nuW5u/OMphCwVlHWYD+laJHOb7Wr3FRa1htIfNbJjOk66CV1NXCuUr31Oq3wtILTknbmCU01MJ1Wm+5MGAlPn2B2cVppmhL4aVbiqlOLBxzwnVdxvkp4Oj3c+0A0E3K7AV2fgMu/nZ4nfWCsqoFTaJlWUKdxzzQGmvbC9NK1/l6Ymim8x6rTNHBPB7kVkFap2Rr4rxDwZ3/2Z/9n/V7do1NL+qZJ8q947ezGvgme6/VLcFqvY9qMT+WOUyOIei1NK/NfqUnElwpP07Lg6dCwUz/7mq53B4T1m5Pw9OvljIIlfJ8SuK8UBHez87tN2KdzUaZJud2maitO3An4u6A/hfJpE/+pI91uv8rdUtfXCk+7Mdwa4K99OGvQ/6d/+qc//cmf/MnP/viP//hn6+fr91eIWqVo6++uf5N9UXnP1gmOr3R/vgpP+fp76d4KVOvvT/ezer2ctsV81fbk3zY8TRfD+nXqZPPGmsJTft+Dbl9K8NTN0YDw9N5lLlfhabdhfbdx/dTt63SAp3sldyYpr/bcna7VHuD7tTitxpzKV1+zSctUcpaOcWuwn+CUwDT9fAWotaqy9vCkZO2rhqer16+Ob9frsF7HrNqt1zPj4L6gMIVu4emL7HXaPezqG673sV+hKV1H1kVUlyt3NxoPuqeFJ4MC+PzqpvLP+J6eOoyd9oNMwWkajNR9Faey8DsBStkep/BUS0Gn4NNL03aHoO726p3GOrsywbcY/Ndzh1Y53gpFCUl/9Ed/9HNQWj/m53UVav3dtZ+nN5L4yuGpXiNTZdV6HdaKXModp/C0m/zZrVgKT590g1x/wNWQtN5w6WW/rJ+vN9O6YDIzUes9+8Uz1cd+t0Cw27C6q42+evOcbrzCFnz9lae3fp/vnhlTsOmlT6cBaQ1QPUydVqR2ZeHfaf/Zd9nb98jH3DUt2e1p6uccTWOY/nt9VWHXNOs0IH7OWVF3Bv81EKarXi3XS2D6wz/8w/8LTvXnCVDr767AtcZ9PTx9xbPWTmV7uQbWa7nGwGv8u16flO1drZzvOlGfmo8ITx+4vrMfnrZkpmK92dKNJT3rc9HkzZWZifXmyuzEtBJ158L5brXYp9nc17ixAl+7891rf9wEptzT64Tb1EBoCj91QLesSbr1/FgTdbs2v1fNiXZnpriHvk9wfM/n+7TKM60U7fazrGsu1jWY67SfhbQbKPf/72oV9zXeu/kcMhZb76k1TlurJSnLS1BKcKoSoFY4yAT5NDH+0d5LT3ldp7NNdxNB6xpY96j1mtQGG+v1nSZ8dp2on3qu3We/d/34Kg/ePvNSlynXm66+2bKRMKGpvsHW31l/d5XwrTdZDgWrD76rG8pXnxXclemd6q9P52bp/AUfr5xtGrQ9eo7RaUP73YHTa3Xwms75m86Q6StKVfbLrufF6lq1JufS+Svdq9bvrz/vB0zWoHYqoTJZ974b7j/C57EbCPewU1c6a2BaY5k1YbyuxWVdiwn1fXV01/Rk9/5/iz079XNZX08G/LVcL2O5P/iDP/hZDVAJT2tlZb0X+yryV5iE2I3Fdk1DUrJXuxSun+cetWvtfic81TPGXjtkC08v8CarD7/6za9Lk7UbS52lyJtt/V4NWAlT6wE5deDrLWa/24zgVAJT21b2NpZTnXRew176N52I/lEfdPBVZu/vToCczjQ6NWN4ygTIS7y/T4PR0wx+vefXQWmC0yoFqt2++qb1TNStH9dgpQao6f/tn9d0fs9UMvXV95hOX9Pdr/HRyb3ptX6NZ83ds7+ma3Qqzauhfq2A5vyjNY5Z11/kPJ8cKNv36/UJg1yXuyNcrjoEPqfxVy1FzNlEKzzVkr34/d///V8bz9X34QpP6zU5HUnzUVYcr/7/03XTV+2mjqDr+74mezLOreGp/91T1+lHV56+Sinflyvb673pcyPJA263vFt/v7e5XP+2duI7LV1+x3Kb+gZNWUBmdXYbCU/nnUwtU/tsxm5W24AYnjdrOc0uXp0Rs2vWs9to/sjG+Je8t16d/9cHoinJqwdGJjil21cfwFV1sq7uu9idpdIHLLsDeL/Dc+dUqjgNcq9W5k7hf9ccZLff56X3NZ2qaa5K8+rm/1yj6/paA+E+Udz3BK3rM13o8uzuWxVOK1FXQeop1+hUdtaDYW9Rnq8pq07968yYru55qmOUjzyGmLZAnM77mia2putm3dNqeKqtynclnLvQtJvovrpXCU8foGSvbvqtb/bUdeZGUt9k68c1U/F7v/d7P/+41OXe9XfXBbWWufvS+HcPT9PM2Hp90r0wN6hpAHZVQtNLdq5K/oQneNmJkLqSP50Xc9pk/lqHifdz9R79mFNgmhpCZEP6mplfg601oFjPj/XjGmiuAceS2fxexVB/nlKiuhK1/l32XvR9UHm29AA1TTB95efPaUXmapA2DR6nbok9OJ+6IL7UqkR9X9TPfVcWNZXmZVzT9zOtZ++6btMAK9devSYzvqnjnIT6dY2vsU6aaiVE7Qbfd5qePPea7JM5+b+z+pT3Xv+xT473bnvTJMVHGkOcKm1OKznTNV8nZur1k/CU4FS77e3u8f3ePoWmGvZq18depfXZ71lfKjxNy7vrZrAuiPXmqTeRFZiW3/3d3/1ZAtT6eULUeiOuG0oecv38p7sn1H/1fU+9QccKq6nxzxtxdzjf1erTW9ZYw3cu25tWlqYZyNMm4t1+nTuD49Nep3q/yQN79+C+MxM7hcEMyhKa6l6AlDulImHq8jWVgPfZ7/y4PuYauOQeeWcD/ymsftWjIU5f09UZM7vN8j2s7rrP7SYKduV8d/dP3dnQP51NWfff1eYP6xrKOKeHpnUtZjyTieL8vE8Y1/OQUtKXa/NuG/7dHqlHxkh9AL5bfVpfc/16e1VRrSSqJXu9HPG0gv6RVp6mcrepqUx9vfr3rr5+vVnE1crTaWJsNxmeVfteifQVxsxfYs9Tv+lk2ToPwFqulxtKgtPv/M7v/CwhKjeU3EzWBZWTqacb7ane9CsHpro/qbf7zRtzvW4rROXNeGoDvCvxu5oFdIYUvOzm+F0ZWx18TgcovkTr7alsr7bc3a1CPVKdMJWzZCZ2DcjS8KGHprqXqQ/SaslQnh9XZeGpasgsf47PyMr9rnzqTkD97PfEO0dcTM+FaWP8biJg6iZ2apxwWqG4u9ej/pvTM3FqXNK75uUZmwFwrsvaMCGTxAlOddK4/lldicq1ucZP6+NPAX+aULmzP+aR0sc6Mdu/L5mkTdnZtPpUf8yqWvZ3ffSGEXcmQXZbIXJtpVFI7iP1+5fV9QTuqOc8Ta/R1dirvxdzRFAtP/0qY7cvsfI0dRHJGysPwPqAywpTglNVZ2fWv6kdWqYuJLtZlUce7p99824f1EwBqs4+TDNVu/KgXr7Qg2utuTUIFgZ47Brph4vvBo91xrLvjdgNQh8ph6mrSL1xzNUelavV69PKWA1P6z5Vg1PdZN8bDfUurfXZksHo1PWr78FY/19W6de9cj2z1qB1/bh+Xc+k2a2CnDoePrdRx3tdn1Nb49P39BSQphWS3sa7tvDerQL2/+e0x+dOOeJpP8oUnGpoSshPB+E+MVyrajI5PI13eojarUT1EJXXqJ6X9OjZQI80+JiODZgOy+0H4y4JTrXpVw0GHyk41XtgTE0gdu+B/H7GwHXiv+93SiORJavs63ud7RZd/7+vtl+s/ycdq9f/m1D3VTqHftmyvXWTyYbeuvJUw9N0Y8nNJOGpng+Qm8fd8PRduuztBiW7AHUVnur5K7lJp6Z7yZu732wECHg8YE8tbesMb0ov6ns5Rzn0/RH1IX0qgbl7oPauM97dfZLT2SZTKUs6sq7nRUr1+srTLjxNK095fkzhqQ7u1qAle6jW/933V9UAdQpPu857n3UVdCpLutq3dNUtsQ7q0vQjJeZp413LzXcrKVO1xFNWQK+aQFR1pSlhoe/hzsRvD0q//du//Ss/r3rlTd3CkK0LaShQQ1RK+k6lfM9Zid7tqZ7OscrenRqgalfBKTjl33/ErQBX4Wn3HqiVAVlZmvZVZm963e+Ue94pPJ32nk+l0ZmQ6itPd5q7CE/vEKD6eQDpytJnB6ebTJ2BqbOEWcZeD9faSW63OfI7DOL75sC6GtRrbtfDPw+oqRxlN6uUAVtkFiP7qJTtwcvsdeqlspmdzCx3bZ6wHrC1eUIGnXWPxNRtc6mDgalbU594mkp46wTLaVa7/7v1OdUAuO5FvQQo5zP1ADUdcTEFqGmfSe0ANu3FqAOY/N95fVM61c+HmjZx1wqAzxygTmVAp1WmU9lbbbVdSzRzTdfQun5vXR+9w+4jjSXurIJeHbyciYsemrJ/u45l6mpTD0xTaKp+67d+a7silf+j7tXL2WX9DMxdSd/VazaNm05HoEwljeu9XJu45D1Ug9PVhO1HuOanjsK7VfZdx9AsHNT7Rt/nl/1Ouc/Vbnu57qdDhB/pkrz+fSbZdo1vPvN4+cdXGQxMsxMZuK83VZa26w2nh6jaLKLXpqe8onag2a08fZeB/FW3o/59yOxevenW5f9alrDecJnhzkxXZrh7G2ThSSkiT5v4mAZ3WTVe78Ec+prBZR3g51yQOsg/tQG+2huy28syhafdvpappK9XI6wgmMCXe0r2yK6vJV9vvuapccS0IrVrC93/vJ4jmIFL/p/8v/k8avnebq/JV9gLumtLn+/fLjydGmz01Zs8b9JIqp99lO9n9n6s586pUcJVeNqtkPa9g7tmEOmet67LlOddhabd6tIuOK0/W+FpWo3qE8oZG9U9UVN3vim0TiWPd1aidq9j/17UsV4NwDU47QLwNKB/z/1Nu/3kV6WrdcvK7p6Riel1v+v39R6e+vfwNElwFZ6mJmufvTrrSx2SO20srL3s68xgVTdQ1nrflFWsh2023vUkPh3w9l1C1NUs4XRz6+URy/r9Wj6R5eaEpunck+/SMOKRc0V6uctn/1qFp7c/0ymDunSd6w/YOktZB/19oF/3QlydAXPaDzJ1/7vTHW2akc3BoVUGfHV1vP8YWYFbX2d+TOCqgWcKYDUU5d+kXG99rKXeG9ePuQ/WEqm6P6dO5J0C1Gc812nXAGJqZtL34dXzjvq+pvVMyV6PHmYzwZoVwfW96aupd1p1n0r8pn8/TR5m/9v6PPuqZt/TVFebspL0qBqyetiqK1GpyqkrUVNjifp13X2drrZknFYe6wryeu+s9810+O9u1fa9m37dnUg6dQ6tVT5Th+h6Ftj6O+v7lnvRVXg6rfDvJrz6nqendDX8yPevLxeealeR9Q1bF1NaldeZwN6us3bZy99bN4baoWXXfee7DvT6IOxU013rkzMoy8bozARnwJB9TfVk8113qa/YlvdqYLHrSnb197/jtSksXa8Y9z0jdca7z0zWUra6alLDw3o/Z9bzzsz8o3tCMsg87bnYlQvVQfd0f+rlR9PqRfbLZHUgA/eUOWYmPt2uEoLqhFAd8Nevpa7E9wN06x7SWipZz9ObKiI+42rorlyrH16c7oQJsxk4r9/P65zXOrPt2S9UD1Otq4Y1QKVSogeoXgZ1d9/PNOBPiXoGvglNUyOSFWB6iV0CU378zd/8zdt+4zd+41dC1Pq9HsJ6iKqlqPWcqPV5T+W7p3K+U1nYrjR1WkWqjRD6nqzdStjpuTodTPvaasneIyvwkTM28z2YgnotWc37Jdfb1G3vbqlqv+fm/0qonhoJ1R8/47jlx0udCv1RV55yQG5tGtE3+PZNvnVWZX3zaxnKdBF818FaP+vpNFtc34B1ybhuiq6DobtnMFy1s/3sEwK7TmP9a/sKYWlXE83rl9vm+som317CVlt319a2U3jKe3q9n3elJqcylN4Nq94T6uxqyn+nDfZ3Nq/vBmH9QMm+gl5bRtfBeVUHwnUfUy1bTmjqA83dHtB8X+q+s/XrDJT6wOqzTerVBkR1c/zUJS8BP8/2unqU1zqDyKzmZO9zP0C1n8tVJRTk+TS17M4Mf+/UV59j/aDSutJUr5X1nqpln9OxKlN5Xg0/T7FCVH5eP1YNT/l5XYXqE87r9VrXZF0xnUJnf8bvOmlODanqRHlfhUz77TqBsxuwf7RmEdMep90Bz328W5uf9IYn/V6SCex8n9ZrNoWn3fmc0/diup/2hhGnA9WV7b3zDXf65q2Loz746zkd/cbZT93OAbmn2cxpEP8dB31XXa7qDS4lQRlM9AHQVCs93Ui/2oGQj9TLX4Wpz/56CE7vE57WezFtkCcp0+t7dKqU8WRQf7pmd/eJvhqUlZ3cN7LfKoOkqTxntw/mNAPeB8S7Nte1PKwOgrOCsD6vrHD0/U7pAJYBeZ+hnwbgaclcV+xTdrM+Vt0LOrUS/myTJ1PlQg3PKcU/7Tdbr38ag6zrMXuGdpOovSti/mx93Fxn6fhazwvKyl//HvZrOddNrud8XlkN653z6kpT35c0leclBNUg9BS/+MUvfuXXvawvAaquRPXXMW34Uz5XV1av9pHtumjuVqnrNZIJhkxS1Db/031oN+n6Vs+fOn48TST1e+fUsr2WTu7uo7V8NSvhmYRI+XXv7DntUdutBk4dr9f/c+pceXq9P/I44Mfdb+xps+/VnoWXvoFPs+67zZi9TjwzVtmAmZtun71Km8u68lQv4unrfsnB/NW/f6+LKh2zpiXuO4OizHyk01FmqHeHFt5defpo5zztypIeDU2n+u+rfzsF+/U63d0b9ZbX2EftWDmdN/NZG2pctbKe3qv1/tn3kOzUcpmrmctdeOnlWVmtzv25Nm+o5/DV/S5Xq1B3nPZZ1HLu2tK9Pl/yedbwlM85+2j7gLL/P9ng3fdb1T1T6/++mtT7TJNHU5ius9n1fKMehOqenPU6J8wmPC21aVQ1haj1e2sskBXD2iAhAagedNyDdf39WF/D+pjTZG7f19TL86bQ1FeMTr/3qLoKtWsu0Q/crStRabY1rbTuDuOeVip6sD6tekyNZKbr7K3fF1fdmaetJ/1+XP9OAkrd57UrTZ7ON1vfix6edmV7u33nNcz1+1bKi/v97RSgPsuEz4+rEDR10zjNeu8+3jSIfKmByFUnpn7hrBteZnv6AzjLmHkw1Y13p5OW36KM6aOsAOT7OXVIugpPWQ3MzGk9fPjOJsVp5mgaHHzEGYv6+V69VlOt/O7AxtN7cpq565/HaQLkvQPnqTvbU1l5+t9teKolMdNhndM+oOnPr87hma7rPjudGdWseCWE1AFzbfe97im1Q9oUSHalLI/sWamrU3Xwkr1I6/NNeWOdlKslj1l9qoOd3Yx8b4rQB6F5Pn32phFTuVJvBpCVx5Th19WOel3k99ffS0OO7HOqpfq9a90UqNbHyzmPdW9SuuBFyqBqiV/9vk0Tt/3z2XXNm4JS/bGW3tWVp+euRGVPVP8/d+dE5TWs35PawXB9H2rn3GmVdbdH6e4+yVOjif4eOZ3P+RYT2L1iKfuWasOaBJD+e+vH7B9fP04rbbsJpHoPy3moqRqYWvRP47D+veljvawQ1wnyq4nxqXzxo3bs/XFnz8huRWE3UHvtgdi0unV31SMPonXxJW0ntdcZoyzPT9/0z9zR6C02n5/OZMgmwpSf1PM0+t+/CgZX19l7BajdoP1qJal//Xdnzk+tm6fl9Y9a3ud99X6dnaa9o7sH7q7T2O73Tg0gdg0ZMqOfZj8ZbPZ9KimxziBt/f3soTzth7o6YPWqBXbCXt0fljK6lBX2g3b7PrHspel7u67OM7o6e+WzHpbbZ7LrxvO0kq/txbOaN60W1c5wec2z4jS1+e6HxObH9W9SgZLVvxyk3M/+yvVXD5NNidQaY+S6qHuu6ufTu+YtPSBdrQ69tqtVqOmg3fo+rS3OayOOqUx2V4nSV5JOeyivft0Ppn3ribY6gVkPcM74s3cHTWfiNKBJeKrnWd0ZM9QJplN46vf7O0076iR5vtf9kOJ+r8vH/kyTnD92raZPrRF3jQF2F/dV2d9zZo1PXXrqwXhdZoF6d7fdg3YKTs8dfPZ/++jX/d4DsOkk+NMKSt40eZDUjeXTm/V0MNv0PZhWWz7SYHW352M3kKw3uatN8Xc3yu9qyN97sDW9F+6UNT7ivQ9DfO9B6XSUQi25Pa2G7krKdue5nPYVTefa1EYAteNYSrNqSVMtscrgrHb+Svvk2vmrrtRclQqePudd97upnXlXy+6Weg7NI22vd8/hO61/P3p78h6e6gb3HBDbDyeu10U9v7EO4Ou1Uld4+nmPkT1T9RyzuuK12ytVO/Wuv59zhxL2psC0azWe8DQ1dZhWk16iRO9uQ4np/74KUnUlKuV8NWROkxu78rNTJ7rdXpxHm0/txq2v3bH4dGZZDZvrNUtX1LrytAuju5Wn3sArq+GPHANRJzpSZl27Kk8TWqeDit9i68tz913/uLtZfdf143SDP4WCu/uF1mxAnRG4O4t6VVvfz4Lof7Y7E+DuN+jR83muXqfXfhM/usq0O2jzarZ0vbZX4elqk/nV7Opbzho9srR/1V1sOrukzjjtzhy5U350Ck9XZbdvfThmr0V/qdA0vX+vVro+wgzYc88f2TVXOa0+7UplT+2/T8+H3epO3RuSw0v7YLMfCtoHZTVM1b0Wtbtd3+T/3L1Qta6/l9Rl1rg2F6jNBurfP+0DON37dnsen3MPfO8Z36lsL+V6db9bLd2sgagHoV6Ot/5eVq7qfqkaqNbfS5lebU6S/+uqzK927k1Y2B1su+uc99TVpLdefZqC225P1Hpte9ish+3WwXUdj53Oc9tNJlxtL7lz0OvpYO+XHCvcqQLYNZCoDTL6Foir+9ud8PTo0Q/16IBsfclqVs6xSxfGqZHHa66Yv+TizK+1Kr97GNnUz/3qgr7TQ3/6db14TwFqGuhMD59Tvf60QnL6Wq42tj8Snu6UI37E8HQqQeuvdd1knYdSwtO052kKv31mZneeyVsvue9O2L7TlWYqKc3se2ZuaklQP4ywH0p4tS+ll1FNn/tHCE+nUtyn2gXZ0z2m36/e8wT615iFmyZAHplE293/TzOX9RrN9Z59kPVQ0KsB57TfIv+mdlzL+TP1OIS7rc13K2i71eCpDHF3ftOuXfN0zd4tSfpK4ak2y0ig7g0WanDqTRZ6gFp/t6785Xpbv59raH2srBolNK3f69da//Ud+fs1ME2NIF4qMPXVqZfoxHf3c9rti+qrgVmJWt+HlJ9lJepu05enNFKaAtdU9t7v+y8dnnZ/Xsc6/Z5Qy3zXfa2fr3fqZnja85RV1h6edvtF+yTv+jjpG1BLXHP/rYeO166A+T9e81703PC0PedpF5JOrV+v9mXsNprtBkZ3D0OtXdVOe1/qv706dPHqjfnI2ULPmXl4pIX1W82Kny6w08AqJTg1GNWWu6mxTXi6Ogm8L+Xn77/3ysnp3KWrlbhenpcyoMzYpEwlZQ7ZGF/PxprawE52M3kfpeRnV3r7SHi6U/Z0J0AlRL305tX36LZ39XmfTrXflYb1oyFO7cZ3z4u6t6muNvUZ/jXgqq2R63kzdQDa96zUmf++CtU3q9fy2Dv7LqaS7uc0oDjt7bwqW75qsPJZj7uolQo5o6muPNUANa1I9uCyrqf1bzK4Wx8z99r1+3Vgn4+dsN5DQL0OpzDfV5Pqr3M912v3pVaMVjBabcYTkqZfv9XKVP3aT6V89ayoXnLbn29XxxCcVr53FR/TRM9uQuMpIeruc6NO3j268lRLg/vq09TUpx+HkM6POR+th6fprLJanpdgVM/eSxe/GupygHFCVLoD1oY3jx5S/Ehzqed20+332h93Sq2mEota8tbL3naHn51mBnalNac9RruW4X3QM3UF2dWWXg24Hhmg31kNeXTmt15k77nB/GqPRDbK1oPqarOIvvJ0FZ6mYDaFp7ecQb07u3Xq8lXfVwmWtWV+HSjUjcnrRpebUm3RXE+rzwCh7+nL/z3NWL9HgKqTIqeZ9UdXx6eVkEfauk+Duq/WxGIXnk4HM/YJjTsr+9OxEemetgZMfU9TXWXqM/S7gVkdoNbVhgSpaS9U3hfToZLT13FnP9fuoN07Af9ORcbUafY5k0cfoVy1V4308LQr26srT3V1p4amWopXg1Ouv/XxaqlfP1cpKyk9GNUVld4Zbypd69ds/u5LluH1sPSWoal255teh/r19+9XD1HpnlkPfe1jzd1ZSNPq+FUDltMzpL7HTltSnvsemMLT7kyrXra3Xqs1OZTmZ7tVu2lP9SPhqZ4rleBU963VFfbsx0rDiFotk72iCcnZi/rUhYG7xyedSvevwvGvhaddAu+lByklqptjM4szbXqdLuZTeUfvurErmZs2O19tjJ4G+aemF3fqyJ9Slndqs363zWYNoFP3tJfeOLcLTqf9O5lR7ucOpMthD0+7NpbToGL9PAFh/bibGZ9a5L/2uST9Zj1NJPT3VZ2Bz8GPCUp5kEwbklOSlAMys3yezk7rY6Xcr25Orw+fXgJ5p8z2Nc7ImG5up3vHVcfBOyvJuwMZd1//U88R292srxpkXJ0N8pzVsNOe09N1PQ1Udl36pm5K9VrPQ39d7wk4dc/KbhZ/t7diGqwuvbFE78jXJwL7pux64OnVIKv/3lVJ3u76u7M37dF7/FP+PKuwVxMqu6Mi7lyfu0mKfp7WuqetwV0PTrX7Yl2Byvc9rezTajz7R7MvY/3++lh1RWhdWysE7A6jPYWDK/n4uzK9p5bunVab3jpAnUr4+spxL6+sexdzoHQtV88zrO9dPN3/p9Cx+/enM41OFVFPqVC4Uzl1mhzshwLnms6E9J0Jnnpu2hSedk1y1piil1j2SY+8v3bd9urKVT7OtAK1e1ZeNW7rY9RTdVu9997t+vcjX1CfJa8ps3Y/SvlQLSPKaenTzMCu1eRVyd9u8Pxo2drdNta7Fa6X2ix4esjsDqi8e+7R6dyeRwNUH1j1fSC72ef6psngqL9h1psjMyR1D8/Vxuk+0E2YT3jabaZ+NOw+ZbVpN7jclf700FTP/1g3rl7PXztFdevv5RDIBKcMSOvqVd2Ym5XAqe30VJrwFocPnwbtfcV7N5s21WdPK+W7FYDdOWLr5089M+p0D9ldl6992PbVAd9XewP6xM1V2V6fKMiBpWtQVFcO6r6Sq1KpWhp0Fab6AZ51L1Q9u6c2caglKLtV26uwtDuo87RJemrscVedtX5ugD6tRu7O3HnK53C6t/b397pu1v0rpcz1Hplf106M69dZnc+zKKvx2U+6rsH17/tqUG0R/oir4DR10Lu7X+nO350C03sGp91rOIWoXdltnnNZNa4hqt/TT4fkTlVU9b509xiQOw2s6iD8avy3G9Ne7ZPO/aaXxmVFZ/38dCREHd/n7LG09J/K/vJ6JfBkzL/bvrN+nkYUdYw3fS/qfqn1/+zOEL3bjOtqn/lTui9On8ePKTDV1ab1Iq0XNeVD9aT0etp7PzH91H51CmunWfpT57urRhLTAKaWCE2DxVNnqkdnfadN+KdVm9O+gelhfFoteO7s9K4O9xQe8uZKmO7dWLIUv97s9ZynXWODKZz0ladd2dk0MH3qatx0TtIu4E2TA3Uwn5rgrObmUM1dd7GuztSt919mgLIvoB4gWt+rGTD2PVA9fEyv52seNpsHTR9k1oMxM9OVlqy9YUYNSXltc4hgLWeY7k9X+zKvGthcHcWw24N5msm8M3Hz1Lr708e9akZwp3lEbwiRCYKUh9TV1HQ56+2ap9Wm3cAxg8NdmdC0YT1Bag0WUjqS92I9yDaDkulAzztle3fOq9tdT6dD559znt2d6/Rqhnb33nhOKdPpkNx69lcOTc64JD/WUs315wnAKdXLJvY0Jel7mhJspnK6R0PIFFymBg6n6/rq404B6T2D0lNWo/rrn/dqPyeqdtFc3/8E4t1ZbnfK5DPGrft0Tvv37+zn33U23T3z7kx27caJPTzl9chzr56fOY21U0KdMX7Ooqv3u96VetcIZyrty17WHAa+G8/2ccjVeHw3mX86OPlqVXKqPLnarvOj7iOpg7ts5E3HmTqwq7M+uaizxJp6yz5wnjoM9Zn4qSPRbuWqr7icVnV2S39XQWn30Nqt8OxmFU4lMfVrrAOQOsiur8edboC7gdhTV6HuduDKYDflen3WOSsjmblI+cyuLKYPzPIaZJVlvTanE7Bfo3a/DvSnA4CnFY9++HLeXytI5v11tVF+6jCWGbqsAPf35fQeXX+vduTZbZSv34fT4P6lSyBraFoPyJR51o6DCVM1UPXzdBLO67/Lv83p7PU8i6lk+NTtbFfOu9ujsivLvWqm89Kr39P38LTH7JEue7t2+9mYXw8IrWV6fc/Ibj/INPi8GqjVAXEPU7VBwHp29W5umXjIIal3253vmrLsJmHuPG+mJiZ3JsjunCV45+DuO2dO7WbgpwmEXYOWafBTy3xqO/j1HEm3vHU9pR32us4yyVI7f63vb/5eD0unjncv0dBh9zEe/dg9MNUSvc8Snupkx24vY32P9iCVwJw9bPW6qOONXYl8nr9pXJVytXWPqhNzfWVq2sM4TWjX6zxlr3fHX1cHl9fV6xz7ktK4jBdzOO36sQec+jpkPJKmKRkjpOlEtevqO4Wy/D81PPUtA7szBHfPvGmRZBeYnnrsxO7cvG3ZXhJsfYFSupDSilpe0UuH6gAtswI9uU4X83QoYt2fcaeJwCPtlXczyNM35s4q1iNd805LsbuzQ1LL2ttP9kPjTqV8dx6wdwLg1dkDuYbysOqlLn3Jt7Yr353zdOpYlQHZ+vFqkPcaB6edSpR6x7y6ETMDsKXu95hOmZ9m4nchqnYtmg4Qre/huuejrvhNZQ6n1q2vUbJXm40kOCUE1Q6NNRBl/1z9/ez32v39vK/W96He8E9n2Z3C06k1/d2jIO6e8XNnZv/R79Fu9fROY45pBrEOUmqb6bR97geE1sFTH8A+d2B42rRe3z+7g08TovJsqx2ipkZJu9Xz016gq/C0m7S487zbhaenHqdw1WRptwf1Ka3y+wp+3duZH9d9Yt3T8n1bP09wyn04f17LP2twma65Hmx2K0+733+JA2tPq0y7Fafsf3qrM5+e8vXswuPuvdo79GUCP5MbGaBnnNT3MfbV7/U+zgHctZpqvcfX87p2retj1zvHgOyu/zuTbKfmPX2SLytP6+tf13zeFymNXs+5Oq7P2L5XaNTwlDFC73hYP860EtW7lvY9T/38rlNJ5Ck8naofdkFu6qg6dR08Nbub7ts/ahrNw269cLm46t6L+uCbglRmtrOa0FdP6sVcQ1OW4DODnlmArGJNaXe6OPvsXMrzrvY87TatnlrE3tmwdjXont6IqUFNq+q8MbJ/aKrPPR0W92hbx+nrWf9HZvrqoa0JMLVmtZ6l0lv71oFVZkwyiJ9WG+uZBjWk1WYUp8H+aaDyaKvnaem8r6DmppXZrF5Cl31HWdHthzv2M0CuNh7XkDV1LsrH7oPBvE9TMllvINMS9ymg32lzfmfjZ/24faCUe0UNP7nWcu3V1ac8OHJAX2rAU6KRMr4+y3jagLwbGJ7uF1cHdV91lryqrX+kHOt0EO7pPXTaw1evl6kBSjrp5cGc1aZ+nU/7Il7qMND+8XdlQnWA1kv7apOW2uWynxm1K7XuHWan5hB3QtGdJgynj3cKTlfnz+0Gj1f7lU/h/055UgY9dVBcZ8TX9yF7l9JRMfeCTE5NK/m7sP7ItfXaqzyPhKerMsCPWLZ3tX9s6mpY35t172/GSglRdYUy9/yMa3vTkVRV1UCWPVZ1sqSOa/qq1NRM5+77ddeg6fSeqE0Z8pzLpHWdwK1Ncfp7JyXxqVrJ65GFkN6dtG43qAF1KuXLGC+lz1NTuWncuuuYfZpc2d2v+nlW+ZpTxpuv41TyeZr4+lFf1Hwj6gbMaf/F9JCZuhnVE9br/1M3DadUIns+6sWbmb560Z72K+yS/a687+4BarsHwW4m/qq8bdfCtwan+rr02vupyccpQE0b/08DrRpC62pABqv5nub7mzfqVNs6fc15Y/U9T3dXnWp7zNpy+zTz+ZINDWogrPuw1udU9x3VblC9fK632N0dnngnRPV/X/eR7E69X9dVL0Wqs0lTu+WnbLzsJQu9rPKqHDT/T+5PCUV5P/QbYz3ZPLXgda9T/m6u42wk76u7u5mx3QzjqTTv7kz+6YDG9ft1pWgK9Xea00zlY7tjG3ZnfPRN17V+vu5L6e+D3n5816r5JQeAfWb7amP/rvtXLVlf7506sJr20V3tqbsqy3zkvKfTauhVi/Orc+iuzr063a93JdV3upZO/0edkK3hKR3z0l0v113d07Tr2ni3gcNzgvxTmj98lhK81z4rqv44HXzcJwfreCldZzMRXVdX8l6u7+3+rM4k4/oYmYDbPSf7s/LOXsFTGe3VAeX5/1Ia14NSnWCux0NkEnw6W28aq9RJ33q2ZF/Bms6WzBi/ropdlTtOwel035vuSdNCTfaB1U7Pmche44ZpFW03Ufp/e57q8nc289YLqpcTTfsuskmzdr9JF74kvHqzyzcug8g+CzCVSuwu2FN46r93OsR0apG8GwSdZt9PHel2XV/qNziBsjfoSJish/z1FZ7d57lbXbu70b0O4KavIWV4qRmeVsd6eMqFPIWnaWN2XqPUry/1hnZaHXjOGUbTEvq0tyOndOdmNHXLqytBp/dU70g0BalpBr3OrvdSh/xYBxm54dYJjqnMtj8cHnGaNXpkpaaX+PYWqHXlLyelp0lEDf31XlRXtuprcNo8vNtfN3WhO63aJOztzuO4Wu06lRTsOjftZu6mldR+GPU0u1hbe9fvTWZ3p3ObMtg8NYO4O2h8Ssi60y2tl/X1bn2pskiI73s8dwFqV3K+KwE9Ne/Y7U3bHUJ/VTI+7WGo+oTD6RyZXbv6OxMtu2dMX3mqe0fX92F9X+o5TVPnxmmV8yVD+6mk7lHfPTyd2p33728NUr1FfZ2orNUY3W5LSj0WJJO9/UyjaSX+TunXVBWza3gwPU+yryilhnme1GdYD1Op+KnjlLr/tC6G9EWRGqL6uH4KUnkWrB93xxn1vUa7kvLTocFT9VadYMnqWu0SngWajKt71+c7q4g/ciPKTGEf8PWZ8Trgm2pRE4DyydUVqMwM19Wturm9HgSan2cZvndVmQYYV2V5V6U1pzrTaRbt1EXpFJ76YCSztVm1qAGyHpKaWZWk5wSPO+Fp6i54Ve4xXTD94s3F2rvnnWata3iqe2+m8FSXobP5N3thckp1P2ugl8rUjfF3T63elTn1B3qdDOhtdPvNqM+a7ZpBXAWlqRtZLYHqbV+nVah06aslmPVE990q1NV+h+kMpZcIT3V1IytQtZ661rPXTar1RloPDq4Dwdr2tq5E1YdC3+y6W4G+Ck/9a6iTIE8pg9o9lE8NKHZdiKa24gmfu30EvQtamkJME299xr+vPL3UoPH07x8JT5HPPxMfCVF5xk0bze+UVvf78fT9vApPV938dn/n6jiFuv+5lj3V2dppH8OurLwPlk7h6dQhrVav5Fmwnou17LmvyN9tDPFWZXaPhijh6be2Bw/Xg7F7Wd+0v3Iqc++mMDWdO9Wfl7vS76stINO9ehee+h6eBIMcuzDtC8yEc12B64eS9/FCryrrY/JdiKr/b54HTwlPpzHBNDaI5Iw849fnmHFZHUvXfW4ZV6fBxt0SzB/pzlG7ddUXtc+K14t1qkXtiT0DhDxca83p6fya+s2qrSlPG/Su9ixdzZLvVoiuNsmeSuauDihbX1P2BtQ9MnVpuZZ71W/4uiintLz7pt8pH6kX7+6NP9XeJtDUE6ProHf6+zXx1+DTy4BqjWreEHVVs9axJrjd3Sdy6ki2OwC0nmeV2ZW0A8+bst+UelCaHvTTLOkpQJ0OapweFll5yvlQ6zVMY4Y+MOqhYmq7fhokThMNV01OrhoU1Fnw3E9Smle76yU49dr0Xgef66hujE3AqgcO1j/v54pMA+HTmSI5/iH74nJvmzYnn1b9riZMTo1U6kNral1b79epp6/7GetDOXvR8lDu1/3Ufvxq9v/RQeNzB5mng0/7AK3PVqdUKN/HXCdTDf1pdXYqEZ/2n13tSzyF992AYzrbMYOPeq3WdsZZdattnnelTKcN4tPX2A9WrtUZdQ9LrZSZVuJrM5KXauLwaEMEXmev1NWRBH1yfzc5eWrEtGtUUfdETefBTVtLTu//q1WmU0e7jB3X+zHjn/ocq9tj+vh+2jIwLY7UypU6cZTnV0JU32uWFa6cL3l1zuJVueJpn1Pdw1UbR/Vyzd4IqC70rL+/a1I3dbP+kZKj3kY2L9T0wvbB3NSXP3KTratNU0ib9mXU0JB9VFcrUHdb7e7S6+6A3/737jykpj/rewRyQFmWmvuswLSEnG/4ukh6C8jTjPXVYY1TiUdv0V0Hh/UBl0FmXQmaBoC1jeV0SG4NlflYdeBa9zzV7jp1VaG3oL579sIjHRLrknmf1ej7mer7ZxqU7TbPTweGToODOpmRG169Qeb9uT6/9ZqvzzmynF0P000gSdnbboPoad/DFDJ2Z988EpxqqWg982XpXZeuTlVPTXxKTtP0JKEq5YEpzcoq+jQY7jXY03u97/WsZQP1IbzbxLortZruU7sSqOnf9iY+2Vjdr4s08ckANl/LdD5ZD0671aanluKdunY9NXj1QfadM6N6WUvt1NVXLO9OxO2CTp/dPpWxX/2f00pTBj7re5xrv3clq8/kdX3USZjdZMsdu32yee/UCY8MynoziOl79VaByWrR27Q3vxuk7lZ13JmQrCGijlGzYlGbKvRKhdM9egoSp+Y8dcUp74s0RsnKSV0prltjMhbYVb1M45KpWce0SDKtRNXwVFfFrlblr0qO6wRSnZCsK2v1DNqaRXo+qePpvIaZINyVHdfP7dfC01Syd3Xy+7TylJS+br55EF/tBZk6qdTNezn4btqT0Zs37PYhnELP1KHjtA/k6mC2XVe2uscpK3G168uuJnfayJfN8FcnY9eVp5TO5Q1+Kgs5reL1ri8JL3X1aWoJeVW2V8v0emlIrtcMkuvnkBCVQLlb4bgTmq7C0/q86kGN/eDPfN+m8FPfOzUk9YmJ9e/rxuc6MM35NBngJsRlUJHrJP82+zTqwGP3XquzMZn86IP7aYB/auN6pyTtzvuzz5AnwC5TS9RdCMsqZkp/0vCkhqr1WmUwXEsbTwemTq9FDRs1lNTa69rgopfyTa9dbTt7uvdMv7dr9LCbDKj7UVNff9Vqv1/LdWVnagP9lBA0lfm9VIiaVqOm7l95L9bnVO5rddJnOph62pg8XfN9A/S01+LOwGx3vmJd4a8TnbWEvHfjquqBwgnXfU/IVWnfdB+ZGsHkedlX9R9Z3XztMj1h523D09TmvN6H+sTNbv/b1EzktBLVx6aZXMpzctozerfhym6LR2+csu41GQtmwjMhYmpKNb1fptW4KUxOHUnruCGfQybRsxVofT618dtpvHw6c24aS6eSo07y9FWmaT/XdBxFVp8y+VUXSaYFmh+Zya+HdfZB4LTiNNWLTsmubqKf9oLUJNw/Ti/fyxLgVYK9ez7JaY9NbVDQWxueHl59M3X/xtc9Tjngr3ek6uVWdZaz7gtbF0s2/U97VKaDLdfPa1nGqQzpzuG4dSUp+yMyg9/LLOsSa7rg1A59fSZ0mrVJeMqK1e7k7BoMn3K+09Qwo37N62urA+GpO+U0kKwrRn3ioZbXrZ+v66F2kqrL5/nep3SqXqs5ny0fZ938UrK3fqyBbSpFqjfEOsNWg9RuT9DdyYVHZqVPKy7ptpXz5XarNLuuSPX9mOs33SN3bVqnGu/+NdcVsszk9xt8rbvOYDUHsk7n3PWyqroquHsYTf++P4Cz2jRNcE0PnUwU9Pv3NLNb95y8xLlNu/A0DVxfYiC7G1z1qotedp5VqFrWdtrXNpXm9RnWBIl6v79zDtPpez+Fpt4ldFcJ0Wdz656Qenhpf77uAmJvd19XQvsKZy3FqtfYa680CU8fr4Rv2svYm9Gc/u7u3017ivv5ivW9kBAzrT7vytyns4auJk5q05T13shkZ54vp0Zv/R42TTZMpa49TNZGHfW1yGuQMy6z7aafj7drLLPb61QnXXr5fu1wHP1opWkxYlqQyETQ1MisL0j8yGx9b+LQ//Pp8M5dp5OaRLOhc3deVE/0td1ynw1PeDrNap0GX7umBLVsIYOn2jkqL2haVk513qczMerKSC3V69/suloxbWKsMx75RtdzR+pFuauzXb9XB4t1ibK32eyreFNZSb6uDKpr6KyfU33TJDxlteCqVXn9dV6/vvJ0VbK4K9ub9nztDqnrMx4JT3XVKQOK3fullxUkCGVGNQPp/J28L+vHS6e8rPTltU5pWQJX36jfZ+imiZDpvVzfu7XzY2aa6z6P6UY/baa9u49wd65Mfd9mr1PC090yifrezMpL9k/VU9HroLU2mchEQb0n9K91/X4mkPqsWD2UsK5CZYPt9LrVA7SzMla7vU0B81RGmFm73q72dEzFtJ9uCk+9bOolB7a9pXM/2PQ5K1A5L2f6GL35wDQJUhsn1X2d076gaR/atDJUyyRTwl6vud2zqHdNrJMAde/Q6dnfV3lqB89dxUntRLibdOyHatbQlAmHvp2g7qnrqwpXJaF8r2C1C1pP+Ti1GVMNEb2Ur06eZExUr//dntZdKXVvdNT3nK73WR8/1u6mVyuy0/tmClF17DBtH6j3gRpMUq2wex2mcvOpq16/r6VUr1Zu9UWfKbtMq4f1WZyyv+zT6vfSGuh+5Gaagzt3q0/5sZaV1f+8LmFmpjrf8NqMol5s0ypL7/ZRV1sSnjKw2H0DdrOvu5aG+Tzr4bS1brI3A8gbow6o+inMvXNVnYXuhxDXVpG7DY19b1m679VNe3XAdWqrnY3wdbB5t5Rq+rgJT2kpX1e26l6lfG6ph+2dFPv3dNeyvO4/mfbS7FbR+plf9Tyr02n308rH+r9rF5e68jS1y93N3KzvYW6ysd6L6+PVUr38/fX7dZNmwlMG1Jl5qgPXfgPc7Vs83RR75526ajKd61ZNLcLvTHxctVPO4c05+2ldb32Vd9eGuZfZ5brKHqh646wPrEys5KDdHMybsr/eOr2WGu3KnmqpZD3moZYI1oMHM6tXf6yrVbvDHGuNeC2rqBNUNfzvmp306/nUCrpfe68x+/+LX/zi/7zkzP9uhWw6QmAq46tnqqVx0hSKdweJJ0jUUpzslav3/voc2j1/6t6hXJe1RLM/h6bv+65kf6qOqKXlmeipJb+9HL6ugtUGJGkIUe9DdWDYzwR6i3I9Pn+g2v3Z7n5V3/N9TNb3Q9X967UbZz/zdDobqR80Xldec5/P76dF/9RZ8NE2/Xdeu9N9/7QilzBSK1bu7gmdKqfqfqo6Np/23e72wGVf+G4is0/GTp/Pj7oEWE+E7zNRSZHrRp6a417ak+XKWuaWusz+8foMUk+I/QC0XIgp85oS7KlMqJ9SXh9MdeN8LanZ1XnXsrm64Xt3gFhdrsxDIhd/HWxPLX2nh1ZCbNqV98Nzd7OPmQnP7Ho/gPiqBfXUFakeepuVp97KOAO22sYyZUIJw/01q4OI+j3ue56mGfZd18G+MbGuLk3t7U8ne2fFY33/+4z91Bq1L/uvv5cba105ivX9qe+D9fP18VPWVVeZamCqM7JTaUNffdrVdtdrbRog1fKd2gGyroRmhbM2qchN9GrG/O5+qqyaZ7PnnfLAXalt7gf1Ou6D2r4PY/39BNkaCvv9tN+k+8GMU4Oc3OsiZ/Gl0URWnusESi2Vms78SNOKOmM37T/dHSraSzh2s5QvdS7TW5RPTQeT7j7Xvjdq19q8Nm3J87TOwE4rtLU9eMJ8Bgm9zW6ulbzv6gTa9PzJNTuVj/ZJn7ovYrd3bVq1nkoYc2/IGTG9aqPPoicY1pLA+nmtn/fS0Km8SGD4HoHoJQ8l3h2qfSrp21UJ9YnG2p2vtziv79FMbmRcmvd3P/OzrjZN+5lq4Jvu17uvcff6XTXT6UGqT7ommNT7VG9CdXVId8ZhqZbI86svzOzKyHedBKfn79RevTda+1G/gDQxyGbpDHjWNy8P1vVn9RPNi1Lru/tsc1a1pnKQ2kK5/jrqYbl1kDLNYJ3SfK2hTlvjeiDt1AVwpw58aojK4LC2cK0Pw/5AW3+3dzTsM2rTmzUPqGzE2x3YNgXItAivm9OnDoa7vVPTBd7L9npI7SGylolmsJ2vY/p39fua72Faavfl7r5pf9dKfldbu1t1mkrGMoPbD+LL9ye/n/1L6/tXS1r6Ia61TXaOD8hq5PoxjQUyyMgeptywp5v8NJN2dcZNven0zaW7h0S+/jrjPE1I1NWq6b2y02fR6/cg4alfD1ftmqcmEglPU7jqe/ISoHI4YWbR6nlR6YY03V/6QDODzTrDWEs38rVm9SGzZJndnyZvaplWrw+fNhTf6VB1ZwZzegC/x36QR87ReUq42x0XMHXkq8+yupeuf8/W79eQ0zdA931HdXKxtxBP6K6d86YS+ul7PzXJOO3/6l0/d6X8dRBZV9V6051du/teivwe1439Td+nScV0nMIpQNTrvy8+5NmXCcY6RuytxXs5Wn+/7prz7PZ7vfSh0LuJ2GkrQA2TCZJ1zDc9Y3d7Iaf9ufX1qfeg3femfl79nNlUfvRS+N6A50cfsOahX8uBctBUyozqDTxLcr0es18UtX6519JnFaXXUOdj90FmXcGoexCmVZ8eCOuArt+sd3u8doeH7boC1haW9XOvn2PKjdbHmPYJ7DYs16XRlGz0FL8bfGY2PJ9XXSWc2mtebT6usyZ9k+RUupV9ZHUlsm7SS7vLuo9mOik75VJ1z9PdBgRXLbJ7K/bdYLuWJ6ZzYD1PoW6sz6pR9irVlaaU3NS65lgfN+Er75O89/oK01Sm12eTrjbqT8Gr7yvYzbLfPbG9l/jW731vedxXL/sESQ1P6329XrOp9etpL2Jv5JJQO3WKnM75yp6OvjJVJ47qNdGbLPTXbJqIqu+DvHdqIO2lfr3BRV1x6I1NpgHqtI/kVBJ1NZB8qQYRb9HJ66kDit3K3FTKkn0A9fuV939dTZ72IE1qlUbt/pVJsrpvaGrS1FeV+nVw2mB/dUZWvz/01ahaut6D/J3ALsTwVud2PXL4dj8Xrpe9Z4y4njcZn/bzmPoWl+eU5L3mRMOp6+G0EjU115jK+friR56rvbHNtCAzjVcynundEvuEbj0GpzefqmOIH9MAtQ4AIgO5eh5TZklrZ53phOPMnKaEJ4OdeqGsC6feYGsoqxu1M9BM2VIO90wzh8zaZ3Win1XRX+zdCdS7g0mzaXCagd+FqXp2Tlo+L+v36orBVHIwtc/M55suJr2WvH8v8/OUCtZzZWrjiKsyqa6u6NUzm+qFXruXpftKvTlMTUFq2898bbX0JAFw/fyqXe+dDm9X53WdWoX2royZ3e83vPXrdKHJikvCa115ysfIsn0P19Pp6v3mddV17PRQ6H92WgXtA5xpZWrqcDOd51ZvYPW93Lv69Ws73QXXAHH9fGqSMK1YTR02s1KUfXj9/+r7JfP9qt3P6mRBDU+7PZ69DrseLN4nhtb/Wd9DvflEymATQOt5H33vyO4hc+chm7+3C0X9Y1x1xfsog6SX/Lz6jOy0EpNVqJR+TscInJp17A6q791qr/ZDTN3JrgaM/fXaDZ76eXXTfeGqK9hpr4pBPq9R+vfUj3NnAqFPpNTJtWmCbbcavFtlestJhenIiWllblrxqSGqHjhcg9RuVX6akOzbHOo9J59D/t/++tdmcHnmXnXW/pEH/VRiVQNLyojqA3j9utZZ9/BUf68OpmtHuzUYqG2666b4+mLm79eSu7qptHYBSzjrbVenC3MawFyFp1376WmmYXcqc2YE1785zRpMs3z5v3Iw2jRTX1/zhLUEmCwbZ5CeEripW9jVfpQEmrpHo37/pzbIPbxOrXFTH1uDeV3FzPVx2jNz2vNydZhxP6xx1+q37mOrK0bpmFf3DmUAWwdOWXHJ96Je21m1mpbE++b9OxtBdzfWO+Gph/lducLubIzdCu7uEOgapLIiVfdLRO5LCU+nUr/p9/qqZg1P/c/7NVBXD2tZ6RSe7pTH1fb0eV/nfpl7cY43mLoh1odR7pP1MNFqOmvsbni6KgH5KuHpOZ/nncFDnYWuZe2nLlG762YXoqbv+W5GNu/1q9n20/dxtwo1bSzvEwi9+uLUQU9DCD5iCDsdrr3roLwLTFPJ6lPD02vec6f7wdXr0J/9/ZDxPnlYF3WyP7Jul+ivZb0XZhW/bzHItqD1vM2ztueWU1fvH9PG0l2AWgOB+h+nw9U00Nh9vDq4TplMWjHni8+m+KwepSwqYal3A5wGYP1BdBq8TOeS7A4QO9V47roQTbMOtWzmNGg5pfgenvrm[URL unfurl="true"]wwwGs08mwTIlHXVvW2ZApw5fp0FnDhntswcp+0wHuP692r0edc/Q+l6nZWSfSZ/OUemD5NNK1J2VqqszF2p4yueX0sQ1IOqbm+sNsX7tCf79jIYMeHoZ0O7Q0auNoKcZ410t/50NtP3H3Vlw+bqnCYfT4XX1EMI6O5TrL5vME6anvZBdnRTKCmC6ba7/52oPVm0akZXbur8x78EenqbNrPX16uGpn8WzXo/de6cOmvusXA/y9bp6pOnDo52spmD+kcLTS+xj2Q1UetOf6fkwPZt2gWJXXtf3KNZJil23vKtSn7vXQX/dTvsppz0R07N1/VkPYnc3/MNrBKM7YWR33U/VItOEx9X7vDd9uGry8F6HF0/tzncLDX1faEJUKpn6+aq1d0EyQT1ns25rSAVbKtDqszPbINb/lUqNvoi0O5fqV8LTrqlBX0FaD/Ca4NZAY2rBOH2svhegnpOyPk5exGwmm2pAp30C0yrPqRzvaoPd7pC0U633rhtRf3PsZg6npc/djF79mFn5q0uddXC4Xtu8fnVvUVafakljBqhrgLZbyZrK5xJkah17glltnb3rDFNfm35QcmYG+snZKcHM6kRfOZvKtO7siZrKuab2wX1yoQ5ua4OVaYA6tfjs18fVad+7g//estPZ6fM5DfBOD4+pYUw9eDQz9AlSmVzJ9bveC7uS1T4RlDKpNLaozXHqXsLeWrYfoF3DU36/3jNreJpKg/vrk/tq6sBzj8zNf2ojPp2Vt5u9nO579WyjUyB6qU52H3HA27+2pwSqXROK0wrMNEG323+2O9DyapC2Wyl+6ZK40wrRbk/Y9Pn01W4rTHy0Fabp/jBNQJxWeU/P+VOX07v3nbd471w1Btp1KOzP/91K1NTivO6hz9iwjjUz9l9jhjTPWX83lXPZ+pLu3TWTTGdU7saUP+rsZl0m64dB5iFeV3z6Q75uft19rKkhxRoY5OGfmeYMFPqg8lQSNNWDny7Oq24kp6XZXai5mhncbch9ZIa3zlL3Gfm6SlP3qeUAsJQM5myaegZNNjKnVK434qirKxnM1fNh6kA3fza1v92dMbSbmc3guO63q/9Xbfndr7OpbvbUrbG/QfvP6/uhdotKCM01eypdubo+dis7uxvidP1cDfgeubneaTZx1XyiPjiuBn670oa+3zLBJ9fbVDbam5XkcNnayayWC9aOaLnxTu+DBLCUFdbfrz+uj5FVyNP5Wvm9dFVMqWIa7aSE8zQY7iVP/Z55Wm2Yyj5eslTqo3YpO5XsveTnu5uEe0qDht1G7asJv+esNt15HXbh6epwzke7NsJbrEI/cg7cLkTt3r93mrA8ek7enUYRLx2mHh177FajE6CmPWH1KI48j+s2iTyL617zNKHLXvT0GMjq0/p79Yy82oxuakJXn+/59Y/seYn1sK8HP1bpDpdPMBut+r/JOUJV/7P8Oktvu5Pqp9bJvW56t5pTv0m7zay7WYW7F8RutepqNevOg2N3fkUdHCVh124heW3Xr+sMfsJR9trUutF6XlcaGuR66AeC1lOtaw3pnT0du1Cxa5W7m13vqxJpMFKvuewlql9D5KDgejht9h31g0/r3rC8JmlUUpsB3Anrd/YMTSV5L33jeyQEXd14Hw3/V+HpFKinDmPZN5e9PtnPl5/nWu8tw7t6TdeOSHlP9fdC7l0pIc31kmskK7PrY/WJg/4AydedvXFZCVs/72funGYmr2Yw7+xZeqmH6G6W9iPueaq/zmG7L/053+lQ90h4On09/d/0lcWXuj/cuRbuhLjp3+QAZKtPfKTwNN3X7k5Y3glSp7L7R8ppXzs4PeVjTu//XUlf7xmQyf+M8zIGixwanEnIbFfJuDj7hWsDr9pwrj63+3ixjxnXjz8yq19P6q2zsf2Q2FpilGTY/00/0K8eZtX3LKU+MY0QHh1wXpUk7MoTXqos4ZEN1XcehHc24vYTr2uJTvY7ZCDYDzetQWnaK1HP6klL935t9BPfd5t/++Fsj3z/poF0H1TXEFU/77pXJofMVWmRXQ8ZradV1+s4v7c7zXoqt9sNiB6dcfoOA4bTbPRuv9hub2E/Uyffq7piNbV4nvad1Emi2rmsXwN1j16/H9b72+6eNA2k69fzaBnx6Tqa9r+91vk3n/18nLf6vL/jex4+S3jyfnyb+91UiTEdals79fUz72qWyERkxqd1LLwrFazP+Dreq2PAekD9j+mE+d05EnWgeNpvNB0se2q7elXH/cg5E1cPo7d+eD9lj8Cp69NUprHbiHdqYNFf+6lTU+/oNR1ufFoZnOr57waI6fs/fczdWQq7s4X6ZMC0ErFrXlBfh94V57TS+JTB7ncbSO0G+nfKX0/tYE/3sTutn6dra3f2ztTJ7nT+1tV1XwNVnTDZtcO+Whl8TnjqA4u1IrBboRGeXmdW97UD3J1Oe+/RkAM+YtmecPUyz/pdVdhpP+euj8G0v6pXZPTKpulQ70kfS/7oA4DdYOJUTnPVaW5XytW/2HTZqRfl1aGNn+WU6te4+Prqzu77M5WE7c602rW+nQacV+eF9LLJpy7v9kHjtG9k19p3Cvin3+sD5qsW91ebv+vr8VEGDh91EHO6oU5lbr2N++66n0LN1OHrZDqj6XTkwa5M9ZGShlOd+KP3v0dKka08/eaH+Dre+/km6PDdw9PVe99q8cve73YT5tPk6W7c1UuXpzHwbt/x1LSsTpzWX/+4E3J2A+TTFzINwq/OT7qapX/PAxDf88E/zQqeZquncNHbsO82n+9+bwoKd7rDPGcQcJqp35V07RoP7Mq8dt3+Tp0AT++Lq0MnhafHBm27FebTNXi6fqeJhDv/dmpEs+ucd7Vq/khJw3PLfV8iPL1WSProg47vHp6++qoB8DEnUE8Z404X0l4OeHUu5VWQmvy4m+ZOA/W7A5hTZ6hdJ7uP8tD5SDfmO731r8LpaY/YnVKp05kDb9Ga+JF2vVfX9zQTcefrfyQofZQ2zZ95gHGn9G0XZp9z7zqtat2ZPHjtxgxvda8xKP0eAURZHny95+dnuvfsnu/1aJ9HJyyvun1OnbNP478fU+nX1QDk1EXukQHrNOh8tHvJd6mBvyr9Oh1s+hIdoe6uKN2ZXX/NlYndtXx1nsojoXE3SJ4+r4900/0qg5xdQ5XpXInn7De708jiqkHD1ef7SKtr1wsfdUXtI5Rzuk75aEccfJUy5o9QKnyaPN110L77se40oOtjyR93BhtTnf3uz04DijvJ8KU3673UhfmW3Zfulu6lrvNUq7v7f6bN3nfK5a7OpnqN/Wi7Fa1Tmd+d6/DqMLo7zUmuPoeP8lD/rPtOHjkyoDdVeKS1890SutO973T0wW61+NH3QFo3u154yYDTnwfvEZ58j/jsJaLeB69XTbFbFOjP3+ledvUsfrSJ2c8rT6cW3rtDv04z7Hdq+l864JxWAF7zwZNv0ksGtasL6c7/cbpQrgJaDWQvNdt3NeB9dOXtzt6OR/eW7N6cVwPfO+dBvHcJ1GfftH/3Jrq7R73G11s3pD5a1jFNVDzyfnvta8hD/WMMHF5qAuotBnIGh3yn9+Rz3kveH6+/heXqtX/OGDR+vPTs/0fo0nVaVXmvcoSXfKM8cvq1Gx5PKYn9il0qzZJ6YPt+vc/n67rjO75Pv/r74Du/v388dYD60douf4Vv3qNfx52zXTyg+Iyb/123AHz0vbYmbj9fw6l3DU/vdfHcqdd+6rLcZwhPT3m9nxukvuvBrV95kP8RJxce2bMHAO81CP/Oh9oLTy8Qnj7CZr2vslz46MrTbrPiSzdveM8bhEG08AQAH2FrgJAkPP0cnq7K3npThNO+oo/g7qbtz15H+5Q9ap+xHnddZ/Vae4t9aOr3P8aeNd9TAOyp5qONwX88dVCRlrkfPTx9pgHQ3dc9P3/kDf0aA8i3uKEYPH/vh5PvPwDwkcaaP15yYHFnL9JrhqWvsg/l6mu9E16uWiV/lgGkwTHvGaS87gB85rElL+/T7Xl6dP/GV9/IZzkZ9cnwNTekez3A84tP3jACAADAyhMAAADCEwAAgPAEAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAgPAEAAAhPAAAAwhMAAIDwBAAAIDwBAAAITwAAAMITAACA8ORFAAAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAQHgCAAAQngAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAIQnAAAA4QkAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAAEB4AgAAEJ4AAACEJwAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAAOEJAABAeAIAABCeAAAAhCcAAADhCQAAQHgCAAAQngAAABCeAAAAhCcAAADhCQAAQHgCAAD4sP4fFCUq9Lf79voAAAAASUVORK5CYII="[/URL]
' base64 coded logo image, converted with [URL unfurl="true"]http://picbase64.com/[/URL]
Const sLogo = "data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAFEAAAA4CAYAAACFdBSkAAASFklEQVR42u1bC1RU17lmlYbltNOSCZ0SCRPGXKNZNTG96k1u70pyG1NtTG9tNGq8lKpVY6JJ1BhF4wu1IioOK4BU1CBEVHIxPkB5SCAT5CEoPqhoUVFR8YmKPJTHnOG//7/Pf4YzwzBM7xpjcutZ61tnzp59Zs7+zv/a//63l9fD4+HxT3uEhYX94F5ZwZNtuzMGWVI3D5YS40ZKG6LHWJITX7fsTH2p1Wx+pr6i+DHH+6itdX/uL6iPtHXTG9L66LFS4l/ftKRuG9yWnj6g+ajZSL/9/5a41qJ9z0qrl0+WRo2Mk345cA8YDAA+OoQvgLdWBn0m6PQg9emTJw15Ldk6d/o865zp86TBg5Ol3k+bQedvf58P36fBtkAD4G9nWMaOipZMERNaCnL7fO+Ju1xW9iPp06hg6dX/3Cr9+LHj4KXBgRNRegBtTwDfACQsEGFgBMqgdo2/3NdGsE5u63QP3+cbKP+mxk/uj/8lPfrzcmnobz6X1kaNPW829/hekVdRkeojrVo2RerTN89GnBYH72dkBHUPvdEJsN3f4TvRX/Wb+qCONiJVvAgktG/fPGlN+MTvhbpbUpKGSgNRXb18ZIlzhzA1AQpZdI0SJvn2hCatHm4K+EE9otUXf1dHL8XQ+Z5OYIJ9/GTpfHFQmiU99aXvLIHWGVMXS4/8+JR4+zq1hBjdkLogQUozElSl8YUSlJ6vvX0gy9sbMrzskY0vKA+/K8I+lWgP67X0sgIdpNMJmfRM+GxSj5/+XZo7e/Z3iryGsrKfSa+h4ff64SVAyekkBd1JHxJwTauDYiQlE0nai8hCkrLx/BWecxl5KlB7DpGMhGbjuQDvrRZOKYCJZNKc/SeqOT2rZfiwBLLbD5xAClWk/s9mCdvXiTRjt9J3B6WIJCqDySCCvu4Cjt+ZEfl4bz5/zhHXPlBDnlr5D1cvEP9TeuGFXXePFAY8MAKbKg4+Lj2PBHpr3HcYivShV63A8IRUM8erM2FmFZy1mVUkkhQWMuiayD5GoY+upxNb6fCcZCcH/tueWyUlP30wHvjl/9juXAK7gkGcrajyJH1ZqK5mlSR9bZMsexS4AH2/nwkkc1DsoxH2dD/+FrU1+vp3JlJnsCeViPztbz7/9r3whGCT8MBu2T+O57BPKw5qP6umQoJa4jokzEeQU8CE5Nu1ywSVMHFF3K8ICTyAOIhSSCjGeJHaGrT+Lrx3kLCdVq8eFyxTJ/3lWyNQWofTrR/0OCuCXJeSZ7STQAtKYCGTRgSRs8hhdZYdhTfksmqTU/kSkejlBWsR0YhP+UzXGxDJiDSW5gNEmo9MZBl+PowoYzLpuyabRBqcPysG6zim85bPN/zXt+OJnwwqAI3ezRDGYDvToBTvmsnhSiaDVPsrxB7EJiRnNWKpCstUQHGBcMRK7heL2IaglyOTpkGb6GsD/e8Rm+d28cIxlqSpZd3Ro4/eXzVGkZfV2OhgW5whkGGAM+gxSfKIuHQcMGGPQEf8h0YJIhBhiCUOBDojcwViDcLEZMYgduPvlCKJh5C4ciTub4wjeH0K409bgN4VkTg268cfzr9vBLaU5vbB+ehRMZ1yJ5TRyQTWoyqRiu7GQe7igcpnIlMmlaRpMUMtgUsYnyDmIuar2sNYKonEKCY0ErEZQXaSPPQJJK4CSaTzMcQtCsxdBeQUQz7+ROm9kpLA+ySF73RIoTt2kBMEJAU7cGCpiB2MLxE7+WxichYyFqtA16GI7Mnj4NyOFIjv00sQGsZYyFIZpQJJJZkEcjwnkbhK1IJKjUzkCYoh6blcESmkcYbnpZHshPTkvxQAeTpXswE7NQ6CWpzG7UJpS8FB/Y8KqSoCP2EyFqigEErStwhx81gp0HFg2ScwXfW9ghXseNREklOiF3hG44eqrIPTiAqELI1dORmjyARJvfuab1SYtZ71yLFRwW4F1fiWrboAmyqX4j1JbPjV+IJtWChL4QKH83wmdyZild4Pmi5UCRLNH08TJC5Q9Z3LfdcwkQoihfnwxrm4H5xF0JkIrdL68Vy76zFQOo2SxJ5V5dFvxcokug6m25FAhcR6DGlSWSI2c0hCzmMjhykfIaYhPlaRppxnMN4haX2mD0jNdwWJ20f8zkbiHMR0/p2Z/EKiOAyKUYVE9CIvofSdY5zCebrFNsfuSqU1YPlTSKTHCCSxFrlBjb6bRIJBPJzEaaqTaNCJsCQmj+xUAg1qzHCoSlgHJ7clQeHiORCu0woSFOfxARH94gA4EmOCiqQNcHbHFoB2K7S3tcBnA54X5H7M/bOnjIfK7SlwGpE5MdjmraMZJI1kSi6g9F1E0PksknhbJEqMLlJnepD6988ym80/9ExqPzerP+Afi6yyy1lJANzD+WobwoqSmIeqFM8kbuIA+Vx0JDge10q+gWVIJJHzPnntkLdBamro1O/uxTMQ6a8T0ktSeGrrpk59KmNNgjhFCqNYKss1WriC9lkh86pW79ox0lgxqqA1Hc/Yw40xo0TKXefKIxugFUm86yuT2IRnciDxTCANqPCPY2yDvbhvLxzbFA9tDXfEdc70qTCO+vXBmc2d2zK5pcVweCP2aawT1zfKD8NCHx+YhP32TgyRf8hqhVOpyXC1JF9ctksW2PHiQBGIxzJIOmk2dANJqUEia7QEP9dxrmIXPTWDsS6YGeraqcgk3iXyEK0ohfSmNzGJG3gwNalbxUDPZ+4UEkdk3DhUJNqOrl0DwXj9zdyPxHXT5WpYYfAXxJ7euU20XdiXIaR1KqI6N0u0nUB1pz6mvr1R3dtEW+GfQ4S3Vkg0sUpfRRIJVwSJ/rLz03c9nxaJieXLJ3so2TA5wmW2hgw0O5IGRDPOQ89hKLEeH3wd4zPE7eKvxSD3TAqBEXid8f4UdBj3RFvGO+MEiWcz0sR1dW6OUFtyHDVIHh0VG2IgBK+X+2mhufaaaMsc9zb8kaSttxGsFoto+2rEcDHzUUj8lG3xRfTMtUjidSTxslbfzTQwSKzNWD96f6Fn1HnkmDihzl0tNDGJt/EBicR7aE8qMT6LYwLJJm3WaqHl8iXUt3bYPmo4fDXvI+Es6LhebBaSuT14FLS3yKSe3JIIk9lbN5yVw5vs0FnwHhGdliqrrlWC5GFDBPmbh74st91thJ0DnhN2cS0jlp/jLL5YetG1SOBVt0hEdZ4yIcIzkvj74evFukk3JN5EEonIRlRp8sw0gDg27l/26w2SpQVtlgT1f/+bzTZeL/4G5qNTWfurgWBtuG1rL1m2AMbTXLqnL7TcvCpsX9rkEDi2Ya2tj9TUCDGDBsDbNAd/d5Jou3flIiThPdH833EqMquQRHq2W/iMZB+7VmeDisTxqzxD4oi31nVIonN1ptiQHoyIbMAHpRmCMgBSrX1CUtrtPOnJzZ8J+7bcGAAtNdV23+394D0hYX/9135gvdsgpO5ORZldn3t4zwr01qTO+cuXiba6o2XCkcSqTMk6JpNMDNns2/yczkk02kvi5D95iMTgCabubCIF2ddQRW4g6CGr0f7Es1GP12qgJn2HbfD156pgF9oyImmpHqdhFUccApV2SPztEHiTPPvrQ4UUdhxWaL5+RfbWh4tFvEiO5XiCLKF3q05B3rBXxX8TFLscL2yiDkOwADQ5/lBHcaI76vzhu0s9453nzJjvcrYi1DlAhA7k+W74yufPOTlQvji0g57mRtgyYpiQnvhXXoTbJ2QCW+/UwemtG6G9tUVcbxnxBkzCsOTouk/t6DXP+xCOJ8bJUnfiGCzUaCCyX1+0m6ftXkL6c08LW7yBSaRIgRxKsyCxJzQKEg2uY0XyzmFh73nGscSsHierc5BL71zDXo8IrMWHpDQXJU8zXv4V1B0u7bCDZSVwMS8HnYg8lWtvbYadKJlL/PChb12XpfV8FcaJhfilxXbfN0sXCsdyPjPNRtatyhNw98plO6LrDubDFrSz69grx/FcXY4c5Bi2VRfQbQ5AVE5sjBvpERLb0tL+HZTMsDC6BickGgSJl7RyMHsdVYbmrEpGJcbHGy5sSeg0w6g/dwpSR/9BzJGJoNxZ01Bj2+z6NNdehazp7wpvPQ8lr+5UZaffsaLTupiXCUUTxsJm/K/1PGffxCRS1tyCL7oZn4smBO26ANfJFFHbo4e27PQBHiGxsbzo59KTxiJRUOTi7ZG6VOP08BLOBkgiaY6aqMo8x3p7wYH3J0NlXBQci4mEfRgnhus7pnGzOenwxRtD4JBpBRyLM2HwPQti+j4lQiDqZzIgEbWytFbt2AYlpnAoXhEGCa++JEyHIn1JTGIiJzxOiiXUQDGbaqWl1O7Wh3CstFTg0XSYZdiwBDnM6ToBQW+Ywggi8gKCZgWU0V7D0z4T5/1WMmnTOAMzXwUlATGdCf2Az/P5nPjCc6jhrSh6EiQOeg4m8Hx7OjsPJVOkIIFVuY69sUVkmdxYYCOn8taIdZ7NJ0YsmyJ7aFdZnACRq6tCAimwrdboxbpGMmdTlBW7GCbyEwcC5zvkEh2/J7J2/fdodkQ3IfbpXoK8UP7dFCZRDVLnYuEU5RI8q80kdZMXJXsYGxXs+XKRnz1x2HUmJ0g4FUrHn2GQZNLCUTwTGaXKsCxjotSZ7AUuQFKZN2eGbCevXYVwPz+RQlupyphvYzIJWzl7Lmds5CxT98u8rMqBQQfIjHl+jWX06Nhu40VU6QqxpiGDgm5a56DlzFgesEKkiRecFqrWUxY7gUIy2cykQc/DrfKDUB4XLUxCOJO3w2Hp4Qs+k3OTQxmDLdvetRQabKGNZZKHguxOJKanvmR95EdnhOdyoQ41GGiXI3EnBYEyibTSRvZxHc9gTKoU/lJedFqsWt1ToCZzCat1uMZbELuSidqtWgBTL4jlYpxZq/VXlY4YupdC1DSpx6Mn2vI85JWdEvkmzaNVyQid88D7OIZE5egR6UxLlnSmqgSqgEjmHN9qJjOSVXuJw3rzEifLpwuZyDheu6YyvN2MdHGW17KpouKERsvSF+jGGrlqWSB4TPT9LWA373tW+sljx+W1Z6MLT+0vFtCP8eK5QiLZx4NczLRJReZKXkN2XKxXS+hf2CmRpGVx5cReFTK4koIkvhT/y+ZEbGrshi3UPX64+WDBU/e/FmfB7NmioFPnuvqVDDqVdBzm2hhavjzkIxchlXrLtTNUk7iNp2cxLJURHApF8HUshyskbbkEb5ksNXKYPKVKrMlWbGpwu+TP6vXIBSnCQ9M8t9T6tVdSXDsZGVRwWcCVWocYB1mtlXK4ElttoVwRm22rz5ELncxcCbZfVeyZpyr6zOcKM6Wy7I6oAjOqCDS6ocY+YPndsIRvtbSONt5IQb0KxNYIl0QaZSK5BI4ks5SlsZAHr9QXFjGKVSVzhQ51iOq6xf22s0w+fa7X+v9jxfYisPYFqe8zefclpOl2To0ejPaKCCK7qijgsuLbqNpyWV0HUUW2+sMOYsyqesX8LtrNqrrGXK7bJjtr9Q1wkMBuCk6pLz679HhgKdn6B7flIu2LV6RH/Y92ZL5dlRgHwAl86DyV5CilwvvtSOoo+OyqfjtXlOfJ6l7tVo22k+9IAp8wHLiv4YzbEpmT8Uupd2+zsJE6g2v1xu8aUSrLuVYxm3cC5DkpcndEDtc1ZrITOa2uOdS7UfKsU23FoFxhv377HqgEOh5UgS8NGZxMHk7O9hi7lgLOJtNGH5KiUi5Wz2KS5PCloxBUHbocQXt6RVR2/QPkOYQxorT4D8MSHogNdCv8Wb5omqRD9SaptIUZjoQa7Ty4UstIO6euUwYISbqoQq3GT9R62xGn764y13Em0lOWPrR/0pqIid/5rWkUrFrGh0RKP/ErF2TaanhclCfb7eHr1fHZv5eTvXxuhi06o/zfRB4+i2XS+FWUSPH6Ph2t+7P6W96ZGC4SupQIoOkiDUq9U9Ru6sifqV3ZaSq25So7TNXTN6O9rVN2m4qdpnrenYrk9Xoq3zL13aXfKdv3fzlos7cUHzfSMm6sifYjU95RGaSAF0O5pu9QrSmzbHnj9URp6GvJ0lNP54s9zep7vJ3cp+8JtEHT8ufxq6TE9W8+kE0+9/ugUjWxez4l5ddS7OoQKSx0pnXRrFAF0qqw9yxJ64e3ZewepDb8tHuL2ogY6iP6Lpo127poZqi0bN5MKdYUYtme8uvW4n3PeKwc7uHx8Hh4/LMd/wu2PLwZIo2b9AAAAABJRU5ErkJggg=="
' Prepare ticket values dictionary
Set oParams = CreateObject("Scripting.Dictionary")
With oParams
.Add "username", Array("O seu username", "input", "type='text'")
.Add "password", Array("A sua password", "input", "type='password'")
.Add "source_incident", Array("Incidente de Origem", "input", "type='text'")
.Add "dv_u_massive_classification", Array("Classificação do Massivo (Insira uma classificação geral)", "input", "type='text'")
.Add "assignment_group", Array("Suporte/Fornecedor (Equipa a atribuir alerta)", "input", "type='text'")
.Add "short_description", Array("Assunto (Insira um tópico para este alerta)", "input", "type='text'")
.Add "description", Array("Descrição (Descreva detalhadamente a sua situação)", "textarea", "rows='5'")
End With
' Show `Get Ticket Values` form
GetParams "Centro de Comando: Novo Alerta", "ServiceNow: Criar Novo Alerta", sBG, sLogo, oParams, bAccepted, 550, 620
If Not bAccepted Then WScript.Quit
' Specify the ticket values
Set wsInsertIncidentAlert = New ServiceNowDirectWS
wsInsertIncidentAlert.sServiceNowURL = "[URL unfurl="true"]https://url.service-now.com/"[/URL]
wsInsertIncidentAlert.sServiceNowUser = oParams("username")
wsInsertIncidentAlert.sServiceNowPass = oParams("password")
wsInsertIncidentAlert.SetMethod "incident_alert", "insert"
For Each sPar In Array("source_incident", "dv_u_massive_classification", "assignment_group", "short_description", "description")
wsInsertIncidentAlert.SetValue sPar, oParams(sPar)
Next
' Perform the insert and check the status
If Not wsInsertIncidentAlert.Post Then
WScript.Echo "Error=" & wsInsertIncidentAlert.Status
WScript.Echo wsInsertIncidentAlert.StatusText
WScript.Quit
End If
Class ServiceNowDirectWS
' Use this class to call ServiceNow Direct Web Services functions
' For documentation on the Direct WS API see:
' [URL unfurl="true"]http://wiki.servicenow.co..._Service_API_Functions[/URL]
Public sServiceNowUser, sServiceNowPass, sServiceNowURL
Dim sEndpointURL, sTableName, sMethod, sResponsePath
Dim oWSRequest, oWSRequestDoc, oWSResponseDoc
Dim oWSRequestEnvelope, oWSRequestBody, oWSRequestOperation
Public Sub SetMethod (tableName, method)
' This function must be called BEFORE Post to initialize the class
' method must be "insert", "update", "getKeys", "get" or "getRecords"
sTableName = tableName
sMethod = method
sResponsePath = "/soap:Envelope/soap:Body/" & sMethod & "Response/"
sEndpointURL = sServiceNowURL & sTableName & ".do?SOAP"
If (sMethod = "get" Or sMethod = "getRecords") Then
sEndpointURL = sEndpointURL & "&displayvalue=all"
End If
Set oWSRequest = CreateObject("MSXML2.XMLHTTP")
Set oWSRequestDoc = CreateObject("MSXML2.DOMDocument")
Set oWSRequestEnvelope = oWSRequestDoc.createElement("soap:Envelope")
oWSRequestEnvelope.setAttribute "xmlns:soap", _
"[URL unfurl="true"]http://schemas.xmlsoap.org/soap/envelope/"[/URL]
Set oWSRequestBody = oWSRequestDoc.createElement("soap:Body")
Set oWSRequestOperation = oWSRequestDoc.createElement("tns:" & sMethod)
oWSRequestOperation.setAttribute "xmlns:tns", _
"[URL unfurl="true"]http://www.service-now.com/"[/URL] & sTableName
oWSRequestDoc.appendChild oWSRequestEnvelope
oWSRequestEnvelope.appendChild oWSRequestBody
oWSRequestBody.appendChild oWSRequestOperation
End Sub
Public Function Post
' This function does the actual Web Services call
' It returns True if the call is successful and False if there is an error
oWSRequest.open "POST", sEndpointURL, False, sServiceNowUser, sServiceNowPass
oWSRequest.setRequestHeader "Content-Type", "text/xml"
oWSRequest.send oWSRequestDoc.xml
If oWSRequest.status = 200 Then
Set oWSResponseDoc = CreateObject("MSXML2.DOMDocument")
oWSResponseDoc.loadXML oWSRequest.responseText
oWSResponseDoc.setProperty "SelectionLanguage", "XPath"
oWSResponseDoc.setProperty "SelectionNamespaces", _
"xmlns:soap='[URL unfurl="true"]http://schemas.xmlsoap.org/soap/envelope/'"[/URL]
Post = True
Else
Set oWSResponseDoc = Nothing
Post = False
End if
End Function
Public Function Status
' If Post returns False then call this function to obtain the HTTP status code
Status = oWSRequest.status
End Function
Public Function StatusText
' If Post returns False then call this function for the error text
StatusText = oWSRequest.statusText
End Function
Public Sub SetValue(fieldname, fieldvalue)
' This function must be called BEFORE Post
Dim oChild
Set oChild = oWSRequestDoc.createElement(fieldname)
oChild.appendChild(oWSRequestDoc.createTextNode(fieldvalue))
oWSRequestOperation.appendChild(oChild)
End Sub
Public Function GetValue(fieldname)
' This function must be called AFTER Post
' If method is "insert" then it can be used to obtain the sys_id of the inserted record
' If method is "get" then it can be used to obtain any field from the record
GetValue = oWSResponseDoc.selectSingleNode(sResponsePath & fieldname).text
End Function
Public Function GetRowCount
' This function may be called after Post if the method is "getRecords"
' It returns the number of records in the result set
Dim sResultsPath, oNodeset
sResultsPath = sResponsePath & "getRecordsResult"
Set oNodeSet = oWSResponseDoc.selectNodes(sResultsPath)
getRowCount = oNodeSet.length
End Function
Public Function GetRowValue(rownum, fieldname)
' This function may be called after Post if the method is "getRecords"
' It returns a single field from a single record
Dim sRowPath, sFieldPath
sRowPath = sResponsePath & "getRecordsResult[" & rownum & "]/"
sFieldPath = sRowPath & fieldname
GetRowValue = oWSResponseDoc.selectSingleNode(sFieldPath).text
End Function
End Class
Sub GetParams(sTitle, sPrompt, sImgBackGround, sImgLogo, oParams, bAccepted, iWidth, iHeight)
Dim oWnd, sContent, aKeys, i
sContent = "<img src='" & sImgLogo & "'/><p><center>" & HtmlSafe(sPrompt) & "</center></p>"
aKeys = oParams.Keys
For i = 0 To oParams.Count - 1
sContent = sContent & "<span>" & HtmlSafe(oParams(aKeys(i))(0)) & "</span><br>"
sContent = sContent & "<" & oParams(aKeys(i))(1) & " id=ctl" & i & " " & oParams(aKeys(i))(2) & " style='font: 8pt tahoma; width: 100%;'></" & oParams(aKeys(i))(1) & ">"
Next
sContent = sContent & "<input onclick='window.accepted=true;' type='button' value='Criar' style='font: 8pt tahoma; width: 75px; height: 21px; float: right; margin-right: 20px;'/>"
Set oWnd = CreateWindow()
With oWnd
With .Document
.Title = sTitle
.GetElementsByTagName("head")(0).appendchild .CreateElement("style")
.stylesheets(0).cssText = "* {font: 8pt tahoma; margin: 5px;}"
.Body.Style.Margin = "18px"
.Body.Style.Background = "buttonface"
.Body.Style.BackgroundRepeat = "no-repeat"
.Body.Style.BackgroundImage = "url(" & sImgBackGround & ")"
.Body.InnerHtml = sContent
End With
.ResizeTo .Screen.AvailWidth,.Screen.AvailHeight
.ResizeTo iWidth + .Screen.AvailWidth - .Document.Body.OffsetWidth, iHeight + .Screen.AvailHeight - .Document.Body.OffsetHeight
.MoveTo CInt((.Screen.AvailWidth - iWidth) / 2), CInt((.Screen.AvailHeight - iHeight) / 2)
End With
oWnd.ExecScript "var accepted=false;"
On Error Resume Next
Do
bAccepted = oWnd.Accepted
If bAccepted Then Exit Do
If Err.Number <> 0 Then
bAccepted = False
Exit Sub
End If
WScript.Sleep 10
Loop
For i = 0 To oParams.Count - 1
oParams(aKeys(i)) = oWnd.Document.GetElementById("ctl" & i).Value
Next
oWnd.Close
End Sub
Function HtmlSafe(sText)
HtmlSafe = Replace(Replace(Replace(Replace(sText, "&", "&"), "<", "<"), ">", ">"), vbCrLf, "<br>")
End Function
Function CreateWindow()
' source [URL unfurl="true"]http://forum.script-coding.com/viewtopic.php?pid=75356#p75356[/URL]
Dim sSignature, oShellWnd, oProc
sSignature = Left(CreateObject("Scriptlet.TypeLib").Guid, 38)
Set oProc = CreateObject("WScript.Shell").Exec("mshta ""about:<html><head><script>moveTo(-32000,-32000);document.title=' '</script><hta:application id=app border=thick minimizebutton=no maximizebutton=no scroll=no showintaskbar=yes contextmenu=no selection=no innerborder=no icon=""""/><object id='shell' classid='clsid:8856F961-340A-11D0-A96B-00C04FD705A2'><param name=RegisterAsBrowser value=1></object><script>shell.putproperty('" & sSignature & "',document.parentWindow);</script></head></html>""")
Do
If oProc.Status > 0 Then
Set CreateWindow = Nothing
Exit Function
End If
For Each oShellWnd In CreateObject("Shell.Application").Windows
On Error Resume Next
Set CreateWindow = oShellWnd.GetProperty(sSignature)
If Err.Number = 0 Then Exit Function
On Error Goto 0
Next
Loop
End Function
