Platform SDK: Team Productivity Update |
The document review application Global.asa file contains the following code:
<!--METADATA TYPE="TypeLib" NAME="Scripting" UUID="{420B2830-E718-11CF-893D-00A0C9054228}" VERSION="1.0" --> <!--METADATA TYPE="TypeLib" NAME="ADO" UUID="{00000200-0000-0010-8000-00AA006D2EA4}" VERSION="2.0" --> <!--METADATA TYPE="TypeLib" NAME="DevDoc" UUID="{BB2EDAA3-6A3D-11D2-9BEC-080009DC024D}" VERSION="6.0" --> <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart '--Miscellaneous application settings Application("ConnectionString") = "Provider=sqloledb;" & _ "Data Source=(local);" & _ "Initial Catalog=review;" & _ "User Id=sa;Password=;" Application("ConnectionTimeout") = 15 Application("CommandTimeout") = 20 Application("EmailDomain") = "@microsoft.com" '--- Application errors Application("Err_NoReviewID") = "Error: Review ID not specified." Application("Err_NoReviewName") = "Error: Review name not specified." Application("Err_ReviewNotFound") = "Error: No such review exists." Application("Err_NoTopicID") = "Error: Topic ID not specified." Application("Err_InvalidRating") = "Error: The rating value is invalid." Application("Err_TopicNotFound") = "Warning: The help topic does not appear in the database, <br>" & _ "probably because it is not visible in the Table of Contents." Application("Err_Unexpected") = "Error: An unexpected application error occurred. " &_ "Please contact <a HREF=""mailto: ""> </a>." '--- Warning alerts (JAVASCRIPT) Application("Warn_CommentDeleted") = "The entry that you are editing has been removed from the database." Application("Warn_NoEdit") = "The entry can't be modified because it was marked as fixed." Application("Warn_DupFeedback") = "More than one review entry appears for this topic. Only the\r\nlast entry can be modified by this form." Application("Warn_MailSent") = "Mail sent successfully." Application("Warn_NoOperator") = "No operator was assigned to this topic. Mail could not be sent." Application("Warn_NoSection") = "This topic has not been assigned to a section. Mail could not\r\nbe sent. Contact the review administrator." Application("Warn_SaveChanges") = "Your rating or comment has changed. Press Submit/Update to save your changes." '--- Client-side messages (VBSCRIPT) Application("Ttl_NoComment") = "REVIEW: Missing Comment" Application("Msg_NoComment") = "Please provide a comment for less than perfect ratings." Application("Ttl_OkToDup") = "REVIEW: Duplicate Entry" Application("Msg_OkToDup") = "The existing entry is marked as fixed. This operation will create a new entry. OK to continue?" End Sub </SCRIPT>