How to Generate Scheduled Messages Using ASP

ID: Q248045

The information in this article applies to:

Microsoft Internet Information Services version 5.0

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, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals 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 needs. If you have limited programming experience, you may want to contact a Microsoft Certified Solution Provider or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Solution Providers, please see the following page on the World Wide Web:

http://www.microsoft.com/mcsp/

For more information about the support options available from Microsoft, please see the following page on the World Wide Web:

http://www.microsoft.com/support/supportnet/overview/overview.asp

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)>21 And Weekday(tmpDate) = vbThursday Then
          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:

http://msdn.microsoft.com/scripting/

Additional query words:

Keywords : kbWinOS2000
Version : winnt:5.0
Platform : winnt
Issue type : kbhowto