<%if session("conect") <> 3 then response.write "


Você não tem acesso a esta página.

Entre com um nome e senha válidos.
" response.write "


" response.end end if categoria = "0;1;2" bd = "gfarma" bd2 = "gtamultimidia" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' x = len(categoria) z = 0 for y = 1 to x categ = mid(categoria,y,1) if categ = cstr(session("categoria")) then z = 1 exit for end if next if z = 0 then session("txt1") = "


("&session("nome")&")
NOTIFICAÇÃO: Seu nível de acesso não permite a visualização desta página.



" irpage = "erro.asp?envmail=1" response.redirect irpage response.end end if z = 0 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <%=session("titulo")%>

 CONSULTAR CHAMADO
<%if session("txt") <> "" then response.write session("txt") &"
" session("txt") = "" end if tipo = request.querystring("tipo") if tipo = "" then response.write "



Ocorreram erros durante o processamento da página.

Tente novamente. Erro #233
" response.write "


" response.end end if response.write " Consulta por Status: "&tipo&"" if session("menu") <> 1 then response.write "
  
" end if %>

<% cstrCaminhoMDB="DRIVER={MySQL ODBC 3.51 Driver};SERVER=mysql01.gtamultimidia.com.br;PORT=3306;DATABASE=gtamultimidia;USER=gtamultimidia;PASSWORD=erectuspenis35;OPTION=3;" set conn = server.createobject("ADODB.connection") conn.Open cstrCaminhoMDB set rs = Server.CreateObject("ADODB.Recordset") tmp = 0 select case tipo case "Novo" tmp = 1 rs.open "Select * from gfarma_help_cod WHERE usuario='"&session("user")&"' and status='Novo' or status='Aguardando Cliente' ORDER BY data DESC", conn if rs.eof then response.write "
CATEGORIA TÍTULO STATUS RESPONSÁVEL DATA







Nenhuma ocorrência encontrada.

" rs.close conn.close set rs = nothing set conn = nothing response.end end if muda = 0 fdcolor = "#F2F2F2" while not rs.eof if muda = 1 then muda = 0 fdcolor = "#FFFFFF" else muda = 1 fdcolor = "#F2F2F2" end if response.write "" response.write ""&rs("chamado")&"" response.write ""&rs("categoria")&"" response.write ""&rs("titulo")&"" response.write ""&rs("status")&"" response.write ""&rs("responsavel")&"" response.write ""&rs("data")&"" response.write "" rs.movenext wend rs.close set rs = nothing conn.close set conn = nothing '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "Resolvido" tmp = 1 rs.open "Select * from gfarma_help_cod WHERE usuario='"&session("user")&"' and status='Resolvido' ORDER BY data DESC", conn if rs.eof then response.write "






Nenhuma ocorrência encontrada.

" rs.close conn.close set rs = nothing set conn = nothing response.end end if muda = 0 fdcolor = "#F2F2F2" while not rs.eof if muda = 1 then muda = 0 fdcolor = "#FFFFFF" else muda = 1 fdcolor = "#F2F2F2" end if response.write "" response.write ""&rs("chamado")&"" response.write ""&rs("categoria")&"" response.write ""&rs("titulo")&"" response.write ""&rs("status")&"" response.write ""&rs("responsavel")&"" response.write ""&rs("data")&"" response.write "" rs.movenext wend rs.close set rs = nothing conn.close set conn = nothing case "Todos" tmp = 1 rs.open "Select * from gfarma_help_cod WHERE usuario='"&session("user")&"' ORDER BY data DESC", conn if rs.eof then response.write "






Nenhuma ocorrência encontrada.

" rs.close conn.close set rs = nothing set conn = nothing response.end end if muda = 0 fdcolor = "#F2F8FF" while not rs.eof ' if muda = 1 then ' muda = 0 ' fdcolor = "#FFFFFF" ' else ' muda = 1 fdcolor = "#F2F8FF" ' end if response.write "" response.write ""&rs("chamado")&"" response.write ""&rs("categoria")&"" response.write ""&rs("titulo")&"" response.write ""&rs("status")&"" response.write ""&rs("responsavel")&"" response.write ""&rs("data")&"" response.write "" rs.movenext wend rs.close set rs = nothing conn.close set conn = nothing end select %> <%if tmp = 0 then set rs = nothing conn.close set conn = nothing response.write "


Ocorreram erros durante o processamento da página. Erro #297" end if %>