Da tutto maiuscolo a Maiuscolo solo la prima

[Gio&Ste]

Ho un db popolato da caratteri maiuscoli, come posso fare per far comparire maiuscola solo la prima lettera?

[Corinna]

Function UCfirst(myString)
   sArray = Split(myString, " ")
   For Each sWord in sArray
      UCfirst = UCfirst & UCase(Left(sWord, 1)) & LCase(Mid(sWord, 2)) & " "
   Next
   UCfirst = trim(UCfirst)
End Function

[nicyork]

Carina questa funzione....
una domanda... visto che la vorrei applicare ad una lista riportante delle province, come potrei fare per non far convertire in maiuscolo l'iniziale di alcune parole, tipo "del" o "dei"?

Grazie.

[santino83]

metti una ban list di parole da non convertire...

Function UCfirst(myString)
dim ban_list
ban_list="|di|a|da|in|con|su|per|tra|fra|etc|etc|"

   sArray = Split(myString, " ")
   For Each sWord in sArray
if instr(ban_list,lcase("|" & sWord & "|"))=0 then
      UCfirst = UCfirst & UCase(Left(sWord, 1)) & LCase(Mid(sWord, 2)) & " "
else
UCfirst =UCfirst & lcase(sWord) & " "
end if
   Next
   UCfirst = trim(UCfirst)
End Function

[nicyork]

Grazie mille...

[G N Design]

Riguardo la funzione che segue...

Function UCfirst(myString)
   sArray = Split(myString, " ")
   For Each sWord in sArray
      UCfirst = UCfirst & UCase(Left(sWord, 1)) & LCase(Mid(sWord, 2)) & " "
   Next
   UCfirst = trim(UCfirst)
End Function

Come faccio per richiamarla nel momento di far visualizzare, ad esempio, il campo nome?

response.write "" &rs("nome")& ""

Spero possiate aiutarmi

Grazie e buon fine settimana a tutti

[maximum]

response.write(UCfirst(rs("nome")))

[G N Design]

Grazie.

Ti prego di scusare la mia ignoranza in materia, ma se volessi formattare il nome (o lasciare uno spazio tra un nome ed un altro) come andrebbe ritoccato il codice?

Ancora grazie

[maximum]

Lo spazio te lo dovrebbe già lasciare la funzione (nota la parte in grassetto):

Function UCfirst(myString)
   sArray = Split(myString, " ")
   For Each sWord in sArray
      UCfirst = UCfirst & UCase(Left(sWord, 1)) & LCase(Mid(sWord, 2)) & " " 
   Next
   UCfirst = trim(UCfirst)
End Function

Per formattare che intendi?

[G N Design]

Scusa, hai ragione: mi sono spiegato male.

Per spazio intendevo un
e per formattazione <font style="...

Grazie infinite per la tua disponibilità