"&rs("CONCESSAO")&"
"
departement = Array("Vendas","Pos Venda","Peças")
response.Write ""
response.Write "
"
response.Write ""
for dpt=0 to 2
sSql = "SELECT * FROM USERS WHERE COLABORADOR=TRUE AND ACT='1' AND CONCESSAO='"&rs("CONCESSAO")&"' AND DEPARTAMENTO='"&departement(dpt)&"' "
Set rs1 = Conn.Execute(sSql)
while not rs1.eof
response.Write ""
response.Write ""
response.Write " "
response.Write "
"
response.Write ""
response.Write "Nome"
response.Write "
"
response.Write ""
response.Write "Departamento"
response.Write "
"
response.Write ""
response.Write "Função"
response.Write "
"
response.Write ""
response.Write "Email"
response.Write "
"
response.Write ""
response.Write "Contacto"
response.Write "
"
response.Write ""
response.Write "
"
response.Write ""
response.Write ""
rs1.movenext
wend
next
sSql = "SELECT * FROM USERS WHERE COLABORADOR=TRUE AND ACT='1' AND CONCESSAO='"&rs("CONCESSAO")&"' AND DEPARTAMENTO<>'Vendas' AND DEPARTAMENTO<>'Pos Venda' AND DEPARTAMENTO<>'Peças' ORDER BY NAME"
Set rs1 = Conn.Execute(sSql)
while not rs1.eof
response.Write ""
response.Write ""
Set objFolder = objFSO.GetFolder(Server.MapPath("workers\"&rs1("USERNAME")&"\") )
photo=0
For Each objFile in objFolder.Files
if photo<1 then
response.Write ""
photo=2
end if
next
response.Write "
"
response.Write ""
response.Write rs1("NAME")
response.Write "
"
response.Write ""
response.Write rs1("DEPARTAMENTO")
response.Write "
"
response.Write ""
response.Write rs1("FUNCAO")
response.Write "
"
response.Write ""
'if InStr(rs1("EMAIL"),"@amatoscar.pt")<>0 then response.Write left(rs1("EMAIL"),32)
response.Write left(rs1("EMAIL"),32)
response.Write "
"
response.Write ""
response.Write rs1("CONTACTO")
response.Write "
"
response.Write ""
response.Write "![]()
"
response.Write "
"
response.Write ""
response.Write "
"
response.Write ""
response.Write ""
rs1.movenext
wend
response.Write ""
Set objFolder = objFSO.GetFolder(Server.MapPath("workers\"&rs1("USERNAME")&"\"))
photo=0
For Each objFile in objFolder.Files
if photo<1 then
response.Write ""
photo=2
end if
next
response.Write "
"
response.Write ""
response.Write rs1("NAME")
response.Write "
"
response.Write ""
response.Write rs1("DEPARTAMENTO")
response.Write "
"
response.Write ""
response.Write rs1("FUNCAO")
response.Write "
"
response.Write ""
response.Write left(rs1("EMAIL"),32)
response.Write "
"
response.Write ""
response.Write rs1("CONTACTO")
response.Write "
"
response.Write ""
response.Write "![]()
"
response.Write "
"
response.Write "