Un foro para todos

[CHuLoSoY]

nuevomsg.asp
Este archivo guarda los mensajes y respuestas enviadas

Código:

<%
Response.Cookies("cookie")=Request.Form("nombre")
Response.Cookies("cookie").Expires="7/2/2030" 

mensaje=request.form("mensaje")
asunto=request.form("asunto")
nombre=request.form("nombre")
idforo=request.form("foroid")
idmsg=request.form("msgid")
a=request.querystring("a")

Dim lMonth
lMonth  = Array ("","01","02","03","04","05","06", _
"07","08", "09","10","11","12")

fecha = Day(Now) &"/"& _
	lMonth(Month(Now)) & "/" & Year(Now)

if a="n" then

	if mensaje ="" or asunto ="" then
	error = "Debe completar todos los datos. <a href=""javascript:history.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	set rst = Server.CreateObject("ADODB.Recordset")
	set cnn = Server.CreateObject("ADODB.Connection")
	cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
	sql = "Select * from mensajes"
	rst.Open sql,cnn,3,3

	rst.AddNew
	rst("asunto")=asunto
	rst("mensaje")=mensaje
	rst("nombre")=nombre
	rst("idforo")=idforo
	rst("fecha")=fecha
	rst("modificacion")=fecha
	rst("fechaorde")=now()
	rst("cerrado")="carpeta.gif"
	rst.update
	
	rst.close
	cnn.close
	
	
	response.redirect "foro.asp?id="&idforo 

elseif a="r" then

	if mensaje ="" or asunto ="" then
	error = "Debe completar todos los datos. <a href=""javascript:histori.go(-1)"">Atrás</a>."
	Response.Write error
	Response.End
	end if
	
	set rst = Server.CreateObject("ADODB.Recordset")
	set cnn = Server.CreateObject("ADODB.Connection")
	cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
	sql = "Select * from respuestas"
	rst.Open sql,cnn,3,3

	rst.AddNew
	rst("asunto")=asunto
	rst("mensaje")=mensaje
	rst("nombre")=nombre
	rst("idmensaje")=idmsg
	rst("fecha")=fecha
	rst("modificado")=now()
	rst.update
	
	rst.close
	cnn.close
	
	set rst = Server.CreateObject("ADODB.Recordset")
	set cnn = Server.CreateObject("ADODB.Connection")
	cnn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data source="&Server.MapPath("foros.mdb"))
	sql = "Select * from mensajes where id="&idmsg
	rst.Open sql,cnn,3,3

	rst("fechaorde")=now()
	rst.update
	
	rst.close
	cnn.close
	
	response.redirect "mensaje.asp?id="&idmsg 

end if
%>