<%
	function clearUnSafeTags(s)
		dim re
		Set re = New RegExp
		're.Pattern = "(<( )*\/{0,1}( )*(?!b|i|u|p|a|ul|li|ol)[^>]*>)"
		re.Pattern = "<(?!b>|\/b>|br>|li>|\/li>|i>|\/i>|u>|\/u>)[^>]*>"
		re.Global = true
		re.IgnoreCase = true
		clearUnSafeTags = re.replace(s, "")
	end function

	function IsEmail(strEmail)
		Dim strTemp
		strEmail = CStr(strEmail)
		IsEmail = false
		if not InStr(strEmail, "@") > 0 then
			exit function
		end if
		if not InStr(strEmail, ".") > 0 then
			exit function
		end if
		if not Len(Left(strEmail, Instr(strEmail, "@") - 1)) => 3 then
			exit function
		end if
		strTemp = Mid(strEmail, InStr(strEmail, "@") + 1, Len(strEmail))
		if not Len(Left(strTemp, InStr(strTemp, ".") - 1)) => 3 then
			exit function
		end if
		if not Len(Right(strTemp, Len(strTemp) - Instr(strTemp, "."))) => 2 then
			exit function
		end if
		IsEmail = true
	end function

%>