<%
Set myDB=Server.CreateObject("ADODB.Connection")
myDB.Open "ASP"
Set Post=myDB.Execute("Select * FROM Person order by enamn")
%>
Runes hemsida
Dagens datum är: <%=now%>
<%Do Until Post.EOF%>
Fnamn: <%=Post("fnamn")%>
Enamn: <%=Post("enamn")%>
<%
Post.MoveNext
Loop
Post.Close
myDB.Close
%>