Article ID: 248045
Article Last Modified on 8/8/2007
APPLIES TO
- Microsoft Internet Information Services 5.0
This article was previously published under Q248045
SUMMARY
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.
MORE INFORMATION
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
