Dette er en tilrettet kopi af det fra
www.html.dk<html>
<title>Hente data fra database</title>
<head>
</head>
<body>
<%
' 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 Profil"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do
' Udskriv Profil
Response.Write rs("<ul>")
Response.Write rs("<li><b>LANDSDEL:</b> " & rs("Landsdel") & "</li>")
Response.Write rs("<br>")
Response.Write rs("<br>")
Response.Write rs("<li><b>STILLING:</b> " & rs("Stilling") & "</li>")
Response.Write rs("<li><b>NAVN:</b> " & rs("Navn") & "</li>")
Response.Write rs("<li><b>ADRESSE:</b> " & rs("Adresse") & "</li>")
Response.Write rs("<li><b>FØDSELSDATO:</b> " & rs("Dato") & "</li>")
Response.Write rs("<li><b>E-MAIL:</b> " & rs("EMail") & "</li>")
Response.Write rs("<li><b>TELEFON:</b> " & rs("Telefon") & "</li>")
Response.Write rs("<li><b>MOBIL:</b> " & rs("Mobil") & "</li>")
Response.Write rs("</ul>")
Response.Write rs("Fornavn") & "<br>"
' 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
%>
</body>
</html>
Dette 'udskriver' alle profilerne i databasen.