Problems Using onchange with option lists

[Mirovk]

I am trying to take actions using onchange with an option list without
success.

I am not able to fully populate the list without a bad bad behavior
(the list is not getting populated)

What I am looking for, is being able to call a sub procedure each time
a new item in the list is selected (of course after it has been
populated)

Below some of the code:

<%Sub Refresh
co_pais_envio_c hk=co_pais_envi o
window.location .href="checkout _direccion.asp"
End Sub%>

<%rs_pais.MoveF irst%>

<select name="cbo_pais_ env" class="form1" id="cbo_pais_en v"
onchange=<%call refresh%>">

<option value="0" size="25">Selec cione</option>

<%Do While Not rs_pais.EOF%>
<%if cint(rs_pais("i d_pais")) 1000 then%>

<option size="25" <%If CInt(co_pais_en vio) =
CInt(rs_pais("i d_pais")) Then %selected <%End If%>
value="<%=rs_pa is("id_pais") & "-" & rs_pais("co_zon a_dhl_ve") & "-" &
rs_pais("co_zon a_mrw_ve")%>">< %=UCase(rs_pais ("no_pais")) %></option>

<%end if
rs_pais.MoveNex t
Loop
rs_pais.movefir st

Do While Not rs_pais.EOF%>
<%if cint(rs_pais("i d_pais")) < 1000 then%>

<option <%If CInt(co_pais_en vio) = CInt(rs_pais("i d_pais")) Then
%selected <%End If%value="<%=rs _pais("id_pais" ) & "-" &
rs_pais("co_zon a_fedex") & "-" &
rs_pais("co_zon a_dhl_exp")%>"> <%=UCase(rs_pai s("no_pais"))%> </option>

<%end if
rs_pais.MoveNex t
Loop
rs_pais.Close
Set rs_pais = Nothing
%>