lista dependiente siempre se queda en primer valor

[acrego]

Buenas, buscando buscando encontre como hacer una lista dependiente que seleccione datos de una base de datos, pero el problema es que simepre se me queda en el primer valor de la lista, es decir, tengo un combo de empresas y otro documentos empleados, cuando selecciono el una empresa me saca bien los documentos de los empleados, pero el primer combo (el de la empresa) vuelve al valor inicia, mi codigo es:

Código:

<td colspan="2" valign="top" ><select name="CONFRA" class="Combo" onChange="location.href('AltaEmbar23.asp?IdConfra=' + AddEmbar.CONFRA.options[AddEmbar.CONFRA.selectedIndex].value)">
	  <%
		Dim RsConfra
		Dim RsConfra_numRows

		Set RsConfra = Server.CreateObject("ADODB.Recordset")
		RsConfra.ActiveConnection = MM_gestion_STRING
		RsConfra.Source = "SELECT Id, NomeConfra FROM Confraria ORDER BY NomeConfra"
		RsConfra.CursorType = 0
		RsConfra.CursorLocation = 2
		RsConfra.LockType = 1
		RsConfra.Open()
		RsConfra_numRows = 0%>
      
		<% While (NOT RsConfra.EOF)
			IdConfra= RsConfra("Id")
			Confra=RsConfra("NomeConfra")
			c=request.QueryString("Confra")
			if c <>""  then
				if c = Confra then
				response.Write"<option value ="&IdConfra&"&Confra="&Confra&" selected>"&Confra&"</option>"
				elseif c <> Confra then
					response.Write"<option value ="&IdConfra&"&Confra="&Confra&">"&Confra&"</option>"
				end if
			else	
			response.write "<option value ="&IdConfra&"&Confra="&Confra&">"&Confra&"</option>"
			end if 
	  	 RsConfra.MoveNext()
		Wend%> 
		<%If (RsConfra.CursorType > 0) Then
 		 RsConfra.MoveFirst
		Else
 		 RsConfra.Requery
		End If%>
		<%
		RsConfra.Close()
		Set RsConfra = Nothing
		%>
      </select>

si alguno sabe a que se debe, se lo agradeceria.
un saludo