Erro "Stack Overflow" - '80020009'

[A Metallica]

Tenho uma aplicação que faz uma comparação da data do treinamento, que no servidor de teste funciona corretamente mas no servidor do site dá Erro "Stack Overflow" - '80020009'

Servidor CR BASSO

http://www.crbasso.com.br/index.asp?link=94&cur=GR16

Servidor de TESTE

http://201.28.214.250/index.asp?link=94&cur=GR16

Não consigo entender porque deste erro alguém pode me ajudar

aplicação

Alinha que é indicato é que esta com <<< >>>

<%
    varNUMTREIN = 0
    varDATA = ""
    if rsDATA.eof then
        Response.Write("Não há data definida no momento para esse treinamento")
    else
        while not rsDATA.eof
        <<< while cdate(left(rsDATA("CURDIA"),2)&"/"&rsDATA("CURMES")&"/"&rsDATA("CURANO")) <= Date() >>>
            rsDATA.movenext
        wend
            varNUMTREIN = varNUMTREIN + 1
            if varNUMTREIN = 1 then
                varDATA = varDATA & rsDATA("CURDIA")&" de "&MonthName(rsDATA("CURMES"), False)&" de "&rsDATA("CURANO")
            else
                varDATA = varDATA & "<br />"&rsDATA("CURDIA")&" de "&MonthName(rsDATA("CURMES"), False)&" de "&rsDATA("CURANO")
            end if
        rsDATA.movenext
        wend
        if varNUMTREIN = 1 then
            varTXT = "O próximo treinamento está marcado para "
        else
            varTXT = "Os próximos treinamentos estão marcados para "
        end if
        Response.Write(varTXT&"<b>" &varDATA& "</b>")
    end if
    %>

[fercosmig]

http://www.linhadecodigo.com.br/Dica.aspx?id=1150