Microsoft KB Archive/248045

= 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" %> Scheduled Messages

<%=GetGreeting(Date)%>

<% 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:

http://msdn2.microsoft.com/en-us/library/ms950396.aspx

Keywords: kbcodesnippet kbhowto kbscript KB248045

-

[mailto:TECHNET@MICROSOFT.COM Send feedback to Microsoft]

© Microsoft Corporation. All rights reserved.