<%
Set Connect = Server.CreateObject("ADODB.Connection")
DSNName = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSNName = DSNName & "DBQ=" & Server.MapPath("fpdb/menu.mdb")
Connect.Open DSNName
Set rs = Server.CreateObject("ADODB.Recordset")
rsMenu = "SELECT * FROM menuitems ORDER BY Sort,LinkName"
rs.Open rsMenu, Connect, adOpenStatic, adLockOptimistic
%>
<% Do While NOT rs.EOF %>
<% rs.MoveNext
Loop %>