dim rs_house
Set rs_house=Server.CreateObject("adodb.recordset")
if Request.Form("rs_class") = "" then
strSQL="SELECT Table_House.* FROM Table_House where Class_Code= 0"
else
strSQL="SELECT Table_House.* FROM Table_House where Class_Code="&Request.Form ("rs_class")
end if
rs_house.Open strSQL, conn
%>
<option value="0"selected >ค่ายเพลง</option>
<%Do while not rs_house.EOF%>
<option value="<%=rs_house.Fields("House_Code")%>" <%if (CLng(Request.Form("rs_house")) = rs_house.fields("House_Code")) then response.write("Selected") %> ><%=rs_house.Fields("House_Name")%></option>
<%
rs_house.MoveNext
loop
%>
</select>
ตัวอย่างข้างบนนี้เราจะเสือกแนวเพลง แล้วให้แสดงข้อมูลของค่ายเพลง แต่ต้องสร้างความสัมพันธ์ในฐานข้อมูลก่อนด้วยนะ ใช่access จะง่าย ลองดูนะ