A really simple newbie function bug?

hi,

I've written up this function, however there is a bug in it and I have NO idea what it is! I just started ASP yesterday so I still havn't quite got the hang of all the little things yet.

This is the error message I get from MSIE:
Error Type:
Microsoft VBScript compilation (0x800A03F4)
Expected 'If'
/functions/AddTextListOption.asp, line 57, column 4
End Function
---^

Ive looked at other sources and snippets, i cant seem to find where ive gone wrong.

Any help would be greatly appreciated!

GM

function follows...
~~~~~~~~~~


FUNCTION AddTextListOption(strValue, strAField, strBField)
SplitPoint = 50
Dim strCompiled
strCompiled = "<option value=""+ strValue +"">"
'
'SET THE RIGHT LENGTH FOR THE 1st HALF
'
If Len(strAField) > SplitPoint then 'cut it at SplitPoint
    strAField = left(strAField, SplitPoint)
Else If Len(strAField) < SplitPoint then 'pad it out with spaces till SplitPoint
    charcount = SplitPoint - Len(Value)

    for i = 1 to (charcount - 1)    
          paddingA = paddingA & " "
    next
    strAField = strAField & paddingA
End If
'
'NOW THE SECOND HALF
'
If Len(strBField) > SplitPoint then 'cut it at SplitPoint
    strBField = left(strBField, SplitPoint)
Else If Len(strBField) < SplitPoint then 'pad it out with spaces till SplitPoint
    charcount = SplitPoint - Len(Value)

    for i = 1 to (charcount - 1)    
          paddingB = paddingB & " "
    next
    strBField = strBField & paddingB
End If

strCompiled = strDesc & strAField & strBField & "</option>" 'the complete option string

AddTextListOption = strCompiled

End Function
%>