%
template = "profile"
%>
<%
' container
targetContainer = true
targetContainerHeadline = "Laurie Roberts "
targetContainerUrl = "/uk/profiles/services/is/laurie-roberts.htm"
%>
<%
function getHead()
getHead = " profile: http://ogp.me/ns/profile#"
end function
function getRobots()
getRobots = "index"
end function
function getCanonical()
getCanonical = "https://www.hw.ac.uk/uk/profiles/services/is/laurie-roberts.htm"
end function
function getMeta()
tempMeta = ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
tempMeta = tempMeta & ""
getMeta = tempMeta
end function
function removeKeyInfo()
removeKeyInfo = "yes"
end function
section = ""
dept = ""
funnelbackCampus = ""
if campusName <> "" then
funnelbackCampus = Replace(campusName, "1ED", "Edinburgh")
funnelbackCampus = Replace(funnelbackCampus, "1SB", "Scottish Borders")
funnelbackCampus = Replace(funnelbackCampus, "1OR", "Orkney")
end if
%>
<% ADname = ""
ADname = ""
if ADname <> "" then
errorMsg = "
If any job/contact information below is incorrect, please ensure it is updated in
iHR (opens in new tab) and then ask your school/section representative to contact
ithelp@hw.ac.uk to ensure the changes are reflected in all systems for user
"
Set oCon = Server.CreateObject("ADODB.Connection")
sUser= "cn=opentextuser,cn=Users,dc=hw,dc=ac,dc=uk"
sPassword= "Fr56+Mx"
oCon.Provider = "ADsDSOObject"
oCon.Open "ADProvider", sUser, sPassword
Set oCmd= Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = oCon
sDomainADsPath = "LDAP://LDAP-ED.hw.ac.uk:389/DC=hw,DC=ac,DC=uk"
sProperties= "givenName,SN,displayName,title,mail,telephoneNumber,facsimileTelephoneNumber,department,physicalDeliveryOfficeName,hwCampus"
oCmd.CommandText= "<" & sDomainADsPath & ">;(&(objectCategory=person)(objectClass=user)(sAMAccountName=" & ADname & "));" & sProperties & ";subtree"
oCmd.Properties("Page Size") = 100
Set rs = oCmd.Execute
While Not rs.EOF
fullName = rs("givenName") & " " & rs("SN")
displayName = rs("displayName")
email = rs("mail")
phone = rs("telephoneNumber")
jobTitle = rs("title")
department = rs("department")
roomNumber = rs("physicalDeliveryOfficeName")
campusName = rs("hwCampus")
rs.MoveNext
Wend
rs.Close
oCon.Close
Set rs = Nothing
Set oCon = Nothing
else
email = "l.roberts@hw.ac.uk"
phone = "+44 (0)1896 892 155"
fullName = "Laurie Roberts "
jobTitle = "Liaison Services Manager"
department = ""
end if
' international phone format
if phone <> "" then
if Left(phone,2) = "01" then
phone = Replace(phone,"01","+44 1")
end if
end if
if email <> "" then
email = LCase(email)
end if
if template = "course" then %>
<% elseif template = "profile" then %>
<% else %>
<% if fullName <> "" then %>
<% if jobTitle <> "" and jobTitle <> name then %>
-
<%=jobTitle%>
<% end if
if phone <> "" then %>
-
<%=phone%>
<% end if
if email <> "" then %>
-
<%=email%>
<% end if %>
<% end if %>
<% end if %>
<% function getTitle()
getTitle = "Laurie Roberts "
end function
funnelbackCampus = ""
select case campusName
case "1ED"
funnelbackCampus = "Edinburgh"
case "1SB"
funnelbackCampus = "Scottish Borders"
case "1OR"
funnelbackCampus = "Orkney"
end select
alphasort = ""
tempTitle = Trim("Laurie Roberts")
tempName = Split(tempTitle, " ")
for i=0 to UBound(tempName)
if i = UBound(tempName) then
tempAlpha = tempName(i) & tempAlpha
else
tempAlpha = tempAlpha & tempName(i)
end if
next
alphasort = tempAlpha
funnelbackEmail = ""
if section = "School of Mathematical & Computer Sciences" then
funnelbackEmail = email
end if %>
<% if jobTitle <> "" then %>
- Role
-
<% tempJob = Split(jobTitle, ";") %>
<%=tempJob(0)%>
<% end if
if section <> "" then %>
- Section
- <%=section%>
<% end if
if dept <> "" then %>
- Department
- <%=dept%>
<% end if
if email <> "" then %>
- Email
-
<%=email%>
<% end if
if phone <> "" then %>
- Phone
- <%=phone%>
<% end if
showAddress = ""
if showAddress = "" and roomNumber <> "" then %>
- Address
- <%=roomNumber%>
<% end if %>
About
As the Liaison Services Manager, Laurie Roberts manages the Academic Support Librarians and Effective Learning Advisors across the UK campuses.
Laurie is also the key library contact for staff and students in the School of Textiles and Design. Laurie teaches information literacy and study skills aligned and embedded in the curriculum and as part of the University’s Skills Hub. She also provides a one-to-one appointment/consultancy service for information and study skills advice; deals with enquiries relating to study skills and advanced enquiries relating to the use of library resources; and liaises with School of Textiles and Design staff to ensure the library's collections and services support the needs of teaching, learning and research.
Laurie has an MSc in Information and Library Science and PG Cert in Professional and Higher Education. She is a Fellow of the Higher Education Academy and a Chartered Librarian of the Chartered Institute of Library and Information Professionals (CILIP).