ecco:

<%
Option Explicit
Dim objConn, objRs, x
%>

<%
response.write "notizia="
call Main()

Sub Main()
'--------------------------------------------------------
'Purpose: logica dell'applicazione
'Date: 28 March 2001
'Commenti:
'--------------------------------------------------------
Dim strConn, strsql, k, oggi

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("tbnews.mdb")
k = split(date(),"/")
oggi = Cdate(k(1) & "/" & k(0) & "/" & k(2))
'se e' una notizia di ieri non mostrarla
strsql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"
Set objRS = Prendi_RecordSet(strConn, strsql)
call Prendi_RecordSet(strConn, strsql)
call Guarda_Recordset(objRs)

'pulisci e chiudi
objRs.Close
Set objRs = Nothing
End sub



Sub Guarda_Recordset(objRs)
dim titolo, link, quando, testo

titolo = objRs("titolo")
link = objRs("link")
quando = objRs("quando")
testo = objRs("testo")
'sottotitolo = objRs("sottotitolo")
'url = objRs("url")

Do while NOT objRs.EOF
%>
<table width="100" border="0">
<tr>
<td width="78">[img]new.jpg[/img]</td>
<td width="139"><%=quando%></td>
<td width="182"><%=titolo%></td>
</tr>
<tr>
<td></td>
<td colspan="2"><%=testo%></td>
</tr>
<tr>
<td></td>
<td colspan="2"><%=link%></td>
</tr>
</table>
<%
objRs.Movenext
Loop

End sub

'Function Prendi_Recordset(strConn, strsql)
'--------------------------------------------------------
'Purpose: riceve un recordset da un query
'Date: 28 March 2001
'Commenti:
'--------------------------------------------------------
' Set objConn = Server.CreateObject("ADODB.Connection")
' objConn.Open strConn
' Set objRs = objConn.Execute (strsql)
'End Function

Function Prendi_Recordset(strConn, strsql)
'--------------------------------------------------------
'Purpose: riceve un disconnetted recordset
'Date: 28 March 2001
'Commenti:
'--------------------------------------------------------
const adUseClient = 3
'const adOpenForwardOnly = 0
'const adLockBatchOptimistic = 4

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
Set objRs = Server.CreateObject("ADODB.Recordset")

objRs.CursorLocation = adUseClient
objRs.Open strsql, objConn, adOpenForwardOnly, adLockBatchOptimistic

Set objRS.ActiveConnection = Nothing
objConn.Close
Set objConn = Nothing

Set Prendi_Recordset = objRs

End Function

%>

funziona così: craea la variabile notizia= con all'interno le notizie, se non le metto dentro le tabelle le riconosce correttamente. Ma siccome le voglio impaginare le metto dentro delle tabelle ed ecco che non le riconosce più...o le sballa, insomma fa casino...
flash:

notizia1.html = true;
dati = new LoadVars();
dati.load("http://www.sito.com/news_out.asp");
dati.onLoad = function(ok) {
if(ok){
notizia1.htmlText=dati.notizia;
}
}

notizia1 è il campo di testo dinamico

grazie per la risposta