PERFIL

<% Set objFolder = objFSO.GetFolder(Server.MapPath("workers")&"\"&rs("USERNAME")&"\") photo=0 For Each objFile in objFolder.Files if photo<1 then %>

/<%=replace(objFile.Name," ","%20")%>);">

<% photo=2 end if next%>

<%=rs("NAME")%>
<%=rs("FUNCAO")%>

&user=<%=request.QueryString("user")%>">

" required="required" <%if rs("USERNAME")<>session("user") then response.write "readonly"%> /> <%if rs("USERNAME")=session("user") then %>

EMAIL PESSOAL

" required="required" /> <%end if%>

CONTACTO

" required="required"<%if rs("USERNAME")<>session("user") then response.write "readonly"%> />

EXTENSÃO

" <%if rs("USERNAME")<>session("user") then response.write "readonly"%> />

ANIVERSÁRIO

<%=rs("DATA_NASCIMENTO")%>

DEPARTAMENTO

<%=rs("DEPARTAMENTO")%>

CONCESSÃO

<%=rs("CONCESSAO")%>

EMPRESA

<%=rs("EMPRESA")%>

<%if rs("USERNAME")=session("user") then %>

<%end if%>

EQUIPA

<% sSql = "SELECT * FROM USERS WHERE USERNAME='"&rs("CHEFIA")&"'" Set rs1 = Conn.Execute(sSql) %> <% if rs("USERNAME")<>rs("CHEFIA") then %>

<% Set objFolder = objFSO.GetFolder(Server.MapPath("workers")&"\"&rs("CHEFIA")&"\") photo=0 For Each objFile in objFolder.Files if photo<1 then %> &user=<%=rs("CHEFIA")%>">

/<%=replace(objFile.Name," ","%20")%>);">

<% photo=2 end if next %>

<%=rs1("NAME")%>
<%=rs1("FUNCAO")%>

<%end if%> <% if rs("CHEFE")=TRUE then sSql = "SELECT * FROM USERS WHERE COLABORADOR=TRUE AND ACT='1' AND CHEFIA='"&rs("USERNAME")&"' AND DEPARTAMENTO='"&rs("DEPARTAMENTO")&"' AND USERNAME<>'"&rs("USERNAME")&"'" else if rs("DEPARTAMENTO")="Pós Venda" then sSql = "SELECT * FROM USERS WHERE COLABORADOR=TRUE AND ACT='1' AND CONCESSAO='"&rs("CONCESSAO")&"' AND FUNCAO='"&rs("FUNCAO")&"' AND USERNAME<>'"&rs("USERNAME")&"'" else sSql = "SELECT * FROM USERS WHERE COLABORADOR=TRUE AND ACT='1' AND CHEFIA='"&rs1("USERNAME")&"' AND DEPARTAMENTO='"&rs("DEPARTAMENTO")&"' AND USERNAME<>'"&rs("USERNAME")&"' AND USERNAME<>'"&rs("CHEFIA")&"'" end if end if 'response.Write sSql Set rs = Conn.Execute(sSql) conta=0 while not rs.eof if conta<7 then Set objFolder = objFSO.GetFolder(Server.MapPath("workers")&"\"&replace(rs("USERNAME"),".","_")&"\") photo=0 For Each objFile in objFolder.Files if photo<1 then %>

&user=<%=rs("USERNAME")%>">

/<%=replace(objFile.Name," ","%20")%>);">

<%=rs("NAME")%>
<%=rs("FUNCAO")%>

<% photo=2 end if next end if conta=conta+1 rs.MoveNext wend if conta>7 then %>

" style="text-decoration:none;">

Ver Equipa Completa

<% end if %>