ASP : Fonksiyonlar.

Function strAscii(X)
	arrChar = Array("ğ" ,"ü" ,"ş" ,"ö" ,"ç" ,"ı" ,"Ğ" ,"Ş" ,"İ" ,"Ç" ,"Ü" ,"Ö" ,"," ,"/" ,"*" ,"\" ,"(" ,")" ,"%" ,"+" ,"^" ,"#" ,"!" ,"'" ,"[" ,"]" ,"{" ,"}" ,"?" ,"=" ,"&" ,"$" ,":" ,"<" ,">" ,"|" ,"`" ,"@" ,";" ,"~" ,"‘" ,"’" ,"¢" ,"£" ,"¤" ,"¥" ,"¦" ,"§" ,"¨" ,"©" ,"ª" ,"«" ,"»" ,"¬" ,"®" ,"¯" ,"°" ,"±" ,"²" ,"³" ,"´" ,"µ" ,"¶" ,"·" ,"¸" ,"¹" ,"º" ,"¼" ,"½" ,"¾" ,"¿" ,"À" ,"Á" ,"Â" ,"Ã" ,"Ä" ,"Å" ,"Æ" ,"È" ,"É" ,"Ê" ,"Ë" ,"Ì" ,"Í" ,"Î" ,"Ï" ,"Ñ" ,"Ò" ,"Ó" ,"Ô" ,"Õ" ,"×" ,"Ø" ,"Ù" ,"Ú" ,"Û" ,"İ" ,"ß" ,"à" ,"á" ,"â" ,"ã" ,"ä" ,"å" ,"æ" ,"è" ,"é" ,"ê" ,"ë" ,"ì" ,"í" ,"î" ,"ï" ,"ñ" ,"ò" ,"ó" ,"ô" ,"õ" ,"÷" ,"ø" ,"ù" ,"ú" ,"û" ,"ı" ,"ÿ" ," " ,"""", "'")
	for i = 1 to UBound(arrChar)
		If inStr(X, arrChar(i)) <> 0 Then
			strAscii = False
			Exit For
		Else
			strAscii = True
		End If
	Next
End Function

Function strEmpty(X)
	If X = "" or isNull(X) = True or isEmpty(X) = True Then
		strEmpty	= True
	Else
		strEmpty	= False
	End If
End Function

Function strNumeric(X)
	if isNull(X) = False Then
		If isNumeric(X) = False Then
			strNumeric 	= False
		Else
			strNumeric	= True
		End If
	Else
		strNumeric	= False
	End If
End Function

Function strDomainsBan(X)
	arrChar = Array("@mynet.com", "@mail.com", "@a.com" ,"@b.com", "@c.com")
	If isNull(X) = False Then
		for i = 1 to UBound(arrChar)
			If inStr(X, arrChar(i)) <> 0 Then
				strDomainsBan = False
				Exit For
			Else
				strDomainsBan = True
			End If
		Next
	Else
		strDomainsBan	= False
	End If
End Function