acá te envio un codigo bastante basico, sobre la realización de un foro muy basico y elemental.  lo que hace este codigo es que despliega un combo de un BD access y el dato que eliges, hace el refresh, vuelve a cargar la pagina,  almancena los datos ingresados, y luego despliega esos datos ingresados.  Tal vez te sirva para que saques una idea de lo que buscas.. además deja seleccionada la opción que elegiste del combo
  
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN//3.0">
<HTML>
<HEAD><TITLE> Foro </TITLE></HEAD>
<BODY> 
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\miforo.mdb"))  
fecha = Now()
login = "loginUsuario"
comentarios = Request("comentarios")
pais = Request("slcPais")
if comentarios <> "" then
     sql= "INSERT INTO latabla(fecha, login, comentario)"
     sql = sql & "VALUES('"&fecha&"','"&login&"' ,'"&comentarios&"')"
     con.Execute(sql)
end if
%> 
Foro de Acotaciones al Sistema:
<HR> 
<% 
	'se imprime el país elegido
	response.write pais 
  Set rs = Server.CreateObject("ADODB.Recordset") 
sql = "SELECT * FROM latabla"
rs.Open sql, con, 3,3
%> 
<% 
rs.moveLast
Do while not RS.BOF %>
<HR>
<B>Fecha:</B> <%= RS("fecha")%><BR>
<B>Nombre Usuario:</B> <%= RS("login")%><BR>
<B>Comentarios:</B> <%= RS("comentario")%><BR> 
<%
  RS.MovePrevious ()
  Loop
%> 
<form name="formulario" action="foro.asp" method=post> 
<textarea name="comentarios" rows=5 cols=70>
</textarea>
<br>
    <input type="Reset" value="Borrar" name="RESET">
	<TABLE>
	<TR>
	<td><select name="slcPais" class="cajaTexto" onchange="document.getElementById('formulario').su  bmit()" >
	<%
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT * FROM paises"
		rs.Open sql, con, 3,3
		if Request("slcPais")="" then
		%>
				<option value="" selected>Seleccione un Pais</option>
		<%
			Do while not RS.EOF %>
				<option value=<%=RS("pais")%>><%=RS("nombre")%></option>
		<%	RS.MoveNext()
			loop
		else
			Do while not RS.EOF
     			if Request("slcPais")= RS("pais") then %>
				<option value=<%=RS("pais")%>><%=RS("nombre")%></option>
				<%else%>
					<option value=<%=RS("pais")%>><%=RS("nombre")%></option>
			<%	end if
			RS.MoveNext()
			loop
		end if%>
	  </select></td>
	</TR>
	</TABLE>
 </form> 
</BODY>
</HTML> 
este codigo está probado, y lo puedes probar,también te envio el diseño de la BD Acces: 
nombre: mi foro 
tablas: 
latabla
fecha | login | comentario 
paises
pais      |  nombre
CHILE      CHILE
BRASIL     BRASIL
USA         ESTADOS UNIDOS
ARG         ARGENTINA  
Espero que sea de ayuda ....  
