home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / s602 / DISK4FRM / 602FORUM.Z / S_ZPRAV.WBC < prev    next >
Text File  |  1997-06-27  |  990b  |  36 lines
  1. ;   FORUM602 - internetova databazova aplikace pro diskusni klub
  2. ;
  3. ;   (c) 1997 Software602, a.s.
  4. ;
  5. ;
  6. ; WBC konektor pro zobrazeni vsech zprav z urcitych temat
  7. ;
  8. ; vstupni promenne:
  9. ;   hz      ... id hlavni zpravy v tematu, ktere chci zobrazit
  10. ;       lze ji nacist vicekrat (pak zobrazi vsechna temata, jejichz id
  11. ;       hlavni zpravy bylo predano)
  12. ;   tt      ... 0|1
  13. ;   nmu     ... zobrazit zaznamy s takovou maximalni urovni | -1
  14. ;   vk      ... vysledek predchoziho pridavani zpravy, nebo "0"
  15. ;
  16. Datasource: FORUM_DB: Forum
  17. Username: _webforum
  18. Password:
  19. Template: forum\s_zprav.htw
  20. RequiredValues: tt hz nmu vk
  21. BeginProgram: Web_max_uroven
  22.     Uprav_max_uroven(%nmu%,%hz%);
  23. EndProgram;
  24. GetVariable: mu:=max_uroven
  25. GetVariable: zobrazena_max_uroven:=zobrazena_max_uroven
  26. SQLStatement: zpravy
  27. + SELECT *
  28. + FROM Zprava
  29. + WHERE ((uroven<=%mu%) OR (%mu%=-1)) AND (
  30. #repeat delimiter=` OR ` var=hz
  31. + (id_main=%hz%)
  32. #endrepeat
  33. + )
  34. + ORDER BY id_main,pos
  35.  
  36.