FONCTION : TEST D'UNE CHAINE SI ELLE CONTIEN SEULEMENT DES LETTRES ET DES CARATÈRES SPÉCIFIQUE

Response.write TestLetterOnly("ask,.,'#@ldas78")

function TestLetterOnly(strRequestTest)
	strRequestTest = ucase(strRequestTest)
	if strRequestTest ="" then
		TestLetterOnly = "Empty"
	else
		strRequestLen = len(strRequestTest)
		for i = 0 to strRequestLen-1
			strRequest = false
			strRequestletter = mid(strRequestTest,i+1,1)
			response.write strRequestletter
			FOR j=65 TO 90
				if strRequestletter = chr(j) then
					strRequest = true
				end if
			next
			'verification des exeption : . , ' et space
			SELECT case strRequestletter 
			case " ",".","'"'ajouter ici les caractère accepter
				strRequest = true	
			end select
			if not strRequest then
				TestLetterOnly="False"
				exit function
			end if 	
		next
	end if
	TestLetterOnly="True"
end function