no me resulto, quizas si ves el borrar1.asp se te puede aclarar este tema, aquí va:
<% if session("autorizacion")<>1 then
response.redirect "login.asp"
end if%>
<HTML>
<HEAD>
<TITLE>Borrar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Borrar un registro</h1>
<br>
<%
'Instanciamos y abrimos nuestro objeto conexion
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("./foro.mdb")
%>
<FORM METHOD="POST" ACTION="borrar2.asp">
Escoja el ID Mensaje<br>
<%
'Creamos la sentencia SQL y la ejecutamos
SQL="Select IdMensaje From discusion order by IdMensaje"
set RS = conn.execute(SQL)
%>
<select IdMensaje="IdMensaje">
<%
'Generamos el menu desplegable
Do While not RS.eof%>
<option><%=RS("IdMensaje")%>
<% RS.movenext
Loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Borrar">
</FORM>
</div>
</BODY>
</HTML>
Maestro, creo que en cierto modo tienes razon, pero tengo que entregar un foro mañana y necesito soluciones rápidas por eso es que posteo varias veces, así es más facil que lo vean.