Microsoft VBScript compilation (0x800A0400)

I am not sure what is wrong but this is the error which I get.
Error Type:

Microsoft VBScript compilation (0x800A0400)

Expected statement

/WebProject/include/commonfunctions.asp, line 364

TABLES##

which is get field type function
Function GetFieldType(strTable, strFieldName)

TABLES##

if RemoveWrappers(strTable) = "##TABLENAME##" then

ALLFIELDS## if strFieldName="##FIELD##" then GetFieldType= ##TYPE## end if

/ALLFIELDS##

end if

/TABLES##

End Function
any Help would be appreciated

Thanks