% If Session("siteref") = False Then session("siteref") = Request.ServerVariables("HTTP_REFERER") End If if session("colour") = "" then randomize colind = 1+round((rnd*12),0) select case colind case 1 session("colour") = "29A6C9" case 2 session("colour") = "689300" case 3 session("colour") = "97BFDF" case 4 session("colour") = "F7BF7D" case 5 session("colour") = "EEDDE7" case 6 session("colour") = "B2D0E6" case 7 session("colour") = "C7F400" case 8 session("colour") = "CCA6BB" case 9 session("colour") = "E5EACE" case 10 session("colour") = "EF8100" case 11 session("colour") = "F6C100" case 12 session("colour") = "F7BF7D" case ELSE session("colour") = "F8EBAD" END SELECT END IF %>
| UCL CIVIL, ENVIRONMENTAL & GEOMATIC ENGINEERING Chadwick Building, Gower Street London, WC1E 6BT <% response.write FormatDateTime(Date(), vbLongDate)%> |
![]() |
||||||
|
|||||||
|
|||||||