================ส่วนนี้ส่วนติดต่อฐานข้อมูล====================

<%
set conn = server.createobject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("ohlanla.mdb")
sql = "select * from menu"
rs.open sql, conn, 1,3
c=rs.recordcount
%>

 ================ส่วนเอาข้อมูลมาโชว์ใน List/Menu ==============

<select name="name" id="select">
<% for rn =1 to c %>
<option value='<%=rs("id")%>' selected><%=rs("name")%></option>
<% rs.movenext
next
rs.close
conn.close
%>
</select>
<%=count%>