conversão da primeira letra em maiúscula:

[fertel]

Uma função excelente de conversão da primeira letra em maiúscula:

Public Function ConverteMaiuscula(Texto)
Dim sPalavra, iPosIni
Dim iPosFim, sResultado

iPosIni = 1

Texto = LCase(Texto) & " "

Do Until InStr(iPosIni, Texto, " ") = 0
  iPosFim = InStr(iPosIni, Texto, " ")
  sPalavra = Mid(Texto, iPosIni, iPosFim - iPosIni)
  iPosIni = iPosFim + 1
  If sPalavra <> "de" And sPalavra <> "da" And sPalavra <> "do" And _
     sPalavra <> "das" And sPalavra <> "dos" And sPalavra <> "a" And sPalavra <> "e" Then
         sPalavra = UCase(Left(sPalavra, 1)) & LCase(Mid(sPalavra, 2))
 End If

 sResultado = sResultado & " " & sPalavra

Loop

ConverteMaiuscula = Trim(sResultado)
End Function 

Depois é só colocar assim onde aparecerá:

<% Response.Write(ConverteMaiuscula("SÃO JOSÉ DOS CAMPOS"))%>