How to Populate Dynamic DropDown

Use this small code to populate a dropdown from a database tabel in an ASP page.
This Sub Routine will check for selected Record and mark as Selected

<% Option Explicit ' Let's populate a dropdown with the User Names from ' UserInfo table where UserID 3 should be selected ' in the dropdown Dim SelectedUserID SelecteduserID = 3 ' We will make a call to Sub Routine PopulateDropDown ' which will select all users from UserInfo table and ' populate a dropdown. This sub routine will also check ' for selected user and marked as SELECTED Call PopulateDropDown( SelectedUserID ) ' ********************************* ' Populate Drop Down Sub Routine ' ********************************* Sub PopulateDropDown(byVal SelectedUserID)  Dim objConn  Dim objRS  Dim strSQL  Dim UserID  Dim UserName     Const adOpenForwardOnly = 0  Const adLockReadOnly  = 1    Set objConn = Server.CreateObject("ADODB.Connection")  Set objRS  = Server.CreateObject("ADODB.Recordset")  objConn.Open "DSN=MyDSN;UID=Test;PWD=Test"  strSQL = "SELECT UserID, UserName FROM UserInfo"    objRS.Open strSQL, objConn, adOpenForwardOnly, adLockReadOnly    Response.Write "<SELECT Name=""UserID"">"  Response.Write "<OPTION Value=""""></OPTION>"    ' Loop through the recordset and populate the dropdown  Do Until objRS.EOF = True   UserID  = objRS("UserID").Value   UserName = objRS("UserName").Value      If UserID = SelectedUserID  Then    Response.Write "<OPTION Value=""" & UserID & """ SELECTED>"    Response.Write UserName    Response.Write "</OPTION>"   Else    Response.Write "<OPTION Value=""" & UserID & """>"    Response.Write UserName    Response.Write "</OPTION>"   End If     objRS.Movenext  Loop    Response.Write "</SELECT>"    objRS.Close  Set objRS = Nothing  Set objConn = Nothing End Sub %> Here is the output of above code. <SELECT Name="UserID"> <OPTION Value=""></OPTION> <OPTION Value="1">Mike</OPTION> <OPTION Value="2">Joe</OPTION> <OPTION Value="3" SELECTED>Asif</OPTION> <OPTION Value="4">Robert</OPTION> </SELECT> Mike Joe Asif Robert

Have Questions? Discuss this topic in Dev Forum