<% ' abre a conexao call AbreConexao %>
  <% Dim cd_grupo , cd_pergunta, id_pergunta ' busca os parametros solicitados cd_pergunta = request.QueryString("pergunta") cd_grupo = request.QueryString("assunto") id_pergunta = request.QueryString ("id") if (cd_grupo = "") then cd_grupo = 0 end if Dim strsql2 , rsAssuntos, cdTipo1, cdTipo2, descAtual, contAssunto, contPerg 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_grupo_FAQ = " & cd_grupo & " " & _ "ORDER BY A.nm_grupo_FAQ, b.cd_pergunta" ' "ORDER BY A.cd_grupo_FAQ, B.nu_ordem_apresentacao" set rsAssuntos = objCon.execute(strsql2) ' Se não encontrou os assuntos if (rsAssuntos.EOF) then %> <% ' se encontrou os assuntos else %> Voltar <% cdTipo1 = 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 contPerg = 0 %> <% end if contPerg = contPerg + 1 %> <% rsAssuntos.MoveNext wend ' monta Perguntas & Respostas contPerg = 0 rsAssuntos.moveFirst While (Not rsAssuntos.EOF) contPerg = contPerg + 1 %> <% rsAssuntos.MoveNext wend end if %>
FAQ APRESI não disponível no momento. Por favor, entre em contato com o Suporte APRESI
 
   Perguntas FinestSystem
 
<% = id_pergunta %>. /FAQ/askslistFinest.asp?assunto=<%=rsAssuntos("cd_grupo_FAQ")%>&id=<%= id_pergunta %>" class="linkSemSub"> <%= rsAssuntos("nm_grupo_FAQ") %>
      <% = id_pergunta & "." & contPerg & ". " %>/FAQ/askslistFinest.asp?assunto=<%=rsAssuntos("cd_grupo_FAQ")%>&id=<%= id_pergunta%>#perg<%= contPerg %>" class="linkSemSub"> <% = rsAssuntos("de_pergunta") %>
<%= id_pergunta %>.<%= contPerg %>. <%= rsAssuntos("de_pergunta") %>
 
<%= rsAssuntos("de_resposta") %>
 
 
<% set rsAssuntos = Nothing ' Fecha a Conexao call FechaConexao %>