Recuperar valor de base de datos como selected.

[carlunchos]

Buenas Sres, tengo este tramo de codigo:
....................
............................
...................................
estado =rst("estado")

if estado = "PENDIENTE" then
response.write "<option value='PENDIENTE' selected>PENDIENTE</option>"
elseif estado = "EN REVISION" then
response.write "<option value='EN REVISION' selected>EN REVISION</option>"
else
response.write "<option value='RESUELTO' selected>RESUELTO</option>"
end if
response.write "</select>"

La idea es recuperar datos de una base access y mostrarlos en un formulario. El list-menu debe mostrar ademas de otras 3 posibilidades mas el valor recuperado de la base pero como selected, pero con lo anterior solo muestra selected el dato de la base y las otras no aparecen. Llevo una hora con este tema y no lo puedo sacar.

Alguna sugerencia?.

Gracias.

[AlZuwaga]

probá así

Código:

estado =rst("estado")

if estado = "PENDIENTE" then
var_pendiente = " selected"
elseif estado = "EN REVISION" then
var_en_revision = " selected"
else
var_resuelto = " selected"
end if

response.write "<option value='PENDIENTE'" & var_pendiente & ">PENDIENTE</option>"
response.write "<option value='EN REVISION'" & var_en_revision & ">EN REVISION</option>"
response.write "<option value='RESUELTO'" & var_resuelto & ">RESUELTO</option>"
response.write "</select>"

[carlunchos]

Al peluche Dazuaga, gracias.

[AlZuwaga]

de nada