<% ' abre a conexao call AbreConexao %>
  Voltar <% Dim strsql2 , rsAssuntos, cdTipo1, cdTipo2, descAtual, contAssunto, contPerg ' busca os assuntos 'strsql2 = "SELECT A.cd_grupo_FAQ, A.nm_grupo_FAQ, B.de_pergunta, B.de_resposta, B.nm_arquivo_noticia, B.nu_ordem_apresentacao " & _ ' "FROM FAQ_Item B, FAQ_Grupo A , FAQ_Grupo_Item C " & _ ' "WHERE A.cd_grupo_FAQ = C.cd_grupo_FAQ and B.cd_pergunta = C.cd_pergunta and B.st_informacao>=100 " & _ ' "and a.cd_sistema = 1 " &_ ' "ORDER BY A.nm_grupo_FAQ, B.cd_pergunta " strsql2 = "SELECT A.cd_grupo_FAQ, A.nm_grupo_FAQ " & _ "FROM FAQ_Grupo A " & _ "WHERE " & _ " a.cd_sistema = 1 " &_ "ORDER BY A.nm_grupo_FAQ " set rsAssuntos = objCon.execute(strsql2) ' Se não encontrou os assuntos if (rsAssuntos.EOF) then %> <% ' se encontrou os assuntos else cdTipo1 = 0 contAssunto = 0 contPerg = 0 'para cada assunto while (Not rsAssuntos.EOF) ' verifica o novo tipo cdTipo2 = rsAssuntos("cd_grupo_FAQ") ' se é um outro assunto if (cdTipo1 <> cdTipo2) then cdTipo1 = cdTipo2 contAssunto = contAssunto + 1 contPerg = 0 %> <% end if contPerg = contPerg + 1 %> <% rsAssuntos.MoveNext wend end if %>
 
 
 "Como eu acho o meu questionamento na FAQ?"
A procura é simples! A nossa FAQ está dividida por assuntos. Estes são os tópicos onde foram agrupadas as perguntas comumente realizadas ao nosso helpdesk. Verifique na lista abaixo, o assunto que esteja relacionado com a sua dúvida. Clicando no próprio assunto, você encontra uma lista contendo as perguntas e respostas por ordem de inclusão. Experimente!
 
   Assuntos FinestSystem
FAQ APRESI não disponível no momento. Por favor, entre em contato com o Suporte APRESI
 
<% = contAssunto %>. /FAQ/askslistFinest.asp?assunto=<%=rsAssuntos("cd_grupo_FAQ")%>&id=<%= contAssunto%>" class="linkSemSub"> <%= rsAssuntos("nm_grupo_FAQ") %>
<% set rsAssuntos = Nothing ' Fecha a Conexao call FechaConexao %>