Microsoft KB Archive/248045: Difference between revisions

From BetaArchive Wiki
m (Text replacement - "&" to "&")
m (Text replacement - """ to """)
 
Line 51: Line 51:
== MORE INFORMATION ==
== 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:
'''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:
<pre class="codesample"><% @Language=&quot;vbscript&quot; %>
<pre class="codesample"><% @Language="vbscript" %>
<html>
<html>
<head>
<head>
Line 59: Line 59:
<body>
<body>


<h2 align=&quot;center&quot;><%=GetGreeting(Date())%></h2>
<h2 align="center"><%=GetGreeting(Date())%></h2>


</body>
</body>
Line 67: Line 67:
    
    
     ' Set default to blank.
     ' Set default to blank.
     GetGreeting = &quot;Welcome to my page!&quot;
     GetGreeting = "Welcome to my page!"


     If IsDate(tmpDate) Then
     If IsDate(tmpDate) Then
Line 74: Line 74:
       Select Case tmpDate
       Select Case tmpDate


         Case DateValue(&quot;1/1/&quot; & Year(tmpDate))
         Case DateValue("1/1/" & Year(tmpDate))
           GetGreeting = &quot;Happy New Year!&quot;
           GetGreeting = "Happy New Year!"


         Case DateValue(&quot;7/4/&quot; & Year(tmpDate))
         Case DateValue("7/4/" & Year(tmpDate))
           GetGreeting = &quot;Happy 4th of July!&quot;      
           GetGreeting = "Happy 4th of July!"      


         Case DateValue(&quot;12/25/&quot; & Year(tmpDate))
         Case DateValue("12/25/" & Year(tmpDate))
           GetGreeting = &quot;Merry Christmas!&quot;
           GetGreeting = "Merry Christmas!"


       End Select
       End Select
Line 88: Line 88:
       If Month(tmpDate)=11 Then
       If Month(tmpDate)=11 Then
         If Day(tmpDate)>19 And Day(tmpDate)<27 And Weekday(tmpDate) = vbThursday
         If Day(tmpDate)>19 And Day(tmpDate)<27 And Weekday(tmpDate) = vbThursday
           GetGreeting = &quot;Happy Thanksgiving!&quot;
           GetGreeting = "Happy Thanksgiving!"
         End If
         End If
       End If
       End If

Latest revision as of 12:50, 21 July 2020

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