Stor bokstav

Beror på vilken som ska vara stor?

Om det är fösta bokstaven kan du ju bara ändra när du presenterar eller innan du gör inserten om du hellre vill det.

dim strFnamn
strFnamn = RecSet("fnamn") 
response.write " "& ucase(left(strFnamn,1)) &" "

Det finns en funktion på wF Script som Pace har skrivit som är utmärkt att använda.

funktionen finns här

myStr = Request.Form("fnamn")
RecSet("fnamn") = UCase(left(myStr,1)) & LCase(mid(myStr,2)

annars tar denna funktionen rätt bra

Function UCLCString(varData)
	arrTemp = Split(lcase(trim(request.form(varData))))
	For I = LBound(arrTemp) To UBound(arrTemp)
		arrTemp(I) = Left(UCase(arrTemp(I)),1) & Right(arrTemp(I),Len(arrTemp(I)) - 1) 
		arrTemp2 = Split(arrTemp(I),"-")
		For N = LBound(arrTemp2) To UBound(arrTemp2)
			arrTemp2(N) = Left(UCase(arrTemp2(N)),1) & Right(arrTemp2(N),Len(arrTemp2(N)) - 1)

			If N >= 1 Then
				strOP = strOP & "-" & arrTemp2(N)
			Else
				strOP = strOP & " " & arrTemp2(N)
			End If

		Next

	Next
	arrTemp = ""
	arrTemp2 = ""
	UCLCString = trim(strOP)
	strOP = ""
End Function

använda mig utav brimbas kod funkar men jag är tvungen och göra så här:

MyStr = Request.Form("pnr")
	RecSet("pnr") = UCase(left(myStr,1)) & LCase(mid(myStr,2))
	
	MyStr = Request.Form("stad")
	RecSet("stad") = UCase(left(myStr,1)) & LCase(mid(myStr,2))

osv....

hur gör tvärttom fast med småbokstäver hela vägen??

måste man göra så här eller?

MyStr = Request.Form("stad")
	RecSet("stad") = LCase(left(myStr,1)) & LCase(mid(myStr,2))

MyStr = Request.Form("stad")
RecSet("stad") = LCase(myStr)