Microsoft KB Archive/248045
Article ID: 248045
Article Last Modified on 8/8/2007
- Microsoft Internet Information Services 5.0
This article was previously published under Q248045
You can use Microsoft Active Server Pages (ASP) to return a customized greeting to a Web browser. This is done by creating an ASP page that defines a function named GetGreeting(). Depending on which date is passed to the GetGreeting() function, it will return the corresponding greeting based on the current date on the server. As it is written, the GetGreeting() function only checks for the American holidays of New Year's Day, the Fourth of July, Christmas, and Thanksgiving.
NOTE: Microsoft provides programming examples for illustration only, without warranty either expressed or implied. This includes, but is not limited to, the implied warranties of merchantability or fitness for a particular purpose. This article assumes that you are familiar with the programming language that is being demonstrated and with the tools that are used to create and to debug procedures. Microsoft support engineers can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific requirements. To return a customized greeting, save the following ASP code as "Schedule_test.asp" in a folder with at least script access enabled:
<% @Language="vbscript" %> <html> <head> <title>Scheduled Messages</title> </head> <body> <h2 align="center"><%=GetGreeting(Date())%></h2> </body> </html> <% Function GetGreeting(tmpDate) ' Set default to blank. GetGreeting = "Welcome to my page!" If IsDate(tmpDate) Then ' Check for fixed holidays. Select Case tmpDate Case DateValue("1/1/" & Year(tmpDate)) GetGreeting = "Happy New Year!" Case DateValue("7/4/" & Year(tmpDate)) GetGreeting = "Happy 4th of July!" Case DateValue("12/25/" & Year(tmpDate)) GetGreeting = "Merry Christmas!" End Select ' Check for Thanksgiving. If Month(tmpDate)=11 Then If Day(tmpDate)>19 And Day(tmpDate)<27 And Weekday(tmpDate) = vbThursday GetGreeting = "Happy Thanksgiving!" End If End If End If End Function %>
When you browse the file, you should see the greeting based on the date on the server.
More information on Microsoft's scripting technologies can be found on the following Web site:
Keywords: kbcodesnippet kbhowto kbscript KB248045