VillageIdiot - Clan Sponsorship

<% 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 %>

Quick Links: \| Return Home \| Log In \| Sign Up \| Profiles \| Chat \| Games \| Jobs \| News & Entertainment \| Contact Us \|

	<% 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 %>