 This domain name is being held or under web design by DitroniX on behalf of our customer. www.ditronix.co.uk Feel free to contact us regarding our services. if you are not redirected in 15 seconds click here DitroniX for Bespoke Business Software, Database and Electronic Solutions and Support |
<%
Public Function FullDate() 'Return Full Date
Select Case Day(now)
Case 1, 21, 31
TempString = "st"
Case 2, 22
TempString = "nd"
Case 3, 23
TempString = "rd"
Case Else
TempString = "th"
End Select
FullDate = WeekdayName(Weekday(Weekday(now))) & " " & " " & Day(now) & TempString & " " & MonthName(Month(now)) & ", " & Year(now)
End Function
Response.Write(" |