Erro de sintaxe '800a03ea'

Boas estou a ter este erro com esta funcao, se fiz normalmente trabalha bem mas criando uma funcao para isto da-me este erro:

Erro de compilação do Microsoft VBScript erro '800a03ea'

Erro de sintaxe

Function chekregint(param) ^

Function chekregint(param)
if check_reg.fields(""&param&"")="1" then
chekregint = " checked "
end if
end function

<%=chekregint(chC)%>

Obrigado