Como puedo mostrar el valor de una variable en una lista desplegable

[carolina]

hola, tengo un problema, estoy extrayendo valores de una BD en access2000 para luego visualizarlos en un formulario, el problema se presenta al querer cargar un valor en una lista desplegable. el codigo que estoy utilizando es el sgte:
<%
if Request("Accion") = "Buscando" Then
SQL = ""
SQL = SQL & " Select nombre, nombre2, apellido1, apellido2, rut, f_nacimiento, direccion, telefono, celular, area From trabajador Where rut = '" & Request("rut_aux") & "'"
Set Consulta = oConn.Execute(SQL)
Do While NOT Consulta.EOF
rut = Consulta("rut")
dir = Consulta("direccion")
fono = Consulta("telefono")
nac = Consulta("f_nacimiento")
cel = Consulta("celular")
nom1 = Consulta("nombre")
nom2 = Consulta("nombre2")
apell1 = Consulta("apellido1")
apell2 = Consulta("apellido2")
ar = Consulta("area")
Consulta.MoveNext
Loop
%>

el codigo es ejecutado y asigna los valores extraidos de la BD, pero no muestra el valor de la variable ar en la lista desplegable, la cual tiene el sgte codigo:

<select name="ar" id="ar" value="<%=ar%>" >
<option value="0" >Seleccione</option>
<option value="Docente">Docente</option>
<option value="Administrativo">Administrativo</option>
<option value="Auxiliar">Auxiliar</option>
<option value="Directivo">Directivo</option>
<option value="Asesoria">Asesoria</option>
<OPTION VALUE="<%=("area")%>">
</select>