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