<%@ Language=VBScript %>
<%option explicit%>
<%
function displayListOfForums()
dim obj
dim rst
dim imgMessages
dim TDStyle
dim Style
dim i
dim buffer
TDStyle = array("IMPAR","PAR")
imgMessages = showImage("images/ardina_icon_forum_msg.gif", 25, 19,0)
buffer = "Lista de Fórums
"
set obj = server.CreateObject("forum_dal.forum")
set rst = obj.GetAll(CONNNECT)
Set obj = Nothing
i = 0
buffer = buffer & "" & vbcrlf
buffer = buffer & "| | FÓRUM | ÚLTIMA MENSAGEM | MSGS |
|---|
" & vbcrlf
Do While Not rst.EOF
Style = TDStyle(i mod 2)
buffer = buffer & "| " & getlink(imgMessages,"forum_messages.asp?IdForum=" & rst("IDForum")) & " | " & _
"" & safehtml(rst("Name")) & " | " & _
"" & FormatDataHora(rst("MaxDateOfPost")) & " | " & _
"" & rst("contIdMsg") & " |
" & vbcrlf
i = i+1
rst.MoveNext
Loop
buffer = buffer & "
" & vbcrlf
set rst = nothing
displayListOfForums = buffer
end function
function showLastMessages(idForum, numMessage, DiaMessages)
dim rst
dim lIdMsg
dim lIdTopic
dim ForumLink
dim MsgLink
dim TDStyle
dim i
dim buffer
TDStyle = array("IMPAR","PAR")
buffer = "Últimas Mensagens"
set rst = getLastMessages2Param(idForum, numMessage, DiaMessages)
if rst.eof then
set rst = nothing
exit function
end if
i=0
buffer = buffer & "" & vbcrlf
Do While Not rst.EOF
lIdMsg = rst("IdMsg")
if rst("idref")<>0 then
lIdTopic = rst("idref")
else
lIdTopic =lIdMsg
end if
if idForum = "" then
ForumLink = getlink("Forum " & rst("IDForum"),"forum_messages.asp?IdForum=" & rst("IDForum")) & "
"
else
ForumLink = ""
end if
MsgLink = getlink(ShowEmotIcons(safehtml(rst("Subject"))),"message.asp?IdMsg=" & lIdTopic & "&IdForum=" & rst("IDForum")& "#m" & lIdMsg)
buffer = buffer & "" & ForumLink & MsgLink & " " & _
"
Escrito por: " & showIconRegister(rst("idregister")) & safehtml(rst("AuthorName")) & "
" & FormatDataHora(rst("DateOfPost")) & " " & _
" |
"
rst.MoveNext
i=i+1
Loop
set rst = nothing
buffer = buffer & "
" & vbcrlf
showLastMessages = buffer
end function
dim IdEdicao
dim idForum
dim sModel
dim ForumDescription
dim NumMessages
dim typeDisplay
dim ANumVisibleMessages
dim msg
ANumVisibleMessages = NewArrayMultiplos(15,1)
idForum = 1
'modelo
sModel = getModel(c_RootPath & "\modelos\modelo_int.htm")
'Edicão
idEdicao = getEdicaoActual()
'Dados existentes em todas as paginas
call ShowDadosPagina(sModel, " Fórum ", IdEdicao, "../index.asp", "../", c_RootPath & "\pub\", 0)
' forum
ForumDescription = showForumDescription(idForum)
ForumDescription = ForumDescription & "" & getlink("Inserir Tema","msg_edit.asp?idForum=" & idForum) & " | " & vbcrlf
ForumDescription = ForumDescription & getlink("Visualizar todos os temas do Fórum","forum_messages.asp?idForum=" & idForum) & "
" & vbcrlf
'Parametros
NumMessages = Request.Form("NumMessages")
typeDisplay = Request("typeDisplay")
'Filtro
if "" = NumMessages then
NumMessages = 5 '6 messages visiveis
end if
ForumDescription = ForumDescription & "" & vbcrlf
sModel = replace (sModel,c_Noticias_Marca, ForumDescription & msg )
response.write sModel
%>