Frage: Hat irgendwer einen fixfertigen e-Mail-Checker (also pr�fen, ob die Mailadresse, die eingegeben wurde, g�ltig sein kann) in einer Funktion verpackt?
Function fCheckEmail(byval strEmail) DIM objReg, strPattern, Matches, bEmail SET objReg = New RegExp strPattern = "[EMAIL PROTECTED]" objReg.Pattern = strPattern objReg.IgnoreCase = True SET Matches = objReg.Execute(strEmail) IF Matches.Count = 1 THEN bEmail = 1 ELSE bEmail = 0 END IF fCheckEmail = bEmail End Function
Stefan
_______________________________________________ Coffeehouse Mailingliste, Postings senden an: [EMAIL PROTECTED] An-/Abmeldung und Suchfunktion unter: http://www.glengamoi.com/mailman/listinfo/coffeehouse
