 |
 |
<% all = request("all") if all = "all" then SQLQuery = "SELECT * FROM mural WHERE aprovada = True ORDER BY datamensagem DESC" else SQLQuery = "SELECT top 8 * FROM mural WHERE aprovada = True ORDER BY datamensagem DESC" end if Set rsMsg = Conn.Execute(SQLQuery) ct = 1 IF NOT rsMsg.EOF THEN DO WHILE NOT rsMsg.EOF strMsgTexto = rsMsg.fields("mensagem") strMsgData = rsMsg.fields("datamensagem") strMsgNome = rsMsg.fields("nome") strMsgEmail = rsMsg.fields("email") ' DISPONIBILIZANDO IF ct < 7 THEN response.write "
"
response.write "
"
ELSE
IF ct = 7 THEN
%>
" & strMsgTexto & "
"
response.write " 
"
response.write " " & MID(strMsgNome,1,20) & "
"
response.write " " & strMsgTexto & " "
END IF
ct = ct + 1
rsMsg.MoveNext
LOOP
if all <> "all" then
response.write "Ver os outros recados"
else
response.write "Ocultar os recados"
end if
ELSE
' ERRO!
response.write "Nenhuma mensagem encontrada!"
END IF
Set rsMsg = Nothing
%>
" response.write " " & MID(strMsgNome,1,20) & "" response.write " |
|
|
