اسكربت لتشييك علامه (@) في البريد الالكتروني

أخي هذه دالة كتبتها لك على السريع ..

Function isValidEmail(email)

         if InStr(email,"@")=0 or Instr(email,".")=0 then

           isValidEmail=False

         else

           isValidEmail=True

         end if  

 End Function



// لاستدعائها 

call isValidEmail(request.Form("strMail"))

طبعا استخدم البحث ستجد دالة أقوى من هذه كتبتها مرة و لكن هذه تفي بالغرض عادة ..

بالتوفيق و لا تنسانا من الدعاء ;)

وفقكم الله ..........ونشكرك جدا جدا ونبقى على اتصال:)(f)

جميل اذا كان المطلوب .. وفقك الله في مشروعك ..