ayuda con formularios

Tengo un formulario con list desplegable, y los datos se obtienen de
acuerdo a una consulta en una base de datos...al darle click para
enviar...como obtengo, los datos de acuerdo a lo seleccionado en list
desplegable..???

se que es mediante request.form=("variable") pero este valor tambien lo
quiero colocar en una consulta para que me despliegue la pagina y los
datos de acuerdo a lo seleccionado...espero y me entienda

Este es mi codigo en donde presenta el form con la lista desplegable

<form method="POST" action="prueba.asp">
<p>Ver información de oficinas:</p>
<select name="opciones" size="1">
<%
dim oConn, result, sql
'Abre la conexión con la base de datos a través de una conexión ODBC
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\criveronet\db\foraneo.mdb"))


'Ejecuta un sentencia SQL de consulta
sql = "SELECT * FROM oficina"
Set result = oConn.Execute(sql)

'Recorre todas las filas del resultado
Do While Not result.EOF

'Imprimimos los contenidos del listbox
response.write "<option value='" & result("ID_OFICINA") & "'>" &
result("OFICINA") & "</option>"

'Pasa a la siguiente fila
result.MoveNext
Loop
'Cerramos las conexiones y el recordset
result.Close
Set result = Nothing
oConn.Close
Set oConn = Nothing
%>
</select>
<input type="submit" value="Enviar">
</form>



Y en este otro deseo capturar la variable correspondiente al dato
seleccionado de la lista deplgable

<%
Option Explicit
Response.Expires = -1000

Dim oConn
Dim oRS
Dim sSQL
Dim sColor
dim datos

Response.Write("<font size=2 face=arial>")
Response.Write("Foraneos<br>")
Response.Write("Ejemplo utilizando base de datos foraneo<br><br>")

datos=Request.Form("?")
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" &
Server.MapPath("\criveronet\db\foraneo.mdb"))

sSQL = "SELECT astesa.[SIN ASTESA], asegurado.ASEGURADO, causa.CAUSA,
ramo.RAMO, status.STATUS FROM status INNER JOIN (ramo INNER JOIN
(oficina INNER JOIN (causa INNER JOIN (asegurado INNER JOIN astesa ON
asegurado.ID_ASEG = astesa.aseguradoId_) ON causa.ID_CAUSA =
astesa.causaId_) ON oficina.ID_OFICINA = astesa.oficinaId_) ON
ramo.ID_RAMO = astesa.ramoId_) ON status.ID_STATUS = astesa.statusId_
WHERE (((oficina.[OFICINA ASTESA])='aqui va la consulta para desplegar
los datos de acuerdo al combo'))

Set oRS = oConn.Execute(sSQL)

Response.Write("<table border=3 cellpadding=3 cellspacing=3
style='font-family:arial; font-size:10pt;'>")
Response.Write("<tr bgcolor=black style='color:white;'><td>astesa</td>")
Response.Write("<td>asegurado</td>")
Response.Write("<td>causa</td>")
Response.Write("<td>ramo</td>")
Response.Write("<td>status</td></tr>")


sColor = "white"

Do While NOT oRS.EOF

If sColor = "silver" Then
sColor = "white"
Else
sColor = "silver"
End If

Response.Write("<tr bgcolor='" & sColor & "'>")
Response.Write("<td>" & oRS("sin astesa").Value & "</td>")
Response.Write("<td>" & oRS("asegurado").Value & "</td>")
Response.Write("<td>" & oRS("causa").Value & "</td>")
Response.Write("<td>" & oRS("ramo").Value & "</td>")
Response.Write("<td>" & oRS("status").Value & "</td></tr>")


oRS.MoveNext

Loop

Response.Write("</table><br><br>")

oConn.Close
Set oRS = Nothing
Set oConn = Nothing

%>