Menu desplegable con DB

[SUMMITE]

<p>

<select size="1" name="idcategoria" tabindex="3">
<option selected value="<%response.write (miid)%> "><%response.write (micategoria)%></option>

<%
If rsG2.EOF = True then
Response.Write "<center> No hay registros relacionados "
Else

While NOT rsG2.EOF
%>
<option value="<%response.write rsG2("Num_Id")%> "><%response.write rsG2("nombre")%></option>
<%
rsG2.MoveNext
Wend
rsG2.Close
Set rsG2 = Nothing
Set cn1 = nothing

end if
%>


</select></p>
<p><input type="submit" value="Modificar" name="familia" tabindex="2"><span lang="es">  &nb sp;   
</span><input type="reset" value="Restablecer" name="r" tabindex="1"></p>
</form>
<p> </p>