Ho risolto con questo:
codice:
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\mdb-database\database.mdb")
sql = "SELECT TOP 15 * from news ORDER BY id DESC"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
response.write "" & Left (rs("titolo"), 17)+"..." & ""
rs.moveNext
loop
end if
rs.close
set rs =nothing
conn.close
set conn = nothing
%>
Ma ho un altro problema: quando nella stessa pagina asp c'è anche lo script delle news di luke ho l'errore
codice:
Microsoft JScript compilation error '800a03ec'
Expected ';'
/public/news1/prova.asp, line 10
credo perchè sono due linguaggi diversi...
questo è tutto il codice... aiuto, please!
codice:
<%
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\mdb-database\database.mdb")
sql = "SELECT TOP 15 * from news ORDER BY id DESC"
set rs = conn.execute(sql)
if not rs.eof then
do until rs.eof
response.write "" & Left (rs("titolo"), 17)+"..." & ""
rs.moveNext
loop
end if
rs.close
set rs =nothing
conn.close
set conn = nothing
%>[/list]
<%
/*
Autore: Luca Ruggiero - http://www.lukeonweb.net
Fonte: freeAsp.it - http://freeasp.html.it
*/
var quante_news = 6;
var Mostra_News = new ActiveXObject("ADODB.Recordset");
Mostra_News.Open("SELECT * FROM news ORDER BY id DESC",Cn,1);
var id = parseInt(Request.QueryString("id"));
if (isNaN(id) || id < 1) id = 1;
if (!Mostra_News.EOF)
{
Mostra_News.PageSize = quante_news;
Mostra_News.AbsolutePage = id;
}
var i_News = 0;
var c_News = 0;
%>
<table align="center" width="590" cellpadding="1" cellspacing="0" style="border: Solid 1px #000000; font-size:80%">
<tr bgcolor="#FFFFCC">
<td colspan="3" class="style1"> News recenti </td>
<td nowrap>Elenco completo</td>
</tr>
<%
if (Mostra_News.EOF)
{
Response.Write("<tr><td>Nessuna News presente...</td></tr>");
}
else while (!Mostra_News.EOF && i_News<quante_news)
{
%>
<tr bgcolor="#<%c_News %2 == "0" ? Response.Write("FFFFFF") : Response.Write("FFFFCC")%>">
<td width="99" align="right" style="border-top:1px dashed #CCCCCC; "><%=Mostra_News("data")%></td>
<td width="325" height="40" style="border-top:1px dashed #CCCCCC; ">| "><%=Mostra_News("titolo")%></td>
<td width="5" style="border-top:1px dashed #CCCCCC; ">|</td>
<td width="151" align="right" style="border-top:1px dashed #CCCCCC; "><%=Mostra_News("click")%> click</td>
</tr>
<%
i_News++;
c_News++;
Mostra_News.MoveNext();
}
%>
</table>
<%Cn.Close()%>
set conn = server.createObject("ADODB.Connection")