vb Validate Email

Function ValidateEmail(strEmail)
	Dim strReturn

	Set m_objClean = New Clean

	m_objClean.Data = strEmail
	m_objClean.Email()
	m_objClean.MaxLength(1024)
	strReturn = m_objClean.Data

	Set m_objClean = Nothing

	If InStr(strReturn,"@")=0 Then strReturn = ""
	If InStr(strReturn,".")=0 Then strReturn = ""
	If InStr(strReturn,"@")=Len(strReturn) Then strReturn = ""
	If InStr(strReturn,".")=Len(strReturn) Then strReturn = ""
	
	ValidateEmail = strReturn
End Function
Validates an email address - as used within slickcms

Updated: Saturday 9th October 2010, 10:57pm

There are 0 comments

Leave a comment of your own

Comments are currently closed.