<%
datetime = FormatDateTime(Date, vbLongDate)
length = len(datetime)
monthSpace = 2
dateSpace = 1
yearSpace = 2
dayPos = Instr(1, datetime, ",") - 1
monthPos = Instr(1, datetime, ", ") + monthSpace
datePos = Instr(monthPos, datetime, " ") + dateSpace
yearPos = Instr(datePos, datetime, ", ") + yearSpace
day_ = Mid(datetime, 1, dayPos)
month_ = Mid(datetime, monthPos, (length - monthPos) - (length - (datePos - dateSpace)))
date_ = Mid(datetime, datePos, (length - datePos) - (length - (yearPos - yearSpace)))
year_ = Mid(datetime, yearPos)
%>
<% = day_ %>, <% = month_ %> <% = date_ %>, <% = year_ %>
<%
'Dimension variables
Dim strMessage
'Write the contents of the variable strMessage to the web page
Response.Write (strMessage)
'Write line break into the web page
Response.Write ("
") 'Write the server time on the web page using the VBScript Time() function Response.Write ("" & Time() & " EST") 'Close the server script %>
") 'Write the server time on the web page using the VBScript Time() function Response.Write ("" & Time() & " EST") 'Close the server script %>
