<% Response.Buffer = TRUE %> A Voz do Cidadão <% Page = Request.QueryString("pagina") %>
<% If Session("typeUser") = "ADM" OR Session("typeUser") = "PUB" Then %> <% Else %> <% End If %>
 
<% LigaBD Set RS = Server.CreateObject("ADODB.RecordSet") ID = Request.QueryString("ID") 'strSQL = "SELECT * FROM cid_agenda_cidadao left join cid_tipo_agenda_cidadao on cid_agenda_cidadao.id_tipo_agenda = cid_tipo_agenda_cidadao.id_tipo_agenda WHERE cid_agenda_cidadao.ID = " & ID 'Response.Write "strSQL = " & strSQL & "
" 'RS.Open strSQL, objCon, 1 strSQL = "SELECT * FROM cid_agenda_cidadao_nova WHERE id = " & nuller_int(ID) RS.Open strSQL, objCon, 1 'strSQL = "wsp_getAgendaCidadao_Detail @ID=" & nuller_int(ID) 'call runQueryRS(strSQL,RS, objCon) If not RS.eof Then Data = FormatDateTime(RS("startPublished"), 2) 'Response.Write RS(2) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" End If %> <% LigaBD Set RSTipoAgenda = Server.CreateObject("ADODB.RecordSet") sqlContent = "SELECT id_tipo_agenda,dsc_tipo_agenda FROM cid_tipo_agenda_cidadao WHERE id_tipo_agenda = " & nuller_int(ID) & " order by dsc_tipo_agenda" RSTipoAgenda.Open sqlContent, objCon, 1 %> <% Set RS2 = Server.CreateObject("ADODB.RecordSet") LigaBD 'strSQL = "SELECT * FROM cid_agenda_cidadao WHERE ID_TIPO_AGENDA = " & RS("ID_TIPO_AGENDA") & " order by startPublished DESC" 'Response.Write "strSQL = " & strSQL & "
" 'Response.END 'RS2.Open strSQL, objCon, 1 strSQL = "SELECT TOP 10 * FROM cid_agenda_cidadao WHERE ID_TIPO_AGENDA = " & RS("ID_TIPO_AGENDA") & " order by startPublished DESC" RS2.Open strSQL, objCon, 1 'strSQL = "wsp_getAgendaCidadao_Detail2 @ID=" & nuller_int(RS("ID_TIPO_AGENDA")) call runQueryRS(strSQL,RS2, objCon) If not RS2.eof Then While not RS2.eof Data = FormatDateTime(RS2("startPublished"), 2) Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" RS2.MoveNext Wend End If %>
 
Voltar para a Agenda
"& RS("title") &"
 
"& RS("fullText") &"
 
"& Data &"
 
Todas as agendas para a categoria "<% If not RSTipoAgenda.eof Then Response.Write RSTipoAgenda("dsc_tipo_agenda") End If %>":
"& RS2("title") &"
 
"& RS2("introtext") &"
 
"& Data &"