<%
Dim strConnString, oConn, oRS, oFld
Set oConn = Server.CreateObject("ADODB.Connection")
strConnString = Application("conectar")
oConn.Open strConnString
' nombremonografico : Seria el nombre que has dado en el alta al monografico
'-----------------------
'tipoforo
'1 - Comic
'2 - Rol
'3 - Cine
'4 - Videojuegos
Set monografico = server.CreateObject("ADODB.recordset")
monografico.Open "select * from monog where id = " & request.querystring("id") & "", oConn, 3,3
if monografico.eof then response.end
nombremonografico = monografico("titulo")
tipoforo = "1"
%>
<%=nombremonografico%>
<%=monografico("titulo")%>
<%=monografico("monografico")%>
<%
if request.form("titulo") <> "" Then
Set foro = server.CreateObject("ADODB.recordset")
foro.Open "select * from mensaje order by id desc", oConn, 3,3
if isnull(monografico("mensaje")) then
if foro.eof then
id = 1
else
id = foro("id") + 1
end if
Set foro = server.CreateObject("ADODB.recordset")
foro.Open "select * from mensaje", oConn, 3,3
' vinculacion foro
monografico("mensaje") = id
monografico.update
' fin vinculacion foro.
' PRIMER MENSAJE FORO.
foro.addnew
foro.fields("titulomensaje") = "
Monográfico " & Request.form("titulo")
foro.fields("foro") = request.form("foro")
mensajemonografico = monografico("descripcion")
mensajemonografico = mensajemonografico & "
Ver Monografico."
foro.fields("mensaje") = mensajemonografico
foro.fields("autor") = "Comicvia"
foro.fields("respuestas") = "1"
foro.fields("vistos") = "1"
foro.fields("fechaalta") = now
foro.fields("fecharespuesta") = now
foro.fields("monografico") = monografico("id")
foro.update
Set foro11 = server.CreateObject("ADODB.recordset")
foro11.Open "select * from foro where id = " & request.form("foro") & "", oConn, 3,3
foro11.fields("temas") = foro11("temas") + 1
foro11.update
else
Set foro11 = server.CreateObject("ADODB.recordset")
foro11.Open "select * from foro where id = " & request.form("foro") & "", oConn, 3,3
foro11.fields("mensajes") = foro11("mensajes") + 1
foro11.update
id = monografico("mensaje")
end if
' ESTE SERIA EL MENSAJE DEL COMPI.
Set foro = server.CreateObject("ADODB.recordset")
foro.Open "select * from respuestas", oConn, 3,3
foro.addnew
foro.fields("idmensaje") = id
foro.fields("titulomensaje") = request.form("foro")
opinion = request.form("opinion")
opinion = opinion & "
Puntuación : " & request.form("puntuacion")
foro.fields("mensaje") = opinion
if session("nombre") <> "" Then
foro.fields("autor") = session("nombre")
else
foro.fields("autor") = "invitado"
end if
foro.fields("fecha") = date
foro.update
%>
Opinión realizada.
<%
response.end
end if
%>
<%
if isnull(monografico("mensaje")) then
%>
No hay opiniones.
<%else%>
Para
ver las ya informadas ">pulsa
aquí
<%end if%>