<% Function titleize(str) titleize = Ucase(Left(section,1))+Mid(section,2) end Function Select Case section Case "quienessomos" title = "Quienes Somos" Case else title = titleize(section) End Select %> <% =title %> - Waldbott Software