<% Dim conn Call AbreBD() artigo = 14 SQL1 = "SELECT * FROM tab_artigo WHERE artigo_cod="& artigo Set rs1 = conn.Execute(SQL1) %>

artigo

<%=rs1("artigo_titulo")%>

de <%=rs1("artigo_dia")%>/<%=rs1("artigo_mes")%>/<%=rs1("artigo_ano")%>


  1. Clique com o botão direito do mouse no ícone.
  2. Em seguida clique em “iniciar antivírus avast”.
  3. Feito o procedimento acima, será apresentada a tela a baixo. Clique no botão “registro”.
  4. Digite o numero de registro que você terá recebido por e-mail. Em seguida, clique "OK". Conforme figura a baixo.
  5. Na sequencia, será exibida a tela de apresentação do antivírus. Clique em "continuar".
  6. Processo concluído. Aguarde a abertura do programa. Em seguida, feche-o, clicando no X no canto superior direito.

Para registrar o NOVO SERIAL do Avast, acompanhe o seguinte tutorial http://www.an2.com.br/tutoriais/registrando-licenca-do-avast.asp.

Mais uma dica para os clientes da AN2. Esperamos ter ajudado.


<% sim = "S" SQL_sel_coment = "Select * from tab_cartigo where cart_codartigo="& artigo &" and cart_liberado='"& sim &"' order by cart_cod desc" Set qSelComent = conn.Execute(SQL_sel_coment) n = 0 If Not qSelComent.eof Then While not qSelComent.eof n = n+1 qSelComent.MoveNext Wend qSelComent.MoveFirst End If %>

<%=n%> comentários

<% While not qSelComent.eof msg = qSelComent("cart_msg") %>
">

" rel="nofollow"><%=qSelComent("cart_nome")%>

<%=qSelComent("cart_data")%> às <%=qSelComent("cart_hora")%>

<%If not msg="" Then%><%=Replace(msg,vbCrLf,"
")%><%End If%>

<% qSelComent.MoveNext Wend qSelComent.close Set qSelcoment = nothing %>

Participe, comente

" />

não será divulgado

* deve ser preenchido

<% rs1.close Set rs1 = nothing Call FechaBD() %>