como crear un foro

elshiko · #1 (**permalink**) 23/07/2003, 18:14

Buenas gente...

Quisiera que me guien en lo siguiente, como puedo hacer un foro??...

pero no quiero un foro ya creado, estilo miarroba.com.
sino uno simple donde no sea necesario registrarse ni nada...

como un estilo de guestbook pero sin registro...

alguien me podria guiar un poco??
desde ya gracias!!!!...

Saruman · #2 (**permalink**) 23/07/2003, 19:00

claro, es facil... siempre es bueno ayudar...

aqui te muestro los siguientes archivos:

descripcion de la bd:

nombre: datos.mdb
tabla: comentarios

en la pagina comentarios.asp:

<html>
<head>
<title>Comentarios</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form1" method="post" action="salvarcomentarios.asp">
<table width="600" border="0" cellspacing="1" cellpadding="1" class="TEMin">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="1" class="TEMout">
<tr>
<td><table width="100%" border="0" cellspacing="1" cellpadding="1">
<tr valign="middle">
<td width="17%">Tu Nombre:</td>
<td width="83%">
<input name="txtnombre" type="text" size="50" maxlength="50" value="Anónimo"></td>
</tr>
<tr valign="middle">
<td>Título:</td>
<td>
<input name="txttitulo" type="text" size="70" maxlength="100"></td>
</tr>
<tr>
<td valign="top">Comentario:</td>
<td><textarea name="message" cols="79" rows="10" wrap="VIRTUAL"></textarea></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<br>
<input type="submit" name="Submit" value="Publicar Opinion" class="Botones">
</form>
</body>
</html>

en la pagina salvarcomentarios.asp:

<%
Set Master = Server.CreateObject("ADODB.Connection")
Master.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/datos.mdb"))

if request.Form("txtnombre") <> "Anónimo" and request.Form("txtnombre") <> "" then
Autor = request.Form("txtnombre")
else
Autor = "Anónimo"
end if

sSQL = "insert into comentarios (titulo,comentario,autor,fecha) values ('" & request.Form("txttitulo") & "', '" & request.Form("message") & "', '" & Autor & "', '" & Now() & "')"

Master.Execute(sSQL)

response.Write("Los comentarios fueron salvados correctamente.")
%>
<html>
<head>
<title>Comentarios Enviados</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

</body>
</html>

espero te funcione, no lo he probado pero estoy seguro que funciona, porque tengo uno parecido, pero mas complejo...

ok