Microsoft KB Archive/248045

From BetaArchive Wiki
< Microsoft KB Archive
Revision as of 12:50, 21 July 2020 by X010 (talk | contribs) (Text replacement - """ to """)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Knowledge Base


How to Generate Scheduled Messages Using ASP

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