Web Hosting in New Orleans, Louisiana

<% ' **************************************** ' This is the code to write a long date ' **************************************** function WriteLongDate(date) Dim ThisMonth Dim ThisDay Dim ThisYear ThisMonth = month(date) ThisDay = day(date) ThisYear = year(date) Select Case ThisMonth Case 1 ThisMonth = "January" Case 2 ThisMonth = "February" Case 3 ThisMonth = "March" Case 4 ThisMonth = "April" Case 5 ThisMonth = "May" Case 6 ThisMonth = "June" Case 7 ThisMonth = "July" Case 8 ThisMonth = "August" Case 9 ThisMonth = "September" Case 10 ThisMonth = "October" Case 11 ThisMonth = "November" Case 12 ThisMonth = "December" End Select Response.write(ThisMonth) & " " & ThisDay & ", " & ThisYear Set ThisMonth = Nothing Set ThisDay = Nothing Set ThisYear = Nothing End function %>

GTS

Acc

Need Help?

504-569-2093

In today’s dot com world having a web presence is

essential and a very inexpensive form of advertising.

E-mail has become the preferred method of

communication by saving time and money. What was

started as a trend has become a way of doing business.