home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / OLOGIN.WWW < prev    next >
Text File  |  2000-03-16  |  2KB  |  60 lines
  1. {$$3220259816 .                              }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. SQLStatement: oprava
  15. #ifexists 
  16. + SELECT intr_user,intr_pswd,nazev1
  17. + FROM obchodni_partneri
  18. + WHERE  (intr_user<>"demo") AND (intr_user="%jmeno%") AND (intr_pswd="%heslo%") 
  19. #then 
  20. + UPDATE obchodni_partneri 
  21. + SET PSC= "%w_psc%",mesto= "%w_mesto%",ulice= "%w_ulice%", kont_osoba= "%w_kont_osoba%",  mail_adres="%w_mail_adres%" , telef= "%w_telef%" , intr_pswd= "%w_heslo%"
  22. + WHERE (intr_user="%jmeno%") AND (intr_pswd="%heslo%")
  23. #endif
  24.  
  25. SQLStatement: oprava2
  26. #ifexists 
  27. + SELECT intr_user,intr_pswd,nazev1
  28. + FROM obchodni_partneri
  29. + WHERE (intr_user="%jmeno%") AND (intr_pswd="") 
  30. #then 
  31. + UPDATE obchodni_partneri 
  32. + SET  intr_pswd= "%heslo%"
  33. + WHERE (intr_user="%jmeno%") AND (intr_pswd="")
  34. #endif
  35.  
  36. SQLStatement: login
  37. #ifexists 
  38. + SELECT intr_user,intr_pswd,nazev1
  39. + FROM obchodni_partneri
  40. + WHERE (intr_user="%jmeno%")AND(intr_pswd="%heslo%")
  41. #then 
  42. + SELECT Obchodni_partneri.nazev1, Obchodni_partneri.kont_osoba, Obchodni_partneri.ulice,
  43. + Obchodni_partneri.psc, Obchodni_partneri.mesto, Obchodni_partneri.zeme, Obchodni_partneri.telef, 
  44. + Obchodni_partneri.fax, Obchodni_partneri.mail_adres, Obchodnici.jmeno, Obchodnici.prijmeni,
  45. + Obchodnici.titl,Obchodnici.telef AS nastel,Obchodnici.mail_adres as nasmail, S_deal_sk.deal_skupina,Obchodnici.fotka as foto
  46. + FROM Obchodni_partneri, S_deal_sk, Obchodnici
  47. + WHERE Obchodnici.id_obchodnika=Obchodni_partneri.id_obchodnika 
  48. + AND S_deal_sk.deal_id=Obchodni_partneri.deal_sk
  49. + AND (Obchodni_partneri.intr_user="%jmeno%" AND Obchodni_partneri.intr_pswd="%heslo%")
  50. #else 
  51. + SELECT intr_user,intr_pswd,nazev1
  52. + FROM obchodni_partneri
  53. + WHERE (intr_user="%jmeno%")AND(intr_pswd="%heslo%")
  54. #endif
  55.  
  56. BeginProgram: www_login
  57.  W_delobj();
  58. EndProgram;
  59.  
  60.