<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% pagina = "debates"%> <% Dim nota nota = 0 if request("nota")&"a" <> "a" then nota = nota + request("nota")%> <% Dim debate Dim debate_numRows Set debate = Server.CreateObject("ADODB.Recordset") debate.ActiveConnection = MM_iabsp_STRING if nota > 0 then debate.Source = "SELECT data, ID_debate, quente, Str_email, Str_Imagem_debate, Str_site, Str_Texto, Str_Titulo FROM debate where ID_debate = "& nota &"" else debate.Source = "SELECT data, ID_debate, quente, Str_email, Str_Imagem_debate, Str_site, Str_Texto, Str_Titulo FROM debate order by ID_debate Desc" end if debate.CursorType = 0 debate.CursorLocation = 2 debate.LockType = 1 debate.Open() debate_numRows = 0 %> <% if nota = 0 then nota = (debate.Fields.Item("ID_debate").Value)%> <% Dim debates Dim debates_numRows Set debates = Server.CreateObject("ADODB.Recordset") debates.ActiveConnection = MM_iabsp_STRING debates.Source = "SELECT aparece, ID_debate, Str_Titulo FROM debate WHERE aparece = 1 Order by ID_debate desc" debates.CursorType = 0 debates.CursorLocation = 2 debates.LockType = 1 debates.Open() debates_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 debates_numRows = debates_numRows + Repeat1__numRows %>

<% foto =(debate.Fields.Item("Str_Imagem_debate").Value) if foto&"a" <> "a" then%> <%end if%> <% site =(debate.Fields.Item("Str_site").Value) if "a"&site <> "a" then %> <%end if%> <% email =(debate.Fields.Item("Str_email").Value) if "a"&email <> "a" then %> <%end if%>   <%=(debate.Fields.Item("Str_Titulo").Value)%>   <%= replace ((debate.Fields.Item("Str_Texto").Value),chr(13), " ")%> <% = site%> <%=email%> <%=(debate.Fields.Item("data").Value)%>       <% While ((Repeat1__numRows <> 0) AND (NOT debates.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 debates.MoveNext() Wend %> Opinião e Debate <%ID_debate=(debates.Fields.Item("ID_debate").Value)%> <%if ID_debate <> nota then%> <%=(debates.Fields.Item("Str_Titulo").Value)%> <%else%> <%=(debates.Fields.Item("Str_Titulo").Value)%> <%end if%>

<% debate.Close() Set debate = Nothing %> <% debates.Close() Set debates = Nothing %>