udskriv første 6 poster i databasen

Kode 

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("database.mdb")
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from test"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

' Gennemløb Recordset (rs) med en løkke
Do

   ' Udskriv værdien af kolonnen Fornavn
%>

<%
Dim t
t = 1

Do Until t = 6
   Response.Write "<p" & t & "><%=RS("tekst")%><%=RS("tekst2")%></p" & t & ">"
   t = t + 1
Loop
%>

<%
   ' Gå til næste Record i rs
   rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>