Dim strUKDate, MYdd, MYmm, MYyy
MYdd = DatePart("d", date())
MYmm = DatePart("m", date())
MYyy = DatePart("yyyy", date())
strUKDate = (MYdd & " " & MYmm & " " & MYyy)
Then just <%=strUKDate%> wherever you need to display it.
If you wish to use the month name use the code below
Dim strUKDate, MYdd, MYmm, MYyy
MYdd = DatePart("d", date())
MYmm = MonthName(DatePart("m", date()))
MYyy = DatePart("yyyy", date())
strUKDate = (MYdd & " " & MYmm & " " & MYyy)
Then just <%=strUKDate%> wherever you need to display it.