Stor bokstav

Kan man göra så att det automatisk blir en stor bokstav i fältet och resten små ?????

RecSet("fnamn") = Request.Form("fnamn")

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)) &" "

------------------
Varför bråka när man kan kramas?

[Redigerat av jorgen den 08 dec 2001]

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

funktionen finns här

------------------
// David - Probably the best guy in the world

[Redigerat av DavidB den 08 dec 2001]

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

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

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

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?

[Redigerat av Brimba den 08 dec 2001]

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)

------------------
Mvh
Patrik aka Brimba
<A HREF="http://www.brimba.nu/default.asp?oPID=poll&PollID=20" TARGET=_blank>Har du husdjur hemma?
</A>Varför får man inte dricka saltvatten?