home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 #11 / PCDIREKT_1198.bin / SHOWDATA / ECKESHOP.DXR / 00051.ls < prev    next >
Encoding:
Text File  |  1998-03-20  |  316 b   |  16 lines
  1. on keyDown
  2.   if length(field "emailAdresse") > 29 then
  3.     if the key <> BACKSPACE then
  4.       alert("Die Anzahl Zeichen f├╝r Ihre eMail Adresse ist auf 29 beschr├ñnkt!", "OK", 1)
  5.     else
  6.       pass()
  7.     end if
  8.   else
  9.     if the key = RETURN then
  10.       dontPassEvent()
  11.     else
  12.       pass()
  13.     end if
  14.   end if
  15. end
  16.