update con combo.

[u_goldman]

No se si sea la mejor solución pero yo haría algo así:

Aqui está la tabla con el campo meses

|meses|
Enero
Febrero
Marzo
Abril
Mayo
Junio
Julio
Agosto
Septiembre
Octubre
Noviembre
Diciembre

Después tienes ya un recordset que incluye entre otras cosas el mes de compra, suponiendo que este mes sea 'Enero'

mes_compra= rsCompra("mes")

'Dimensionas un arreglo
Dim arrMeses(12)

Abres un recordset con la tabla de meses, yo le llamo rsMeses
Ahora poblamos el arreglo con lo que traiga el rsMeses, pero <> de mes_compra

For i=0 to rsMeses.Recordcount
If rsMeses("meses") <> mes_compra Then
arrMeses(i)= rsMeses("meses")
Else
arrMeses(i)= mes_compra
End If
rsMeses.MoveNext
Next

ok, ya tenemos un arreglo con los meses sin duplicados, ahora a poblar el combo

<select name=mes>
<%
For i = 0 to Ubound(arrMeses)
If not arrMeses(i) = mes_compra Then
%>
<option value="<%=arrMeses(i)%>"><%=arrMeses(i)%></option>
<%
Else
%>
<option value="<%=arrMeses(i)%>" selected><%=arrMeses(i)%></option>
<%
End If
%>
Next
</select>

No lo he probado pero creo que debe funcionar...incluso puedes hacer de esto una funcion que reciba solo al mes que no debe incluir y regrese el arreglo completo...

Salu2,