lista dependiente siempre se queda en primer valor

[trasgukabi]

primero:
para armar el valor del option, debes generar comillas dobles, porque seguramente algun nombre de compañia tenga espacios y te joderá la consulta.
response.Write"<option value ="""&IdConfra&"&Confra="&Confra&""" selected>"&Confra&"</option>"
segundo:
así no puedes recoger el valor de confra
deberías hacer un split en el valor del select confra
me imagino que mandas el formulario con method="GET"
nombre=split(request.querystring("confra"),"&confr a=")
c=nombre(1)

tercero:
esto es redundante

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

preguntas si una cosa es igual a otra y, después, en el else preguntas si es distinto. (si una cosa no es igual a otra es que es distinta)
la estructura lógica es un simple
if
else
endif

saludos