Salve,
forse è una domanda di base, di sicuro dovuta alla mia ignoranza..
Per questo codice funziona:
(Ottiene gli ultimi 8 messaggi scritti sul forum)
codice:
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/platinum.mdb")
function getlast_topics(numdays)
set tConn= Server.CreateObject("ADODB.Connection")
tConn.Open ConnString

strSql = "SELECT TOP "&numdays&"  T_AUTHOR,T_LAST_POST,T_LAST_POSTER,T_DATE,T_SUBJECT,TOPIC_ID,FORUM_ID,CAT_ID from FORUM_TOPICS order by T_LAST_POST DESC"
CColor=strForumCellColor
set rss = tConn.Execute (strSql)

do until rss.eof
tFORUMID=rss("FORUM_ID")
if tFORUMID <> "6" then 
tID=rss("TOPIC_ID")
tPOSTER=rss("T_LAST_POSTER")
tDATE=rss("T_DATE")
tSUBJECT=rss("T_SUBJECT")
strlast =strlast&"> "   &""&tSUBJECT&"
"&vbcrlf
End if

rss.movenext
loop

rss.close
set rss=nothing
tConn.close
set tConn=nothing
getlast_topics=strlast
end function
%>
<% =getlast_topics(8) %>
Mentre questo (nella modalità con cui normalmente accedo ai database), NO ???
codice:
<%
set conn= Server.CreateObject("ADODB.Connection")
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/mdb-database/platinum.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")

strSql = "SELECT TOP 8 T_AUTHOR,T_LAST_POST,T_LAST_POSTER,T_DATE,T_SUBJECT,TOPIC_ID,FORUM_ID,CAT_ID from FORUM_TOPICS order by T_LAST_POST DESC"
rs.open strSql,conn
Do While rs.EOF%>
  <%= rs.fields("T_SUBJECT") %>

  <%
Loop
 %>
Sapete illuminarmi??

Grazie mille

Riky