웹상의 콤보박스(Select box)에 테이블의 field 값을 뿌려주는 예제입니다.
<!--#include file="dbconnect/dbconnect.asp"-->
<OBJECT RUNAT=server PROGID=ADODB.Recordset id=rs></OBJECT>
<%
Tblname = Request("Tblname")
'Code 부분에는 부서코드가 Name에는 부서명이 적힌 테이블 코드 테이블
Sql="select Code, Name from " & Tblname & " Order by Name ASC"
rs.Open Sql,db,1,2,1
%>
<html>
<head>
<script language="javascript">
<!--
function changesubmit()
{
var dCount;
dCount=document.form.dept.selectedIndex
alert( document.form.dept[dCount].value ); // 코드값
document.form.action = "http://cafe.naver.com/webdeveloper"
document.form.submit();
}
//-->
</script>
</head>
<title>Combobox에 코드출력하기</title>
<body>
<form name="form" method="post">
<select name="dept" onchange="javascript:changesubmit();">
<option value="">---전체보기---</option>
<%
do while not rs.eof
%>
<!--Select 리스트에는 부서명이 value에는 부서코드를 보관하고 있슴-->
<option value="<%=rs("Code")%>"><%=rs("Name")%></option>
<%rs.movenext
loop%>
</select>
</form>
</body>
</html>