<%
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
%>