<% abreconexao %>
<% SqlViewFirstArtigo = "Select * from artigos Where Artigos_ativo = 'S' And (Artigos_Titulo like '%" & request("infoPesquisarArtigos") & "%' or Artigos_Conteudo like '%" & request("infoPesquisarArtigos") & "%') Order by artigos_id desc " Set rsSqlViewFirstArtigo = cn.execute(SqlViewFirstArtigo) SeqLoop = 0 If Not rsSqlViewFirstArtigo.eof Then SqlViewFirstArtigoTotal = "Select count(*) as QtdTotal from artigos Where Artigos_ativo = 'S' And (Artigos_Titulo like '%" & request("infoPesquisarArtigos") & "%' or Artigos_Conteudo like '%" & request("infoPesquisarArtigos") & "%') Order by artigos_id desc " Set rsSqlViewFirstArtigoTotal = cn.execute(SqlViewFirstArtigoTotal) labelSqlViewFirstArtigoTotal = rsSqlViewFirstArtigoTotal("QtdTotal") rsSqlViewFirstArtigoTotal.close Set rsSqlViewFirstArtigoTotal = Nothing SqlVerificaTag = "Select * from artigosTiposTags where artigosTags_descricao = '" & UCase(request("infoPesquisarArtigos")) & "'" Set rsSqlVerificaTag = cn.execute(SqlVerificaTag) If Not rsSqlVerificaTag.eof Then SqlUpdateTag = "Update artigosTiposTags set artigosTags_Pesquisas = artigosTags_Pesquisas + 1, artigosTags_qtd = " & labelSqlViewFirstArtigoTotal & " where artigosTags_descricao = '" & UCase(request("infoPesquisarArtigos")) & "'" cn.execute(SqlUpdateTag) Else SqlInsertTag = "Insert into artigosTiposTags (artigosTags_descricao, artigosTags_datainclusao, artigosTags_ativo, artigosTags_Qtd, artigosTags_Pesquisas) Values('" & UCase(request("infoPesquisarArtigos")) & "','" & Right("0000" & Year(date) ,4) & "-" & Right("00" & month(date) ,2) & "-" & Right("00" & day(date) ,2) & " " & Right("00" & Hour(Time()),2) & ":" & Right("00" & Minute(Time()),2) & ":" & Right("00" & Second(Time()),2) & "','S'," & labelSqlViewFirstArtigoTotal & ",1)" cn.execute(SqlInsertTag) End If %>

Encontramos <%=labelSqlViewFirstArtigoTotal%> <% If CDbl(labelSqlViewFirstArtigoTotal) > 1 Then Response.write " resultados" Else Response.write " resultado" End If %>

<% Do While Not rsSqlViewFirstArtigo.eof If SeqLoop = 0 Then %> <% Else %>
<% End if SeqLoop = SeqLoop + 1 rsSqlViewFirstArtigo.movenext loop Else SqlVerificaTag = "Select * from artigosTiposTags where artigosTags_descricao = '" & UCase(request("infoPesquisarArtigos")) & "'" Set rsSqlVerificaTag = cn.execute(SqlVerificaTag) If Not rsSqlVerificaTag.eof Then SqlUpdateTag = "Update artigosTiposTags set artigosTags_Pesquisas = artigosTags_Pesquisas + 1 where artigosTags_descricao = '" & UCase(request("infoPesquisarArtigos")) & "'" cn.execute(SqlUpdateTag) Else SqlInsertTag = "Insert into artigosTiposTags (artigosTags_descricao, artigosTags_datainclusao, artigosTags_ativo, artigosTags_Qtd, artigosTags_Pesquisas) Values('" & UCase(request("infoPesquisarArtigos")) & "','" & Right("0000" & Year(date) ,4) & "-" & Right("00" & month(date) ,2) & "-" & Right("00" & day(date) ,2) & " " & Right("00" & Hour(Time()),2) & ":" & Right("00" & Minute(Time()),2) & ":" & Right("00" & Second(Time()),2) & "','S',0,1)" cn.execute(SqlInsertTag) End if %>

N�o encontramos resultados

Foi enviado para a nossa equipe de conte�do a necessidade de identificar Artigos relevantes para [<%=UCase(request("infoPesquisarArtigos"))%>]. Abaixo voc� pode registrar seu email para que possamos enviar para você.


">
<% End If rsSqlViewFirstArtigo.close Set rsSqlViewFirstArtigo = nothing %>