Nybörjare som man är så fattar jag ingenting, vad är det för fel i denna kodsnutt? Det står bara senaste inget från databases trots att det finns saker skrivit där.

<%
Dim Connect, SQLsats, RecSet

Set Connect = Server.CreateObject("ADODB.connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\media.mdb")&";"
SQLsats = "Select * from media"
Set RecSet = connect.Execute(SQLsats)
Response.Write "senaste:<br><br>"

do until RecSet.EOF

RecSet.MoveNext

loop

recset.close
connect.close
set recset = nothing
set connect = nothing
%>

Du har en loop som går igenom ett recordset. Men du gör inget i loopen. Du måste skriva koden som skriver ut posterna.

Testa:
<code>
<%
Dim Connect
Dim RecSet
Dim fldField
Dim SQLsats

Set Connect = Server.CreateObject("ADODB.connection")

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &Server.MapPath("Db\media.mdb")&";"
SQLsats = "Select * from media"
Set RecSet = connect.Execute(SQLsats)

Response.Write "senaste:<br><br>"

Response.Write "<table><tr>"
For each fldField In RecSet.Fields
Response.Write "<td>" & fldField.Name & "</td>"
Next
Response.Write "</tr>"

Do until RecSet.EOF
Response.Write "<tr>"
For each fldField In RecSet.Fields
Response.Write "<td>" & fldField.Value & "</td>"
Next
Response.Write "</tr>"
RecSet.MoveNext
loop
Response.Write "</table>

recset.close
connect.close

set recset = nothing
set connect = nothing
%>
</code>

Det var ju enkelt avklarat med en Response.Write RecSet("titel")&"<br>.

Sedan skulle jag ha de 10 senaste i den kategorin, Jag använder
SQL = "Select top 10 * from media order by datum DESC"
Fast den allra senaste skrivs aldrig ut, Den börjar med nummer 2 och går sedan neråt. Hur får man den första att skrivas ut?? Annars ser det ut som det första inlägget här ovan.