Saturday 11th October 2008  
<% Randomize Function URLGrabber(TheText) Set URLRegExp = New RegExp URLRegExp.Pattern = "http\://(.[^\s\<\>]*)" URLRegExp.Global = True URLRegExp.IgnoreCase = True URLResult = URLRegExp.Replace(TheText,"http://$1") URLRegExp.Pattern = "([a-zA-Z0-9\.\-\_]*)\@([a-zA-Z0-9\-\_\.]*)" URLRegExp.Global = True URLRegExp.IgnoreCase = True URLResult = URLRegExp.Replace(URLResult,"$1@$2") URLGrabber = URLResult End Function %>

News

The latest news and events from Durham Logistics College - if you'd like to be kept up to date on developments here at the college, why not subscribe to our newsletter?

<% Set rsNews = Server.CreateObject("ADODB.Recordset") rsNews.Open "SELECT * FROM dlcNews ORDER BY NewsDate DESC",dbNews,0,1 If rsNews.EOF Then %> There are currently no news articles available. <% Else Do While NOT rsNews.EOF %> <%=FormatDateTime(rsNews("NewsDate"),vbLongDate)%> - <%=rsNews("NewsHeadline")%>

<%=URLGrabber(rsNews("NewsText"))%>

<% rsNews.MoveNext Loop End If rsNews.Close Set rsNews = Nothing %>

Make the first step -
Contact us NOW!


  • By live chat:

  • By phone:

  • 0870 752 4848
    Please be aware that all calls will be recorded for training and monitoring purposes.
  • Or we'll contact you:


  • Name:


    Email:


    Phone:


    Country:

    Job Role:


    Interested In:


    Contact Me Via:
    E-Mail
    Phone