<%@ Language=VBScript %>
<!-- #include file="adovbs.inc" -->
<% 'Create the recordset
set conn=server.createobject("adodb.connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.open session("connection_string")
set rs = conn.execute("select * from tblEmployee")
%>
<html>
<head>
<title>
</title>
</head>
<body>
<select name="Employee" size="1">
<%
do while not rs.eof %>
<%
response.write "<option value=" + Cstr(rs("EmpID")) +">" + rs("EmployeeName")+ "</option>"
rs.movenext
loop
%>
</select>
<% rs.close
set rs=nothing
conn.Close
set conn = nothing %>
</body>
</html>
|