request.Form("mini_heading"&u&"")

Function Capitalize(arg)
    Dim temp: temp = ""
    If arg <> "" Then
        temp = UCase(Left(arg, 1))
        If Len(arg) > 1 Then
            temp = temp & Mid(arg, 2)
        End If
    End If
    Capitalize = temp
End Function

'... Change Heading/Content text to Proper Case
'... e.g. tod -> Tod
function PCase(strInput)

    Dim iPosition,iSpace,strOutput  

    iPosition = 1

    do while InStr(iPosition, strInput, " ", 1) <> 0
        iSpace = InStr(iPosition, strInput, " ", 1)
        strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
        strOutput = strOutput & LCase(Mid(strInput, iPosition + 1, iSpace - iPosition))
        iPosition = iSpace + 1
    loop

    strOutput = strOutput & UCase(Mid(strInput, iPosition, 1))
    strOutput = strOutput & LCase(Mid(strInput, iPosition + 1))

    PCase = strOutput
end function