- Si deseas crear una nueva discusión selecciona: NUEVO MENSAJE
- Si deseas responder a un mensaje existente: da click sobre el
título y posteriormente selecciona la opción de RESPONDER
A ESTE MENSAJE.
<%
'************ CODE GOES HERE ******************************************************************
Dim strSQL, rsMsg, i, j, actRecord, actPadre
Set rsMsg = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT TOP 150 * FROM MENSAJE ORDER BY mens_fecha DESC"
ExecQuery strSQL, rsMsg
Session("password") = false
If rsMsg.RecordCount <> 0 Then
Response.Write "
"
For i = 1 To rsMsg.RecordCount
If rsMsg("mens_padre") = 0 Then
'***** Titulo
Response.Write "
"
'***** Ir por los hijos
actRecord = i
actPadre = rsMsg("mens_id")
rsMsg.MoveLast
For j = 1 To rsMsg.RecordCount
If rsMsg("mens_padre") = actPadre Then
'***** Titulo hijo
Response.Write "
"
End If
rsMsg.MovePrevious
Next
rsMsg.MoveFirst
rsMsg.Move actRecord - 1
'*****
rsMsg.MoveNext
Response.Write "
"
Else
rsMsg.MoveNext
End If
Next
Else
Response.Write "
"
Response.Write "
"
Response.Write "
No existen Mensajes
"
Response.Write "
"
Response.Write "
"
End If
rsMsg.Close
Set rsMsg = Nothing
'**********************************************************************************************
'**********************************************************************************************
%>
