<% Option Explicit %> RecordSet Övning Om du inte ser koden, så använder du nog Explorer. Högerklicka för att få fram den. <% Dim dbConnection, rsRecords, SQL Set dbConnection = Server.CreateObject("ADODB.Connection") dbConnection.Open "dbTelefon" SQL = "SELECT * FROM Register ORDER BY Fornamn" Set rsRecords = Server.CreateObject("ADODB.Recordset") ' Nu har vi ett RecordSetObjekt. rsRecords.Open SQL, dbConnection, adOpenStatic ' Vi öppnar vårt RecordSet. rsRecords.MoveFirst ' Flyttar markören till den 1:a posten. Response.Write("1:a posten i RecordSetObjektet

") Response.Write(rsRecords("Fornamn") & "
") Response.Write(rsRecords("Efternamn") & "
") Response.Write(rsRecords("Adress") & "
") Response.Write(rsRecords("Postnr") & "
") Response.Write(rsRecords("Postort") & "
") Response.Write(rsRecords("Telefon") & "

") rsRecords.MoveLast ' Flyttar markören till sista posten. Response.Write("Sista posten i RecordSetObjektet

") Response.Write(rsRecords("Fornamn") & "
") Response.Write(rsRecords("Efternamn") & "
") Response.Write(rsRecords("Adress") & "
") Response.Write(rsRecords("Postnr") & "
") Response.Write(rsRecords("Postort") & "
") Response.Write(rsRecords("Telefon") & "

") rsRecords.MovePrevious ' Flyttar markören till nästsista posten. Response.Write("Nästsista posten i RecordSetObjektet

") Response.Write(rsRecords("Fornamn") & "
") Response.Write(rsRecords("Efternamn") & "
") Response.Write(rsRecords("Adress") & "
") Response.Write(rsRecords("Postnr") & "
") Response.Write(rsRecords("Postort") & "
") Response.Write(rsRecords("Telefon") & "

") rsRecords.Move -3 ' Flyttar markören 3 poster bakåt. Response.Write("4:e sista posten i RecordSetObjektet

") Response.Write(rsRecords("Fornamn") & "
") Response.Write(rsRecords("Efternamn") & "
") Response.Write(rsRecords("Adress") & "
") Response.Write(rsRecords("Postnr") & "
") Response.Write(rsRecords("Postort") & "
") Response.Write(rsRecords("Telefon") & "

") rsRecords.MoveNext ' Flyttar markören till 3:e sista posten. Response.Write("3:e sista posten i RecordSetObjektet

") Response.Write(rsRecords("Fornamn") & "
") Response.Write(rsRecords("Efternamn") & "
") Response.Write(rsRecords("Adress") & "
") Response.Write(rsRecords("Postnr") & "
") Response.Write(rsRecords("Postort") & "
") Response.Write(rsRecords("Telefon") & "

") %>