home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / INFO.WWW < prev    next >
Text File  |  2000-03-16  |  2KB  |  51 lines
  1. {$$3218096208 .                              }Template: infologin.htw
  2. ErrorTemplate: err.htw
  3.  
  4.  
  5. SQLStatement: niclogin
  6. #ifexists 
  7. + SELECT intr_user,intr_pswd,nazev1
  8. + FROM obchodni_partneri
  9. + WHERE (intr_user="") AND (intr_pswd="")
  10. #then 
  11. + DELETE FROM obchodni_partneri WHERE (intr_user="") AND (intr_pswd="")
  12. #endif
  13.  
  14. BeginProgram: W_Copy_vars
  15. testlog(%testlogin%)
  16. EndProgram;
  17. GetVariable: testlogin:=W_testlogin
  18.  
  19. SQLStatement: login
  20. #ifexists 
  21. + SELECT intr_user,intr_pswd,nazev1
  22. + FROM obchodni_partneri
  23. + WHERE (intr_user="%jmeno%")AND(intr_pswd="%heslo%")
  24. #then 
  25. + SELECT Obchodni_partneri.nazev1, Obchodni_partneri.kont_osoba, Obchodni_partneri.ulice,
  26. + Obchodni_partneri.psc, Obchodni_partneri.mesto, Obchodni_partneri.zeme, Obchodni_partneri.telef, 
  27. + Obchodni_partneri.fax, Obchodni_partneri.mail_adres, Obchodnici.jmeno, Obchodnici.prijmeni,
  28. + Obchodnici.titl,Obchodnici.telef AS nastel,Obchodnici.mail_adres as nasmail, S_deal_sk.deal_skupina,Obchodnici.fotka as foto
  29. + FROM Obchodni_partneri, S_deal_sk, Obchodnici
  30. + WHERE Obchodnici.id_obchodnika=Obchodni_partneri.id_obchodnika 
  31. + AND S_deal_sk.deal_id=Obchodni_partneri.deal_sk
  32. + AND (Obchodni_partneri.intr_user="%jmeno%" AND Obchodni_partneri.intr_pswd="%heslo%")
  33. #else 
  34. + SELECT intr_user,intr_pswd,nazev1
  35. + FROM obchodni_partneri
  36. + WHERE (intr_user="%jmeno%")AND(intr_pswd="%heslo%")
  37. #endif
  38.  
  39. BeginProgram: www_obj
  40.   w_objfirma(%objednavka%,"%jmeno%","%heslo%");
  41. EndProgram;
  42.  
  43. GetVariable:cena:=w_cena
  44. GetVariable:cenaDPH:=w_cenaDPH
  45.  
  46. BeginProgram: mailovani
  47.   OdesliInfoMail("%w_email%");
  48. EndProgram;
  49.  
  50.  
  51.