Tjek om der står @ i mailen

<%
Response.write isValidEmail("kalp@eksperten.dk") & "<BR>"
Response.write isValidEmail("blahasdaskdasld")

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%>

tak :D

og et svar hvis det var okay;)