duda en código al cargar combos dependientes

[LinosINK]

Hola a todos, tengo unas pequeñas dudas con este código que creo encontre por este foro, es para cargar un combo dependiente de otro, elijo una provincia y según cúal elija me carga las poblaciones.

El problema viene en el primer combo al recibir en la página para mostrar las tiendas según lo que haya escogido. ya que si lo recojo así: strCmbProvincia=Request.Form("idPais")

a la hora de hacer "SELECT * FROM Tiendas where Provincia="& strCmbProvincia &" order by Nombre asc" da error ya que el value en el combo me pasa dos variables.

yo sólo necesito recoger de este combo el idProvincia que es el que me interesa pero el value del combo response.write "<option value="&idPais&"&pais="&pais&" selected>"&pais&"</option>" me pasa dos datos y en cuanto intento quitarle algo pa que sólo me pase en el value idPais me funcionan mal los combos.

Como vi que no era capaz lo que hice fue probar a metelerle una tercera variable
response.write "<option value="&idPais&"&pais="&pais&"&VariablePrueba="&id Pais&" selected>"&pais&"</option>"

y recorgerla asi strVariablePrueba = Request.Querystring("VariablePrueba") pero no coje nada esta vacía.

Alguien me puede ayudar y darme alguna pista de como solucionarlo??? siento la parrafada pero no sabía bien como explicarlo.


El código que utilizo es el siguiente, y con lo que me peleo es con lo que esta en negrita.

Código:

<form name=formulario action=tiendas.asp method=post target=_top>
<select name=idPais onChange="location.href('busqueda.asp?idPais=' + formulario.idPais.options[formulario.idPais.selectedIndex].value)" class=cajetin>
<option selected value="- Elegir provincia -">- Elegir provincia -</option>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=dominio.com.tiendas"

SQL_pais="select * from Provincias order by NombreProvincia asc"
set RS_pais=createobject("ADODB.Recordset")
RS_pais.open SQL_pais,conn
do while not RS_pais.eof
pais = RS_pais("NombreProvincia")
idPais = RS_pais("IdProvincia")

p = request.querystring("pais")
    if p <> "" then

        if p = pais then
        response.write "<option value="&idPais&"&pais="&pais&" selected>"&pais&"</option>"
        elseif p <> pais then
        response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
        end if
	else
		response.write "<option value="&idPais&"&pais="&pais&">"&pais&"</option>"
	end if

RS_pais.movenext
loop
RS_pais.close
%>
</select>
<% if request.querystring("idPais") <> "" then %>
&nbsp;<select name=ubicacion class=cajetin size=1>
<option selected value="- Elegir poblacion -">- Elegir población -</option>
<% 
SQL_prov="select DISTINCT Poblacion from Tiendas where Provincia="&request.querystring("idPais")&" order by Poblacion asc"
set RS_prov=createobject("ADODB.Recordset")
RS_prov.open SQL_prov,conn
do while not RS_prov.eof

pais = request.querystring("pais")
provincia = RS_prov("Poblacion")
%>
<option value="<%=provincia%>"><%=provincia%></option>
<%
RS_prov.movenext
loop
RS_prov.close
%>
</select><% end if %>
<a href="javascript:document.formulario.submit();"><img src="imgs/BAceptar.gif" alt="Aceptar" border="0"></a>
</form>

Saludos, y gracias.