% @LANGUAGE = VBScript %> <% Response.Buffer = True %> <% '----------------- DO NOT CACHE THIS PAGE! -------------------- Response.Expires = -1 Response.ExpiresAbsolute = Now() - 3600 Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", "private" Response.CacheControl = "no-cache" '-------------------------------------------------------------- '_______________________________________________________________ ' Capitalize First Letter of Each Word '_______________________________________________________________ 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 '_______________________________________________________________ %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||