<% Response.Buffer = TRUE %> <% 'Call WriteHit(Request.QueryString("SM")) %> A Voz do Cidadão
<% If Session("typeUser") = "ADM" OR Session("typeUser") = "PUB" Then %> <% Else %> <% End If %>
<% Call CountHits(Request.QueryString("SM")) %> <% Set RS = Server.CreateObject("ADODB.RecordSet") Set RS2 = Server.CreateObject("ADODB.RecordSet") SM = Request.QueryString("SM") If Trim(SM) <> "" Then SM = Split(SM,"#",-1, 1) Menu = SM(0) SubMenu = SM(1) 'sqlSection = "SELECT TOP 1 id, menu_id, content_id FROM cid_section_content WHERE menu_id = "& SubMenu &" ORDER BY id DESC" 'sqlSection = "SELECT TOP 1 SC.id, SC.menu_id, SC.content_id FROM cid_section_content AS SC, cid_content AS C WHERE SC.content_id = C.id AND C.published = 1 AND SC.menu_id = "& SubMenu &" ORDER BY C.ordering, SC.id DESC" 'Response.Write "sqlSection= " & sqlSection & "
" 'RS.Open sqlSection, objCon, 1 strSQL = "wsp_getSectionContent_top1 @menu_id=" & nuller_int(SubMenu) call runQueryRS(strSQL,RS, objCon) If not RS.eof Then 'Foi colocada essa condição para que o filtro funcionasse já que os dados retornados por ele o menu = 1 if Menu <> 1 then 'sqlContent = "SELECT * FROM cid_content WHERE ID = " & rs("content_id") sqlContent = "wsp_getContent @ID=" & nuller_int(rs("content_id")) else 'sqlContent = "SELECT * FROM cid_content WHERE ID = " & request.QueryString("ID") sqlContent = "wsp_getContent @ID=" & nuller_int(request.QueryString("ID")) end if 'RS2.Open sqlContent, objCon, 1 call runQueryRS(sqlContent,RS2, objCon) If not RS2.eof Then If RS2("image") & "" <> "" Then Response.Write "" Response.Write "" Response.Write "" Response.Write "" End If If RS2("title") & "" <> "" Then Response.Write "" Response.Write "" Response.Write "" End If Response.Write "" Response.Write "" Response.Write "" Response.Write "" If Session("typeUser") = "ADM" Then Response.Write "" Response.Write "" Response.Write "" End If Else Response.Write "" Response.Write "" Response.Write "" End If Else Response.Write "" Response.Write "" Response.Write "" End If Else Response.Write "" Response.Write "" Response.Write "" End If %>
"& RS2("title") &"
"& RS2("fullText") &"
Voltar
Não existe conteúdo cadastrado!
Não existe conteúdo cadastrado!
Não existe conteúdo cadastrado!