home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / s602 / DISK4FRM / 602FORUM.Z / P_ZPRAVU.WBC < prev    next >
Text File  |  1997-06-27  |  1KB  |  50 lines
  1. ;   FORUM602 - internetova databazova aplikace pro diskusni klub
  2. ;       (c) 1997 Software602, a.s.
  3. ;
  4. ;
  5. ; WBC konektor pro pridani nove zpravy tematu do fora
  6. ;
  7. ; vstupni promenne:
  8. ;
  9. Datasource: FORUM_DB: Forum
  10. Username: _webforum
  11. Password:
  12. Template: forum\s_zprav.htw
  13. RequiredValues: tt hz ot nmu
  14. BeginProgram: Web_pridej
  15.     PridejZpravu(%ot%);
  16. EndProgram;
  17. ; precteme id nove pridane zpravy
  18. GetVariable: id_nove_zpravy:=id_nove_zpravy
  19. GetVariable: vk:=vysledek
  20. SQLStatement:
  21. #ifexists
  22. + SELECT *
  23. + FROM Zprava
  24. + WHERE (id=%id_nove_zpravy%)
  25. #then
  26. + UPDATE Zprava
  27. + SET kdo="%jmeno_autora%",
  28. + email="%email_autora%",
  29. + titulek="%titulek%",
  30. + text="%text_zpravy%",
  31. + `ip adresa`="%REMOTE_ADDR%"
  32. + WHERE (id=%id_nove_zpravy%)
  33. #endif
  34. ; vypocitat novou max.uroven
  35. BeginProgram: Web_max_uroven
  36.     Uprav_mu_po_pridani_zpravy(%nmu%,%id_nove_zpravy%);
  37. EndProgram;
  38. GetVariable: mu:=max_uroven
  39. GetVariable: zobrazena_max_uroven:=zobrazena_max_uroven
  40. SQLStatement: zpravy
  41. + SELECT *
  42. + FROM Zprava
  43. + WHERE (uroven<=%mu% OR %mu%=-1 ) AND (
  44. #repeat delimiter=` OR ` var=hz
  45. + (id_main=%hz%)
  46. #endrepeat
  47. + )
  48. + ORDER BY id_main,pos
  49.  
  50.