//To bind the data to dropdownlist in html
<select name="" id="" style="WIDTH: 200px" class="clsListBox">
<% call FillCombo() %>
</select>
Sub FillCombo()
SqlCon.open()
Dim sqlcmd As SqlCommand = New SqlCommand("SP Name", sqlcon)
sqlcmd.CommandType = CommandType.StoredProcedure
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlcmd)
Dim dr As SqlDataReader
dr = sqlcmd.ExecuteReader()
Dim intComboID As Integer = 0
While dr.Read()
Response.Write("<option value='" & intComboID & "'dr.Item("Name") & "</option>")
intComboID = intComboID + 1
End While
dr.Close()
dr = Nothing
sqlcon.Close()
End Sub