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 ....
