unit ContactPage;

interface

uses
  Classes, SysUtils, FileUtil, WebPage, HTTPServer, HtmlClasses, ModuleUser;

type

  { TContactPage }

  TContactPage = class(TWebPage)
    procedure DataModuleProduce(HandlerData: THTTPHandlerData);
  end;

var
  ContactPage: TContactPage;


implementation

{$R *.lfm}

uses
  Core, WebSession;

procedure TContactPage.DataModuleProduce(HandlerData: THTTPHandlerData);
var
  ModuleUser: TModuleUser;
begin
  with TWebSession(HandlerData), HtmlDocument.Body, SubItems.AddString do begin
    ModuleUser := TModuleUser(ModuleManager.FindModuleByName('User'));
    if Request.Path.Count > 1 then begin
      PageNotFound;
      Exit;
    end;

    ModuleUser.LoadUserInfo;
    Text := '<strong>Kontaktní informace</strong><br/>' +
    'Provozovatel: <strong>Ing. Jiří Hajda</strong><br/>' +
    'Adresa: <strong>Zděchov 208, 75607</strong><br/>' +
    'Telefon: <strong>737785792</strong><br/>' +
    'E-mail: <a href="mailto: robie@centrum.cz">robie@centrum.cz</a><br/>' +
    'Jabber: <strong>chronos@jabbim.cz</strong><br/>' +
    'IČ: <strong>75904535</strong><br/>' +
    'DIČ: <strong>CZ8303255884</strong> (neplátce DPH)<br/>' +
    'Bankovní spojení pro platby v CZK v ČR: <strong>2600134781 / 2010</strong><br/>' +
    'Bankovní spojení IBAN pro platby v EUR v SR: <strong>CZ20 2010 0000 0026 0013 4781</strong><br/>' +
    'Datová schránka: <strong>crkayqe</strong><br/>';
    GeneratePage(Self);
  end;
end;

end.

