Problema com função

Estou com esse código e nao sei pq essa função não é chamada...<input type="text" name="txtHR_Criacao_pct" maxlength="10" size="11" class="caixast" value="<%=Hora(rs("HR_Criacao_pct"))%>" onClick="ValidaHora("txtHR_Criacao_pct")" onKeyPress=" return MascaraHora(this,event);"><script LANGUAGE="vbScript">Function ValidaHora("txtHR_Criacao_pct")dim mensagemmensagem = "Digite hora válida" Dim Horas, Minuto, Segundo,hp,horariohp = "txtHR_Criacao_pct"horario = SPLIT(hp,":")Horas = Cint(horario)Minuto = Cint(horario)Segundo = Cint(horario) If Horas < 0 Or Horas > 23 Thenalert ("Digite hora válida")End If If Minuto < 0 Or Minuto > 59 Thenalert ("Digite minutos válidos")End If If Segundo < 0 Or Segundo > 59 Thenalert ("Digite segundos válidos")End IfEnd function</script>Alguém pode me ajudar?Abraços