<% 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 %> Moving around within the Centre for Transport Studies (CTS) site

UCL CIVIL, ENVIRONMENTAL & GEOMATIC ENGINEERING
Chadwick Building, Gower Street
London, WC1E 6BT

<% response.write FormatDateTime(Date(), vbLongDate)%>

UCL CIVIL, ENVIRONMENTAL & GEOMATIC ENGINEERING
Centre for Transport Studies

.gif" alt="UCL Logo" width="265" height="110" border="0"/>

" id="nope" class="mainmenu">

" class="mainmenu" id="nope">

" class="breadtext">

MSc in Transport
Research
Publications
Members
Seminars

Moving around within the Centre for Transport Studies (CTS) site

Members of the centre based at UCL
Research at UCL.
Publications and reports.
Seminars.
Courses.
How to find the Centre for Transport Studies at the UCL site.
Other information

Welcome page for Centre for Transport Studies (CTS) at UCL.
At the UCL site, CTS is part of the Department of Civil and Environmental Engineering at
University College London
TSU home page.
Employment opportunities at the UCL site. (under construction)

  Chadwick Building, Gower Street, London, WC1E 6BT
  Tel: +44 (0)20 7679 1586 Fax: +44 (0)20 7679 1567
  www2.cege.ucl.ac.uk/cts<%= Request.ServerVariables("URL")%>

University College London - Chadwick Building - Gower Street - London - WC1E 6BT -

<% session("siteref") = left(session("siteref"),120) dim connl dim strSQLl dim pathl set connl = server.createobject("ADODB.Connection") pathl = LCase(left(Request.ServerVariables("URL") & "?" & Request.ServerVariables("QUERY_STRING"),100)) strSQLl = "INSERT INTO tblPageCount(PageName, DateReq, ArriveLink, RemIP) VALUES ('" & pathl & "', convert(varchar(10), getdate(), 1) + ' ' + convert(varchar(8), getdate(), 114), '" & session("siteref") & "', '" & Request.ServerVariables("remote_host") & "')" connl.open Application("shs1sql_ConnectionString") connl.execute(strSQLl) connl.close set connl = nothing %>