<% call htmlFramework() '[!] ________________________________________________________________________________ sub htmlBodyMain_content() nctCode = guidValidate( request("nctCode") ) if ( nctCode = guidZero ) then nctCode = "618B0676-7986-4969-B17A-F1099030DADE" end if if ( nctCode = "618B0676-7986-4969-B17A-F1099030DADE" ) then call nwsPage_list_especial( nctCode ) else call nwsPage_list( nctCode ) end if%> <%end sub '[!] ________________________________________________________________________________ sub nwsPage_list_especial( byVal nctCode ) dim nwsPageInstance dim sqlContadorRegistro dim sqlPageSize dim sqlPage dim sqlWhere dim npgDate_from dim npgDate_to sqlWhere = "" nctCode = guidValidate( nctCode ) npgDate_from = dateTime_to_YYYYMMDDHHMMSS( request("npgDate_from") ) npgDate_to = dateTime_to_YYYYMMDDHHMMSS( request("npgDate_to") ) npgName = trim( request("npgName") ) npgSummary = trim( request("npgSummary") ) npgDescription = trim( request("npgDescription") ) npgKeywords = trim( request("npgKeywords") ) npgVeiculo = trim( request("npgVeiculo") ) npgAutor = trim( request("npgAutor") ) if ( numericValidate(npgDate_from) > 0 ) then if ( trim( sqlWhere ) <> "" ) then sqlWhere = sqlWhere & " AND " end if sqlWhere = sqlWhere & " ( npgDate >= '" & left( npgDate_from, 8 ) & "' ) " end if if ( numericValidate(npgDate_to) > 0 ) then if ( trim( sqlWhere ) <> "" ) then sqlWhere = sqlWhere & " AND " end if sqlWhere = sqlWhere & " ( npgDate <= '" & left( npgDate_to, 8 ) & "' ) " end if sqlPageSize = 10 sqlPage = numericValidate( request("sqlPage") ) if ( sqlPage = 0 ) then sqlPage = 1 end if set nwsPageInstance = New nwsPage with nwsPageInstance .nctCode = nctCode .npgName = npgName .npgSummary = npgSummary .npgDescription = npgDescription .npgKeywords = npgKeywords .npgVeiculo = npgVeiculo .npgAutor = npgAutor .npgStatusPublished = 1 .sqlPage = sqlPage .sqlPageSize = sqlPageSize .sqlArguments = "nwsPage.* ,nwsCategory.nctName" .sqlWhere = sqlWhere .sqlOrderBy = "npgDate DESC, npgName ASC" .sqlGroupBy = "" .getRecordSet() %> <% if ( .sqlRecordSet.eof ) then %>
Nenhum registro publicado. <% else%>
<% end if%> <%call pagingForm( "sqlPage", .sqlPage, 5, .sqlPageSize, .sqlRecordCount )%> <% end with set nwsPageInstance = nothing end sub %>