Ciao a tutti,
non sono molto bravo in asp perciò chiedo il vostro prezioso aiuto... ho il seguente coduce... mi sapreste dire cosa non va


<%
Response.Expires = 0
Dim rs, cn, sql
Set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")


Set rs = Server.CreateObject("ADODB.Connection")
rs.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("/mdb-database/news.mdb")


sql = "SELECT * FROM tbNews ORDER BY tbNews.IDNews DESC"
cn.Open "DSN=news;"

Set rs.ActiveConnection = cn
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Source = "tbNews"
rs.Open sql, cn

x = 0

Do until(x=5)
x = x + 1
Response.Write("titolo" & x & "=" & rs("Titolo") & "&link" & x & "=" & rs("Link"))
rs.MoveNext
If x<5 then Response.Write("&")
Loop

rs.Close
Set rs=Nothing
%>


ciao e grazie