| 1 | unit LinksPage;
|
|---|
| 2 |
|
|---|
| 3 | interface
|
|---|
| 4 |
|
|---|
| 5 | uses
|
|---|
| 6 | Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser;
|
|---|
| 7 |
|
|---|
| 8 | type
|
|---|
| 9 |
|
|---|
| 10 | { TLinksPage }
|
|---|
| 11 |
|
|---|
| 12 | TLinksPage = class(TWebPage)
|
|---|
| 13 | procedure DataModuleProduce(HandlerData: THTTPHandlerData);
|
|---|
| 14 | end;
|
|---|
| 15 |
|
|---|
| 16 | var
|
|---|
| 17 | LinksPage: TLinksPage;
|
|---|
| 18 |
|
|---|
| 19 |
|
|---|
| 20 | implementation
|
|---|
| 21 |
|
|---|
| 22 | {$R *.lfm}
|
|---|
| 23 |
|
|---|
| 24 | uses
|
|---|
| 25 | Core, WebSession;
|
|---|
| 26 |
|
|---|
| 27 | { TLinksPage }
|
|---|
| 28 |
|
|---|
| 29 | procedure TLinksPage.DataModuleProduce(HandlerData: THTTPHandlerData);
|
|---|
| 30 | var
|
|---|
| 31 | ModuleUser: TModuleUser;
|
|---|
| 32 | begin
|
|---|
| 33 | with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
|
|---|
| 34 | ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
|
|---|
| 35 | if Request.Path.Count > 1 then begin
|
|---|
| 36 | PageNotFound;
|
|---|
| 37 | Exit;
|
|---|
| 38 | end;
|
|---|
| 39 |
|
|---|
| 40 | ModuleUser.LoadUserInfo;
|
|---|
| 41 | Text := '<strong>Odkazy související s obcí:</strong><br/>' +
|
|---|
| 42 |
|
|---|
| 43 | '<a href="https://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky obce<br/>' +
|
|---|
| 44 | '<a href="https://motokros.zdechov.net/">Zděchovská grapa</a> - místní motokrosové závody<br/>' +
|
|---|
| 45 | '<a href="https://skiareal.zdechov.net/">Skiareál</a> - areál se sjezdovkou pro lyžaře i snowboardisty<br/>' +
|
|---|
| 46 | '<a href="https://sdh.zdechov.net/">SDH Zděchov</a> - Sbor Dobrovolných Hasičů Zděchov<br/>' +
|
|---|
| 47 | '<a href="https://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +
|
|---|
| 48 | '<a href="https://farnost.zdechov.net/">Farnost Zděchov</a> - informace k místní farnosti<br/>' +
|
|---|
| 49 | '<br/>' +
|
|---|
| 50 |
|
|---|
| 51 | '<strong>Odkazy související s okolím:</strong><br/>' +
|
|---|
| 52 | '<a href="https://www.valassko-hornovsacko.cz/">Valašsko - Horní Vsacko</a> - informační stránky oblasti<br/>' +
|
|---|
| 53 | '<br/>' +
|
|---|
| 54 |
|
|---|
| 55 | '<a HREF="http://www.toplist.cz/cgi-bin/stat.asp&menu=4096&menu=2048&menu=64&menu=1024&menu=512&menu=32&menu=256&menu=4&menu=128&menu=8&menu=16&menu=8192&' +
|
|---|
| 56 | 'menu=2&menu=16384&menu=1&kdy=dnes&n=90148"><script language="JavaSc&ript" type="text/javascript">' +
|
|---|
| 57 | '<!--' +
|
|---|
| 58 | 'document.write (\''<img align="right" src="http://toplist.cz/count.asp?id=90148&logo=mc&http=\''+escape(document.referrer)+\''&wi=\''+escape(window.screen.width)+\''&he=\''+escape(window.screen.height)' +
|
|---|
| 59 | '+\''&cd=\''+escape(window.screen.colorDepth)+\''&t=\''+escape(document.title)+\''" width=88 height=60 border=0 alt="TOPlist"/>'';' +
|
|---|
| 60 | '//--></script></a>' +
|
|---|
| 61 |
|
|---|
| 62 | '<strong>Komunitní sítě v okolí:</strong><br/>' +
|
|---|
| 63 | '<a href="https://www.hovnet.cz/">Hovnet</a> - síť v Hovězí, Janové, Huslenkách a dalších obcích<br/>' +
|
|---|
| 64 | //'<a href="http://czvk3.net/">czvk3net</a> - síť ve Valašských Kloboucích<br/>' +
|
|---|
| 65 | '<a href="https://hvfree.net/">HvFree.net</a> - síť v Tylovicích, Hážovicích, Viganticích a Hutisku<br/>' +
|
|---|
| 66 | '<a href="http://www.ustinet.cz/">Ústí.Net</a> - síť v Ústí u Vsetína<br/>' +
|
|---|
| 67 | '<br/>';
|
|---|
| 68 | GeneratePage(Self);
|
|---|
| 69 | end;
|
|---|
| 70 | end;
|
|---|
| 71 |
|
|---|
| 72 | end.
|
|---|
| 73 |
|
|---|
