<% query([Aerospace_Personnel];[Aerospace_Personnel]RecordNumber=num(session{"PIN"})) %>
<% if(not(session has("PIN"))) %>
<% case of
:($loginfailed="Email") %>
I'm sorry, we could not find that email address.
<% :($loginfailed="Password")
use set("CorrectEmail") %>
Password incorrect. Would you like us to send a reminder to your email?
<% :($loginfailed="Blank") %>
Please enter your email address.
<% :(defined($reminder)) %>
A reminder of your password has been sent to your email address.
<% end case %>
<% else %>
| CONTACT |
<% query([Aerospace_Personnel];[Aerospace_Personnel]RecordNumber=num(session{"PIN"}))
query([Aerospace_Departments];[Aerospace_Departments]RecordNumber=[Aerospace_Personnel]DepartmentRecordNumber)
$FullName:=concat(" ";[Aerospace_Personnel]Title;[Aerospace_Personnel]Initials;[Aerospace_Personnel]Name)
$NameTitle:=concat(", ";$FullName;[Aerospace_Personnel]Job_description)
$TelEmail:="Direct line: "+[Aerospace_Personnel]Telephone+" Email: "+[Aerospace_Personnel]email
$Address:=[Aerospace_Departments]Department_Name+"
"+concat(", ";[Aerospace_Departments]Address1;[Aerospace_Departments]Address2;[Aerospace_Departments]Code_and_City;[Aerospace_Departments]Postcode;[Aerospace_Departments]Country)
$PasswordDisplay:=substring([Aerospace_Personnel]password;1;1)
for($p;1;length([Aerospace_Personnel]password)-2)
$PasswordDisplay:=$PasswordDisplay+"~"
end for
$PasswordDisplay:=$PasswordDisplay+substring([Aerospace_Personnel]password;length([Aerospace_Personnel]password);1)
%>
<% =$nametitle %>
<% if ([Aerospace_Personnel]Web_Update_Received=True) %> Update received, pending confirmation<% else %> <% =$Address %>
<% =$TelEmail %><% end if %> |
|
|
|
Password: <% =$PasswordDisplay %> |
|
