ASP: Check Email

Function IsValidEmail(myEmail)
  dim isValidE
  dim regEx
  isValidE = True
  set regEx = New RegExp
  regEx.IgnoreCase = False
  regEx.Pattern = "^[a-zA-Z][\w\.-]*[a-zA-Z0-9]@[a-zA-Z0-9][\w\.-]*[a-zA-Z0-9]\.[a-zA-Z][a-zA-Z\.]*[a-zA-Z]$"
  isValidE = regEx.Test(myEmail)
  isValidEmail = isValidE
End Function

(http://www.codekeep.net/snippets/67a731c5-6499-4c78-a726-1dd85e4fc433.aspx)