FONCTION UCFIRST EN ASP

<%

function Ucfirst( string )
	'Clean Up the String    Nettoyage du Code Enleve les Espaces aux debut du string et a la fin et la mais en Minuscule
	string= trim(string)
	string= lcase(string)
	'Get the Strings First Letter and Change it to upper Case : Je Prends la Premiere lettre et je la passe en Majuscule
	Stringfirst = Left(string,1)
	Stringfirst = ucase(Stringfirst)
	string=replace(string,lcase(Stringfirst),Stringfirst,1)
	'Get The Next Words First Letter, Ensuite on fait le Deuxieme mot
	Spacepos=InStr(string," ")
	SecondString = Mid(string,Spacepos,2)
	SecondString = trim(SecondString)
	String=replace(string," "&SecondString," "&ucase(SecondString))
	'Et pis la on recherche tt les espaces suivi dun mot pour les mettres en Majuscule 
	Do While InStr(int(Spacepos+1),string," ") <> 0
		Spacepos=InStr(int(Spacepos+1),string," ")
		SecondString = Mid(string,Spacepos,2)
		SecondString = trim(SecondString)
		String=replace(string," "&SecondString," "&ucase(SecondString))
	Loop
	Ucfirst=string
	'Je fait le premier et deuxieme mot separement pasque a la base mes strings n'avait que deux mots mais j'ai ajouter la Loop aprés
	'CopyLeft Black Raven iceburnertk@hotmail.com
End Function
'Chtit Test avec des Chiffres histoire de voir si ca plante :p 
response.write Ucfirst("1 YOU ARE 2 ME")
'Tout marche bien donc voici ma premiere contribution a Code Sources aprés des années dinscription	
%>