ASP - 2 combobox dinámicos

Necesito refrescar un segundo combobox con los valores que resulten al elegir un valor del primer combobox.

El primero lo cargo dinámicamente con una consulta a una bd:

<Select Name="NombreCampo">
<%Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={SQL Server};server=miServer; database=prueba; uid=xx;pwd=xx"
SQL = "SELECT * FROM Tabla"
Set rs = conn.Execute(SQL)
While Not rs.EOF
%>
<option value="<%=rs("IdCampo")%>"><%=rs("NombreCampo")%></option>
<%
rs.MoveNext
Wend
rs.Close
%>
</Select>

supongo que para cargar el segundo habrá que hacerlo con vbscript pero no se me ocurre como...