Errore chiamata sub in una classe

[ominox]

Salve,

Ho questo codice:

file classe_news.asp

class cl_news

private con, sql, db

public rs


Public Sub VisualizzaElencoNews()
     
        sql = "SELECT  id, titolo, news_stato, news_data FROM news ORDER BY news_data desc"
        SET RS = Con.Execute( sql )

End SUB


public Sub InserisciNews(id_notizia, titolo, testo, news_stato, news_data)

Set rs=Server.CreateObject("ADODB.Recordset")

rs.open "news" ,con,3,3
    rs.addnew
        rs("id_notizia")=id_notizia
        rs("titolo")=FixSql(titolo)
        rs("testo")=FixSql(testo)
        rs("news_stato")=news_stato
        rs("news_data")=news_data
    rs.update
rs.close
Set rs= nothing
End Sub 

con questo codice chiama la funzione InserisciNews ed inserisco i dati nel db e tutto funziona perfettamente:

titolo             = TRIM(  Request.form( "titolo" ) )
testo            = TRIM( Request.form( "MyTextarea" ) ) 
news_stato           = TRIM( Request.form( "stato" ) )
news_data            = TRIM( Request.form( "data" ) )

set obj = new cl_news
call obj.InserisciNews(id_notizia, titolo, testo, news_stato, news_data)
set obj =nothing
response.redirect "inserimento_news_ok.asp" 

se invece voglio utilizzre la funzione per visualizzare l'elenco delle news co questo codice:

        

<%
Set obj = new cl_news
obj.VisualizzaElencoNews()

    DO Until (obj.rs.EOF)
        titolonews=obj.rs("titolo")
        news_stato=obj.rs("news_stato")
        datanews=obj.rs("news_data")

%>
 <%=datanews%> - <%=titolonews%> - <%=news_stato%>

<%
    obj.rs.MoveNext
    Loop
Set obj.rs = nothing

    %> 

Ricevo questo errore:

Microsoft VBScript compilation error '800a03ea'

Syntax error

/admin/gestione2/classi/classe_news.asp, line 2

class cl_news

cioè mi da errore sulla creazione della classe (non sul codice cella funzione di visualizzazione!), che invece funziona corrttamente quando richiamo la funzione per inserire la news nel db.

Come è possibile???

aiutatemi please :-)