Platform SDK: Team Productivity Update

Document Review Application Global.Asa

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>