Notice: This website is an unofficial Microsoft Knowledge Base (hereinafter KB) archive and is intended to provide a reliable access to deleted content from Microsoft KB. All KB articles are owned by Microsoft Corporation. Read full disclaimer for more details.
View products that this article applies to.
<HTML>
<BODY>
<BR>This is an HTML ListBox<BR>
<SELECT NAME="ListBox" SIZE=1>
<% Set conn = Server.CreateObject("ADODB.Connection") %>
<% conn.Open "DSN=AdvWorks" ' connect to the database %>
<% Set rs = conn.Execute("SELECT City FROM Customers") %>
<% Do While Not rs.EOF ' define the ListBox OPTIONs %>
<OPTION VALUE="<%= rs("City") %>"> <%= rs("City") %>
<% rs.MoveNext %>
<% Loop %>
<% rs.Close %>
<% conn.Close %>
</SELECT>
</BODY>
</HTML>
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<BODY>
<BR>This is an ActiveX ComboBox control<BR>
<!-- insert the ActiveX control into the HTML page -->
<OBJECT ID="ComboBox" WIDTH=96 HEIGHT=24
CLASSID="CLSID:8BD21D30-EC42-11CE-9E0D-00AA006002F3">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
' load the ActiveX control after the window has been loaded
Sub Window_OnLoad()
<% Set conn = Server.CreateObject("ADODB.Connection") %>
<% conn.Open "DSN=AdvWorks" ' connect to the database %>
<% Set rs = conn.Execute("SELECT City FROM Customers") %>
<% Do While Not rs.EOF %>
thisForm:ComboBox.AddItem("<%= rs("City") %>") ' Do an AddItem for
' each record
<% rs.MoveNext %>
<% Loop %>
<% rs.Close %>
<% conn.Close %>
End Sub
-->
</SCRIPT>
</BODY>
</HTML>
Keywords: KB175426, kbscript, kbhowto, kbdatabase, kbcodesnippet