<%
SqlViewFirstArtigo = "Select * from artigos Where Artigos_ativo = 'S' And artigos_idCategoria like '%" & request("CategoriaEden") & "%' Order by artigos_id desc "
Set rsSqlViewFirstArtigo = cn.execute(SqlViewFirstArtigo)
SeqLoop = 0
If Not rsSqlViewFirstArtigo.eof Then
Do While Not rsSqlViewFirstArtigo.eof
If SeqLoop = 0 Then
%>
<%
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
%>