<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>File a bug report</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=utf-8" >
<LINK ID=Stylesheet_Ref href="bugrep.css" rel=STYLESHEET type=text/css>
<META content=/scripts/PostInfo.asp name=postinfo>
<OBJECT ID=pchealth classid=CLSID:FC7D9E02-3F9E-11d3-93C0-00C04F72DAF7></OBJECT>
<!--
******************************************************************
  Copyright (c) 1999 Microsoft Corporation

  Module Name:
    Bug Reporting Page

  File:
    bugrep.htm

  Abstract:
    Bug reporting channel for Whistler beta

  Internal Version : 1.000

  1999-09-10 : Cleaned up formatting of HTML and made syntax clean
  1999-09-20 : Cleaning up code
  1999-09-21 : Bugs P1  99969, 102646, 102645, 102740, 102196 (102811?)
  1999-09-22 : Cleaned up formatting, added removing from a list and
               made localization easier
  1999-09-23 : Made printing easier with expanding text areas
  1999-09-27 : Removed leading spaces from filenames in AddFile
               BetaID field accepts only 0-9 values
               Error message if XML files are missing (broken install)
  1999-09-28 : Fixed alignment of text areas to top
               Fixed focus related bug in text areas
               Fixed to be more localization friendly (Bug 103361)
               Removed config.sys and autoexec.bat from collected file list
  1999-09-29 : Added user.dat, system.dat and classes.dat to default file list
  1999-09-30 : Added DirectX data collection
               Added system drive path instead of \..\ convention
               Added option to handle data collection failures
  1999-10-01 : Added ActiveX object to collect build and language info
               Register ActiveX object on script load (brp_sysinfo.dll)
               Added tracking number after data upload
               Moved thankyou into a SPAN to display tracking after upload
  1999-10-05 : Adding IEINFO5.MOF to cab and using MOFCOMP to compile this
               Collecting IE info along with machine data
               Forced extension of saved file to be CAB (bug 102973)
  1999-10-06 : Changed directx diag running mode to 1
               Disabled DirectX data collection
  1999-10-11 : Changed max sizes of text-areas to 2000
               Changed to use bugrep.css
  1999-10-12 : Added xml files to list of collected files
  1999-10-13 : Fixed IE realted break
  1999-10-13 : Added min space image
  1999-10-16 : When no info checked direct CAB creating skipping DC
               Registry files collected only for Area = Setup
               CollecOk related bugs fixed
               Restructed flow to have Save and Submit check boxes
               Report bytes transmitted in upload
               Changed CAB file name to preserve all .'s in filename
               Behaviour changed to hide all input field when saving
                 or submitting bug so that no fields can be changed
               After finishing all fields are restored
               Upload bug reporting page version in incident XML
               Changed cursor to busy when uploading/saving bug
               Disabled controls during submit
               Added record of incidents using SAF framework for
                 saved and submitted incidents in a \incidents
                 directory
  1999-10-18 : Set focus to beta id on page load
               Set focus to missing entry when validating form
               Removed .'s from BetaID
               Declared all objects locally/globally
               Order of error checking consistent with screen order
               Fix for MOF command not returning after finishing
  1999-10-19 : Changed Confirm to have title
               Added link to winbeta site
               Added bug page version
               If failure then do not get streams
               Changed Run commands to use short path name for IEINFO
               Changed Run commands to use short path name for SYSINFO
  1999-10-23 : Changed checking of stream to JS code to work around VB problem
  1999-10-24 : Added collecting hcupdate.log
               Added collecting WMI logs
               Added dc_onComplete function
  1999-10-25 : Find build number and do proper RecordIncident
  1999-10-26 : Changed occured to occurred
               Added width for space.gif image for localization
  1999-10-27 : Updated xml files to handle changes to dataspec.xml
  1999-10-28 : Text boxes on incident view have scroll bars but no edit/cut/paste
               Fixed . in file name to be at end
               Changed Done to Submit
  1999-10-28 : Fixed to initialize only once (brp_init.ini)
               Save incident data in csv files
               Added resume.txt
               Fixed build break
  1999-10-30 : Added presisting betaid and other options
               Added DrWatson log collection
               Added display for cabbit and directX
               Extensive validation of filenames
               Auto filling of filename from title
               Set default folder to millennium bugs
  1999-11-09 : Adding local LCID and ACP to handle Local translations
               Updated xml files to collect data
  1999-12-02 : Changed page encoding to UTF-8 to display special characters (118165)
               Fixed extra space in recorded incident page (119877)
               Fixed localizability with BRP Version string (121829)
  1999-12-06 : Removed IEMOF section, because IE5 providers are already registered on 
               Whistler (3529);
               Removed BRP_INFO registration section, because brpinfo.dll is installed as
               part of helpctr (millen bug#121483).
  2000-04-27 : Began modifying bugrep.htm for deployment to Whistler Beta Program web server and
			   application. (DougA)
  2000-05-22 : Finalized changes, incremented version number
  2000-06-06 : Changed tracking number text since tracking numbers will come from the server
  2000-08-01 : Began work on changes for Beta1. These changes will include:(DougA)
				* New Areas
				* Verification of Email address.
				* Persistance of Email address.
				* Regression, SKU and Upgrade questions.
				* Feild limits match bugreporting page on http://windowsbeta.microsoft.com
				* Text changes in the intro verbage.
				* Drop requirement for BetaID.
				* Rev the build number on the page.
	2000-11-15 : Began changes for Beta2.  Theses changes will include:(DougA)
				* Persist major data ( sku, this problems happens, et et et...)
				* Correct a mis-spelling in the SKU drop down.
				* added a few files to be collected with bug report.
	2001-2-13 : Globalized the above additions by adding ID attributes to the tags.(DougA)
  	2001-4-11 : Began changes for RC1.  Theses changes will include: (DougA)
				* New Area: HCT
				* Change "Personal" - > "Home" in Area Drop down.
				* Re-activate the DxDiag Div for both games and video areas.
				* New Area: Fast User Switching
				* New Text RE: Comments Link.
				* Make sure all changes are localizable
				* Rev Build Number

  Requires following files

    ErrCodes.vbs
    bugrep.css
    bug_upload_collect.xml
    bug_upload_nocollect.xml
    dataspec.xml

******************************************************************
-->
<SCRIPT ID="ErrCodesList" LANGUAGE=VBScript SRC="ErrCodes.vbs"></SCRIPT>
<SCRIPT LANGUAGE=VBScript>
    '
    ' Make sure all variables are declared explicitly and to make typos easier
    ' to find (in in the current code)
    '
    'option explicit

    '
    ' ProductName (should be equal to product name field in SAF1.XML)
    '
    const L_BRP_Version      = "5.00.00."
    const L_BRPBuild_Version = "6000"

    '
    ' ProductName (should be equal to product name field in SAF1.XML)
    '
    const L_ProductName_Version = "Microsoft Whistler Beta"

    '
    ' Vendor directory under which all files are stored on the client
    '
    const L_VendorChannel_Address  = "CN=Microsoft Corporation,L=Redmond,S=Washington,C=US"
    '
    ' Title for all dialog message boxes
    '
    const L_MsgBoxTitle_Message    = "Bug Reporting"

    '
    ' Server name for uploading bugs
    '
    const L_ServerName_Address     = "http://windowsbeta.microsoft.com/pchealth/UpLoadServer.dll"
    
    '
    ' Field names
    '
    const L_MissingField_ErrorMessage            = "Missing or incomplete required field: "
    const L_FormField_FIELDNAME_BetaID_TEXT      = "Beta ID"
    const L_FormField_FIELDNAME_Emailaddr_TEXT	 = "Email address"
    const L_FormField_FIELDNAME_Title_TEXT       = "Problem title"
    const L_FormField_FIELDNAME_Description_TEXT = "Describe the problem"
    const L_FormField_FIELDNAME_Expected_TEXT    = "What did you expect to happen"
    const L_FormField_FIELDNAME_Repro_TEXT       = "Enter the steps required to reproduce the problem"
    const L_FormField_FIELDNAME_Severity_TEXT    = "Problem type"
	const L_FormField_FIELDNAME_SKU_TEXT		 = "This Windows install is the"
	const L_FormField_FIELDNAME_regression_TEXT  = "This Problem (2nd Dropdown)"
	const L_FormField_FIELDNAME_upgrade_TEXT	 = "This install is"
	

    const L_FormField_FIELDNAME_Area_TEXT        = "Area"  
    const L_FormField_FIELDNAME_Reproducibility_TEXT = "This Problem (1st Dropdown)"
    '
    ' Testing flag, set to 0 for release code, 1 for testing code and using the
    ' test server
    '
    const BRP_DebugFlag   = 0


    '
    ' Main code, only localization changes to be made after this section
    '
    const UL_HISTORY_LOG = 1
    const UL_HISTORY_LOG_AND_DATA = 2
    const UL_HISTORY_NONE = 0

    const UL_BACKGROUND   = 0
    const UL_FOREGROUND   = 1

    const UL_ABORTED      = 4
    const UL_ACTIVE       = 1
    const UL_COMPLETED    = 6
    const UL_DELETED      = 7
    const UL_FAILED       = 5
    const UL_NOTACTIVE    = 0
    const UL_SUSPENDED    = 2
    const UL_TRANSMITTING = 3

    const DC_NOTACTIVE    = 0
    const DC_COLLECTING   = 1
    const DC_FAILED       = 2
    const DC_COMPLETED    = 3

    const L_NoConnection1_ErrorMessage = "Bug can not be sent at this time because we detect no current internet connection."
    const L_NoConnection2_ErrorMessage = "Please connect to the Internet and resend the bug, or deselect ""Submit to Microsoft now"" and select ""Save copy to disk"" only to save the bug for sending later (please see readme for batch uploading instructions)."

    const g_TestingURL = "http://www.microsoft.com"
        
    '
    ' g_oDc   Data collection object
    ' g_oUpl  Upload object
    ' g_oCab  Cab creation object
    '
    Dim   g_oDc, g_oUpl, g_oCab, g_nInProgress, g_bSaveIncident, g_bSubmitIncident
    Dim   g_bSaveIncidentSucceeded, g_bSubmitIncidentSucceeded

    Dim   g_bFormValid
    Dim   g_nCurrentBuild

    Dim   g_SettingsBetaId
    Dim   g_SettingsEmail
	Dim   g_SettingsSKU
	Dim	  g_SettingsUpgrade
    Dim   g_SettingsLastPath
    Dim   g_SettingsShareInfo
    Dim   g_SettingsSubmitNow
    Dim   g_SettingsSaveToDisk
    Dim   g_CrashDumpFile
    Dim   g_KernelCrash
    Dim   g_CrashApp
    Dim   g_DeleteCrashDump    

    Set g_oDc        = Nothing
    Set g_oUpl       = Nothing
    Set g_oCab       = Nothing

    g_nCurrentBuild  = 0
    g_nInProgress    = 0
    g_bSaveIncident  = False
    g_bSaveIncidentSucceeded  = False
    g_bSubmitIncident= False
    g_bSubmitIncidentSucceeded = False
    g_bFormValid     = False

'------------------------------------------------------------------------------
'
' Validate form before submitting report
'
'------------------------------------------------------------------------------
    sub ValidateForm()


        const L_BetaIDBadRange_ErrorMessage          = "There is an problem with your betaid."
        Dim misc_fields, colon, bang, field, description, BetaIDValue
        Dim oFS
        ' Override the default behavior so we can control where we go.
        window.event.cancelBubble = true
        window.event.returnValue = false

        '
        'Format of misc-fields is a colon-separated list.  Each entry
        'consists of the field name to check, optionally followed by a
        'bang and a human-readable description of that field.
        '"BetaID!" & L_FormField_FIELDNAME_BetaID_TEXT & _
        misc_fields = "Title!" & L_FormField_FIELDNAME_Title_TEXT

        while misc_fields <> ""
            colon = instr(misc_fields, ":")
            if colon <> 0 then
                field = left(misc_fields, colon-1)
                misc_fields = right(misc_fields, len(misc_fields) - colon)
            else
                field = misc_fields
                misc_fields = ""
            end if
            bang = instr(field, "!")
            if bang <> 0 then
                description = right(field, len(field) - bang)
                field = left(field, bang-1)
            else
                description = field
            end if
            if IsNull(document.all(field)) or len(document.all(field).value) = 0 then
                Call BRP_MessageBox(L_MissingField_ErrorMessage & description)
                g_bFormValid = False
                '
                ' Set focus to missing field
                '
                document.all(field).focus
                exit sub
            end if
        wend
        
        'Verify email value.
        dim emailinput 
        emailinput = document.all.Emailaddr_Input.value
        
        if ( (emailinput = "") or (len(emailinput) < 6) or (instr(emailinput,"@") = 0) or (instr(emailinput,".") = 0) or (instr(emailinput," ") <> 0)   ) then
			
            Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_emailaddr_TEXT)
            g_bFormValid = False
            document.all.Emailaddr_Input.focus
            exit sub
        end if

        if document.all.Severity.value = "NA" then
            Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_Severity_TEXT)
            g_bFormValid = False
            document.all.Severity.focus
            exit sub
        end if
		
		if document.all.regression.value = "NA" then
            Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_regression_TEXT)
            g_bFormValid = False
            document.all.regression.focus
            exit sub
        end if
        
        if document.all.Area.value = "NA" then
            Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_Area_TEXT)
            g_bFormValid = False
            document.all.Area.focus
            exit sub
        end if
        
        if document.all.SKU.value = "NA" then
            Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_SKU_TEXT)
            g_bFormValid = False
            document.all.SKU.focus
            exit sub
        end if
        
        if document.all.upgrade.value = "NA" then
            Call BRP_MessageBox(L_MissingField_ErrorMessage & L_FormField_FIELDNAME_upgrade_TEXT)
            g_bFormValid = False
            document.all.upgrade.focus
            exit sub
        end if
        

        '
        'Format of misc-fields is a colon-separated list.  Each entry
        'consists of the field name to check, optionally followed by a
        'bang and a human-readable description of that field.
        '
        misc_fields = "Description!" & L_FormField_FIELDNAME_Description_TEXT & _
                      ":ExpectedBehavior!" & L_FormField_FIELDNAME_Expected_TEXT & _
                      ":StepsToRepro!" & L_FormField_FIELDNAME_Repro_TEXT 

        while misc_fields <> ""
            colon = instr(misc_fields, ":")
            if colon <> 0 then
                field = left(misc_fields, colon-1)
                misc_fields = right(misc_fields, len(misc_fields) - colon)
            else
                field = misc_fields
                misc_fields = ""
            end if
            bang = instr(field, "!")
            if bang <> 0 then
                description = right(field, len(field) - bang)
                field = left(field, bang-1)
            else
                description = field
            end if
            if IsNull(document.all(field)) or len(document.all(field).value) = 0 then
                Call BRP_MessageBox(L_MissingField_ErrorMessage & description)
                g_bFormValid = False
                '
                ' Set focus to missing field
                '
                document.all(field).focus
                exit sub
            end if
        wend

        on error resume next
        Err.Clear
        'BetaIDvalue = CLng(document.all.BetaID.value)
        'if Err.number <> 0 then
        '   Call BRP_MessageBox(L_BetaIDBadRange_ErrorMessage)
        '   g_bFormValid = False
        '    document.all.BetaID.focus
        '    exit sub
        'end if
        
         Set oFS = CreateObject("Scripting.FileSystemObject")

        document.all.IncidentFilename.value = oFS.GetAbsolutePathName(document.all.IncidentFilename.value)
        '
        ' Return validity flag in a global variable
        '
        g_bFormValid = True

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub ValidateTextLength(limit)
        const L_TooLong1_ErrorMessage = "This text field is too long.  It is limited to "
        const L_TooLong2_ErrorMessage = " characters.  The entry has been truncated."

        if len(window.event.srcElement.value) > limit then
            BRP_MessageBox L_TooLong1_ErrorMessage & CStr(limit) & L_TooLong2_ErrorMessage
            window.event.srcElement.value = left(window.event.srcElement.value, limit)
            window.event.srcElement.focus
        end if
    end sub

'------------------------------------------------------------------------------
'
' Message box with OK and special title
'
'------------------------------------------------------------------------------
    sub BRP_MessageBox(msg)

        Call MsgBox(msg,vbOKOnly,L_MsgBoxTitle_Message)

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function BRP_Confirm(msg)

        BRP_Confirm = MsgBox(msg,vbYesNo,L_MsgBoxTitle_Message)

    end function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_TraceMessage(msg)

        if BRP_DebugFlag >= 2 then
            Call MsgBox(msg,vbOKOnly,L_MsgBoxTitle_Message)
        end if

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function GetVendorPath()

        Dim oChannel

        Set oChannel= pchealth.CreateObject_Channel(L_VendorChannel_Address, L_ProductName_Version)
        GetVendorPath = oChannel.VendorDirectory

    end function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function GetWinPath()

        Dim oFS

        Set oFS = CreateObject("Scripting.FileSystemObject")
        GetWinPath = oFS.GetSpecialFolder(0)

    end function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function GetWinSystemPath()

        Dim oFS

        Set oFS = CreateObject("Scripting.FileSystemObject")
        GetWinSystemPath = oFS.GetSpecialFolder(1)

    end function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function GetTempPath()

        Dim oFS

        Set oFS = CreateObject("Scripting.FileSystemObject")
        GetTempPath = oFS.GetSpecialFolder(2)

    end function

'------------------------------------------------------------------------------
'
' Only on Whistler
'
'
'------------------------------------------------------------------------------
    function GetSystemRootPath()

        Dim oWshShell

        Set oWshShell     = CreateObject("WScript.Shell")
        GetSystemRootPath = oWshShell.ExpandEnvironmentStrings("%SYSTEMROOT%")

    end function


'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function GetSystemDrivePath()

        Dim oWshShell, szWinBootDir, szSystemDrive
        Dim slash

        Set oWshShell      = CreateObject("WScript.Shell")
        szSystemDrive = oWshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%")
        if len(szSystemDrive) <= 0  OR szSystemDrive = "%SYSTEMDRIVE%" then
            szWinBootDir       = oWshShell.ExpandEnvironmentStrings("%WINBOOTDIR%")
            slash = instr(szWinBootDir,"\")
            if slash <> 0 then
                GetSystemDrivePath = left(szWinBootDir,slash-1)
            else
                GetSystemDrivePath = "C:"
            end if
        else
            GetSystemDrivePath = szSystemDrive
        end if

    end function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function RunExternalApplicationDxDiag()

        Dim oFS
        Dim oWshShell

        Set oWshShell      = CreateObject("WScript.Shell")
        Set oFS = CreateObject("Scripting.FileSystemObject")

        szAppName = GetWinSystemPath & "\dxdiag.exe " & GetTempPath & "\dxdiag.txt"

        Call BRP_TraceMessage(szAppName)

        '
        ' Activate the window and display in minimum size
        '
    RunExternalApplicationDxDiag = oWshShell.Run(szAppName, 1, True)

    end function   
   
    function RunExternalApplicationCabbit()

        Dim oFS
        Dim oWshShell

        Set oWshShell      = CreateObject("WScript.Shell")
        Set oFS = CreateObject("Scripting.FileSystemObject")

        szAppName = GetWinSystemPath & "\restore\cabbit.exe /f: " & GetTempPath & "\srdata.cab"

        Call BRP_TraceMessage(szAppName)

        '
        ' Activate the window and display in minimum size
        '
    RunExternalApplicationCabbit = oWshShell.Run(szAppName, 1, True)

    end function

'------------------------------------------------------------------------------
'
' Get build number from string of type X.XX.XXXX xxxx, assumes 4 digit build
' number and sets g_nCurrentBuild
'
'------------------------------------------------------------------------------
    sub BRP_SetOSBuild(szVer)

        Dim period, szVer1, szVer2, szVer3

        period = instr(szVer,".")
        if period <> 0 then
            szVer1 = right(szVer,len(szVer)-period)
            period = instr(szVer1,".")
            if period <> 0 then
                szVer2 = right(szVer1,len(szVer1)-period)
                szVer3 = left(szVer2,4)
                nVer   = CInt(szVer3)
                g_nCurrentBuild = nVer
            end if
        end if
    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_SetStatusMessage(msg)

        document.all.Status.innerHTML = msg

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_SetProgressMessage(msg)

        document.all.Status.innerHTML = msg

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_AppendProgressMessage(msg)

        document.all.Status.innerHTML = document.all.Status.innerHTML & msg

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub SetProgress(percent)

        L_PctDone_Message = "% done"

        Call BRP_SetProgressMessage(percent & L_PctDone_Message)

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub dc_onProgress(DataCollectionPtr, done, total)
        Dim PercentDone

        if total = 0 then
            ' Avoid divide-by-zero errors.
            total = 100
        end if
        PercentDone = Round(done / total * 90)
        Call SetProgress(PercentDone)
    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub dc_onStatusChange(DataCollectionPtr, status)

        const L_DataCollection_STATUS_Collecting_Message  = "Collecting data"

        Dim szDCStatus

        select case status
            case DC_COLLECTING szDCStatus=L_DataCollection_STATUS_Collecting_Message
        end select

        Call BRP_SetStatusMessage(szDCStatus)

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub dc_onComplete(DataCollectionPtr, hresult)

        const L_DataCollection_STATUS_NotActive_Message   = "Not active"
        const L_DataCollection_STATUS_Failed_ErrorMessage = "Failed data collection."
        const L_DataCollection_STATUS_Completed_Message   = "Creating CAB file."
        const L_CollectError_ErrorMessage                 = "The following error occurred during data collection: "
        const L_CollectErrorNoErrNum_ErrorMessage         = "There was an error collecting data about your machine. "
        const L_UploadOnlyFiles_Message                   = "Do you want to continue by submitting system files from your machine."
        const L_SaveOnlyFiles_Message                     = "Do you want to continue by saving system files from your machine."

        Dim status
        Dim szDCStatus, szErrorMessage

        status = g_oDc.status
        status = CInt(status)

        select case status
            case DC_NOTACTIVE  szDCStatus=L_DataCollection_STATUS_NotActive_Message
            case DC_FAILED     szDCStatus=L_DataCollection_STATUS_Failed_ErrorMessage
            case DC_COMPLETED  szDCStatus=L_DataCollection_STATUS_Completed_Message
        end select

        Call BRP_SetStatusMessage(szDCStatus)

        if status = DC_FAILED or status = DC_COMPLETED then
            UnregisterDCHandlers
            if status = DC_COMPLETED then
                CreateCab(False)
            else
                if hresult <> 0 then
                    szErrorMessage = L_CollectError_ErrorMessage & Err.description & " (" & Err.number & "). "
                else
                    szErrorMessage = L_CollectErrorNoErrNum_ErrorMessage
                end if

                Err.Clear

                if g_bSubmitIncident = True then
                    if BRP_Confirm( szErrorMessage & vbCrLf & L_UploadOnlyFiles_Message ) = vbYes then
                        CreateCab(True)
                    else
                        Call BRP_CleanupAfterCancelUpload
                    end if
                else
                    if g_bSaveIncident = True then
                        if BRP_Confirm( szErrorMessage & vbCrLf & L_SaveOnlyFiles_Message ) = vbYes then
                            CreateCab(True)
                        else
                            Call BRP_CleanupAfterCancelUpload
                        end if
                    end if
                end if
            end if
        end if

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub cab_onComplete(g_oCab, hr)
        const L_CabError_ErrorMessage       = "Couldn't create cab file due to error #"
        const L_CabErrorStatus_ErrorMessage = "Error creating cab file."

        if g_oCab.Status <> 2 then
            Call BRP_MessageBox(L_CabError_ErrorMessage & Hex(hr))
            Call BRP_SetStatusMessage(L_CabErrorStatus_ErrorMessage)
            exit sub
        End if

        Call SetProgress(100)

        '
        ' Save incident if required
        '
        Call ContinueSaveIncident()

        '
        ' Upload incident if required
        '
        Call ContinueUploadIncident()

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub CollectData()

        const L_DCFailed_ErrorMessage      = "Data collection cannot be carried as the parameter files are missing."
        const L_CabStartStatus_Message     = "Creating CAB file."

        Dim oFS
        Dim iSpecNotFound
        Dim szUploadXMLFileName

        on error resume next
        if Not (g_oDc is Nothing) then
            set g_oDc = Nothing
        end if
        Set g_oDc = pchealth.CreateObject_DataCollection

        Set oFS = CreateObject("Scripting.FileSystemObject")

        iSpecNotFound = FALSE

        if document.all.CollectOk.checked then
            szUploadXMLFileName = "\bug_upload_collect.XML"
            if oFS.FileExists( GetVendorPath & szUploadXMLFileName ) then
                g_oDc.MachineData_Dataspec = GetVendorPath & szUploadXMLFileName
                '
                ' If history file exists then use this else just upload regular files
                '
                if oFS.FileExists( GetWinPath & "\PCHealth\HelpCtr\Config\DataSpec.XML" ) then
                    g_oDc.History_Dataspec     = GetWinPath & "\PCHealth\HelpCtr\Config\DataSpec.XML"
                    g_oDc.History_MaxDeltas    = 5
                else
                    iSpecNotFound = TRUE
                end if

            else
                iSpecNotFound = TRUE
            end if
        else
            '
            ' if a user unchecks data collection, we will not touch any data collection portion,
            ' and pretend a data collection failure; server side should check CollectOk flag
            ' before read into DCStatus
            '
            Call BRP_SetStatusMessage(L_CabStartStatus_Message)
            Call CreateCab(TRUE)
            exit sub
        end if

        if ( iSpecNotFound ) then
            BRP_MessageBox L_DCFailed_ErrorMessage
            Call BRP_CleanupAfterCancelUpload
        else
            RegisterDCHandlers
            g_oDc.ExecuteASync
        end if

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function CreateIncident(oInc, iDCFailed)
'
'   oInc       Incident object
'   iDCFailed  False if data collection was OK
'              True  if data collection failed
'
        const L_GetDataFailedSS_ErrorMessage              = "Failed to get collected machine snapshot data."
        const L_GetDataFailedHS_ErrorMessage              = "Failed to get collected machine history data."
        const L_IncCollectError_ErrorMessage              = "The following error occurred during data collection: "

        Dim oTmpStream, oDict, oSysInfo
        Dim misc_fields, field, colon
        Dim fDataValid, fHistoryValid

        ' Colon-separated list of fields to be stored in the data dictionary
        misc_fields = "emailaddr:Title:Severity:Area:Reproducibility:ExpectedBehavior:StepsToRepro"

        Set oInc = pchealth.CreateObject_Incident()
        
        'Prep the description with addtional information (SKU, regression, upgrade information)
        
        dim Final_Description
        Final_Description = ""
         Final_Description = Final_Description & "Version Installed: " & document.all.SKU.value & chr(13)
        Final_Description = Final_Description & "Regression: " & document.all.Regression.value & chr(13)
        Final_Description = Final_Description & "Upgrade From: " & document.all.upgrade.value & chr(13)
        Final_Description = Final_Description & "=======================================================================" & chr(13)
        Final_Description = Final_Description & document.all("Description").value


		if document.all.BetaID.value <> "" then
			oInc.UserName           = document.all.BetaID.value
        else
			oInc.UserName           = 999999 'MAGIC NUMBER (IF they don't have a betaid, use 999999)
		end if
        
        
        oInc.ProductID          = "Whistler Beta Bug"
        oInc.ProductName        = "Whistler"
        oInc.ProblemDescription = Final_Description

        '
        ' Get data stream if data collection did not fail
        '
        on error resume next
        if iDCFailed = False then
            '
            ' If incident stream exists then get MachineSnapshot else do not
            ' and just continue as data collection has already failed and we
            ' have to just continue
            '
            fDataValid    = IsMachineDataValid(g_oDc)
            fHistoryValid = IsHistoryDataValid(g_oDc)

            if fDataValid then
                oInc.MachineSnapshot = g_oDc.MachineData_GetStream
                if document.all.CollectOk.checked then
                    if fHistoryValid then
                        oInc.MachineHistory = g_oDc.History_GetStream
                    else
                        Call BRP_SetStatusMessage(L_GetDataFailedHS_ErrorMessage)
                        iDCFailed = True
                    end if
                 end if
            else
                Call BRP_SetStatusMessage(L_GetDataFailedSS_ErrorMessage)
                iDCFailed = True
            end if
        end if

        oInc.UploadType = 0

        Set oDict = oInc.Misc
        
        if document.all.BetaID.value <> "" then
			oDict.add "betaid",  document.all.BetaID.value
        else
			oDict.add "betaid", "999999" 'MAGIC NUMBER (IF they don't have a betaid, use 999999)
		end if
        
        while misc_fields <> ""
            colon = instr(misc_fields, ":")
            if (colon <> 0) then
                field = left(misc_fields, colon-1)
                misc_fields = right(misc_fields, len(misc_fields) - colon)
            else
                field = misc_fields
                misc_fields = ""
            end if
            if len(field) > 0 then
                oDict.add field, document.all(field).value
            end if
        wend

        '
        ' Change for CollectOk flag
        '
        if document.all.CollectOk.checked then
            oDict.add "CollectOK", "on"
        else
            oDict.add "CollectOK", "off"
        end if
		oDict.add "EmailAddr", document.all("Emailaddr").value
        oDict.add "AdditionalFiles_Number", document.all.AdditionalFilesScroll_List_UL.childNodes.length
        oDict.add "MachineID", g_oUpl.Sig
        
        if document.all.CollectOk.checked then
            oDict.add "DCStatus", iDCFailed
        else
            oDict.add "DCStatus", "0"
        end if

        Err.Clear
        Set oSysInfo = CreateObject("PCHealth.BugRepSysInfo")
        if Err.number <> 0 then
            Err.Clear
            oDict.add "OSBuildNumber",   "Unknown"
            oDict.add "OSLanguage",      "0"
            oDict.add "OSUserLocalLCID", "0"
            oDict.add "OSSysACP",        "0"
        else
            oDict.add "OSBuildNumber",   oSysInfo.GetOSVersionString
            oDict.add "OSLanguage",      oSysInfo.GetLanguageID
            oDict.add "OSUserLocalLCID", oSysInfo.GetUserDefaultLCID
            oDict.add "OSSysACP",        oSysInfo.GetActiveCP
        end if

        '
        ' Add bug reporting page version
        '
        oDict.add "BRP_Version", L_BRP_Version & L_BRPBuild_Version

        CreateIncident = true

    end function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub upl_onProgressChange(UploadJobPtr, currentSize, totalSize)

        const L_BytesSent1_Text = " ( "
        const L_BytesSent2_Text = " bytes of "
        const L_BytesSent3_Text = " bytes sent )"

        if totalSize = 0 then
            ' Avoid divide-by-zero errors.
            totalSize = 100
        end if

        Call SetProgress(Round(currentSize / totalSize * 100))

        Call BRP_AppendProgressMessage(L_BytesSent1_Text & currentSize & _
                                       L_BytesSent2_Text & totalSize & _
                                       L_BytesSent3_Text)

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub upl_onStatusChange(UploadJobPtr, status)

        Dim stat_str, szTrackingNo, szTrackingTime

        const L_Upload_STATUS_NotActive_Message    = "Not active"
        const L_Upload_STATUS_Active_Message       = "Active"
        const L_Upload_STATUS_Suspended_Message    = "Suspended"
        const L_Upload_STATUS_Transmitting_Message = "Transmitting"
        const L_Upload_STATUS_Aborted_ErrorMessage = "Retrying upload"
        const L_Upload_STATUS_Failed_ErrorMessage  = "Failed due to server error."
        const L_Upload_STATUS_Completed_Message    = "Completed upload"
        const L_Upload_STATUS_Deleted_Message      = "Deleted"
        const L_UploadError_ErrorMessage           = "The following error occurred during upload: "
        const L_UploadErrorCode_ErrorMessage       = "Error : "
        const L_UploadErrorNoErrNum_ErrorMessage   = "There was an error uploading your bug report."
        const L_SubmitToRety_ErrorMessage          = "Click submit to retry."

        select case status
            case UL_NOTACTIVE    stat_str=L_Upload_STATUS_NotActive_Message
            case UL_ACTIVE       stat_str=L_Upload_STATUS_Active_Message
            case UL_SUSPENDED    stat_str=L_Upload_STATUS_Suspended_Message
            case UL_TRANSMITTING stat_str=L_Upload_STATUS_Transmitting_Message
            case UL_ABORTED      stat_str=L_Upload_STATUS_Aborted_ErrorMessage
            case UL_FAILED       stat_str=L_Upload_STATUS_Failed_ErrorMessage
            case UL_COMPLETED    stat_str=L_Upload_STATUS_Completed_Message
            case UL_DELETED      stat_str=L_Upload_STATUS_Deleted_Message
        end select

        Call BRP_SetStatusMessage(stat_str)

        if status = UL_FAILED or status = UL_COMPLETED then
            Call UnregisterUPLHandlers()
            if status = UL_COMPLETED then
                '
                ' Successfully submitted an incident
                '
                g_bSubmitIncidentSucceeded = TRUE
                '
                ' No cleanup requird here as a seperate thankyou DIV is being
                ' displayed and users cannot navigate back to the page, a
                ' cleanup here adds some flicker before the thankyou page
                '
                szTrackingNo   = g_oUpl.Sig & "_" & g_oUpl.JobID
                szTrackingTime = g_oUpl.CompleteTime
                Call BRP_TraceMessage(szTrackingTime)
                Call BRP_TraceMessage(szTrackingNo)

                '
                ' Make a record of the incident
                '
                Call RecordIncident(szTrackingTime,szTrackingNo)

                '
                ' Store valid options
                '
                Call BRP_WriteIniFile()

                document.all.BRP_IncidentTime.innerHTML = szTrackingTime
                document.all.BRP_TrackingNo.innerHTML   = szTrackingNo

                Call BRP_CleanCrashDump()

            end if
            '
            ' Cleanup
            '
            Call BRP_CleanupAfterCancelUpload

            '
            ' Delete the upload object
            '
            g_oUpl.Delete

            '
            ' Move to thank you page, must remove the InProgess before this
            ' or the unload handlers will kick in so above code order is
            ' important
            '
            if status = UL_COMPLETED then
                document.all.spanEnterBug.style.display = "none"
                document.all.spanThankYou.style.display = ""
                exit sub
            end if
            '
            ' Changed to print error code string
            '
            if g_oUpl.ErrorCode <> 0 then
                lErrCode = CLng(g_oUpl.Errorcode)
                szError  = ERR_GetJobErrorCodeString(lErrCode)
                BRP_MessageBox L_UploadError_ErrorMessage & vbCrLf & _
                               L_UploadErrorCode_ErrorMessage & _
                               szError & _
                               vbCrLf & _
                               L_SubmitToRety_ErrorMessage
            else
                BRP_MessageBox L_UploadErrorNoErrNum_ErrorMessage & _
                               L_SubmitToRety_ErrorMessage
            end if
        end if
    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub ResetUpload()
        On Error Resume Next
        if not (g_oUpl is Nothing) then
          g_oUpl.Delete
        end if
        Set g_oUpl = Nothing
        if not (g_oDc is Nothing) then
          g_oDc.Abort
        end if
        Set g_oDc = Nothing
        if not (g_oCab is Nothing) then
            g_oCab.Abort
        end if
        Set g_oCab = Nothing
        Call BRP_CleanupAfterCancelUpload()
    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub CancelUpload()

        const L_UserCancel_Message = "Cancelled by user"

        if g_nInProgress then
            Call UnregisterDCHandlers()
            Call UnregisterUPLHandlers()
            Call UnregisterCabHandler()
            Call BRP_SetStatusMessage(L_UserCancel_Message)
            Call ResetUpload()
            Call SetProgress(0)
        end if

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub CreateCab(iDCFailed)

        const L_UploadObjectMissing_ErrorMessage  = "An error occurred when trying to create the upload data object."
        const L_FailedIncident_ErrorMessage       = "Failed generating incident"
        const L_CantGenerateIncident_ErrorMessage = "There was an error trying to save the incident information."
        const L_CabCompression_ErrorMessage       = "An error occurred when trying to compress the CAB file before upload."
        const L_CompressingCab_Message            = "Compressing CAB file"

        Dim   oInc, oTmpObj, oFS, oFileSelected, oFolder, oFiles, oFile, oLastLogFile
        Dim   FileList(), FileListIndex, AddFilesIndex
        Dim   iFileCount, AddFilesCount
        Dim   iStart
        Dim   nCount, dCurDate, dMaxDate, fIsLog
        Dim   iMaxSysRootFiles, szSysRootFileName()
        Dim   iMaxSysDriveFiles, szSysDriveFileName()
        Dim   iMaxCDriveFiles, szCDriveFileName()
        Dim   szText
        ReDim FileList(500)
        ReDim szSysRootFileName(20)
        ReDim szSysDriveFileName(20)
        ReDim szCDriveFileName(20)

        AddFilesCount = 0

        Call BRP_TraceMessage("CreateCAB")

        on error resume next
        Err.Clear
        Set oTmpObj = CreateObject("UploadManager.MPCUpload")
        '
        ' Error handler for bad MPCUpload object (missing config.xml)
        '
        if Err.number <> 0 then
            Call BRP_MessageBox(L_UploadObjectMissing_ErrorMessage)
            Call BRP_CleanupAfterCancelUpload()
            exit sub
        end if
        
        if Not (g_oUpl is Nothing) then
           set g_oUpl = Nothing
        end if
        Set g_oUpl = oTmpObj.CreateJob
        g_oUpl.Sig = ""

        if NOT CreateIncident(oInc, iDCFailed) then
            g_oUpl.Delete
            exit sub
        end if

        Err.Clear
        oInc.GetXML GetTempPath & "\Incident.XML"
        if Err.number <> 0 then
            Err.Clear
            Call BRP_SetStatusMessage(L_FailedIncident_ErrorMessage)
            Call BRP_MessageBox(L_CantGenerateIncident_ErrorMessage)
            Call BRP_CleanupAfterCancelUpload()
        end if

        Set oFS = CreateObject("Scripting.FileSystemObject")

        iFileCount = 0
        if oFS.FileExists( GetTempPath & "\Incident.XML" ) then
            FileList(iFileCount) = GetTempPath & "\Incident.XML"
            iFileCount = iFileCount + 1
        end if
        '
        ' Collect hcupdate.log
        '
        if oFS.FileExists( GetWinPath & "\temp\hcupdate.log" ) then
            FileList(iFileCount) = GetWinPath & "\temp\hcupdate.log"
            iFileCount = iFileCount + 1
        end if
        '
        ' Add XML files to upload
        '
        if oFS.FileExists( GetVendorPath & "\bug_upload_collect.XML" ) then
            FileList(iFileCount) = GetVendorPath & "\bug_upload_collect.XML"
            iFileCount = iFileCount + 1
        end if
        if oFS.FileExists( GetVendorPath & "\bug_upload_nocollect.XML" ) then
            FileList(iFileCount) = GetVendorPath & "\bug_upload_nocollect.XML"
            iFileCount = iFileCount + 1
        end if

        '
        ' Get files from the SYSTEMROOT (Windows) directory
        '
        
        szSysRootFileName(01) = "\ntbtlog.txt" 
        szSysRootFileName(02) = "\setupact.log" 
        szSysRootFileName(03) = "\setupapi.log"
        szSysRootFileName(04) = "\setuperr.log"
        szSysRootFileName(05) = "\setuplog.txt"
        szSysRootFileName(06) = "\PCHealth\HelpCtr\Config\DataSpec.XML" 
        szSysRootFileName(07) = "\repair\setup.log"
        szSysRootFileName(08) = "\system\sfp\sfplog.txt"
        szSysRootFileName(09) = "\system32\autoexec.nt"
        szSysRootFileName(10) = "\system32\config\appevent.evt" 
        szSysRootFileName(11) = "\system32\config\secevent.evt" 
        szSysRootFileName(12) = "\system32\config\sysevent.evt"
        szSysRootFileName(13) = "\debug\UserMode\userenv.log"
        szSysRootFileName(14) = "\debug\NetSetup.log"
        szSysRootFileName(15) = "\debug\dcpromo.log"                
	    szSysRootFileName(16) = "\ntcompat.txt"                
    	szSysRootFileName(17) = "\upgrade.txt"                
    	szSysRootFileName(18) = "\system32\$winnt$.inf"                
        

	    iMaxSysRootFiles = 19

        for iCount = 0 to iMaxSysRootFiles-1
            if oFS.FileExists( GetSystemRootPath & szSysRootFileName(iCount) ) then
                FileList(iFileCount) = GetSystemRootPath & szSysRootFileName(iCount) 
                iFileCount = iFileCount + 1
            end if 
        next

        '
        ' Get files from the SYSTEMDRIVE directory
        '
        szSysDriveFileName(00) = "\boot.ini"
        szSysDriveFileName(01) = "\bootex.log"
        szSysDriveFileName(02) = "\sysparse.log"

        

	    iMaxSysDriveFiles = 3

        for iCount = 0 to iMaxSysDriveFiles-1
            if oFS.FileExists( GetSystemDrivePath & szSysDriveFileName(iCount) ) then
                FileList(iFileCount) = GetSystemDrivePath & szSysDriveFileName(iCount)
                iFileCount = iFileCount + 1
            end if
        next

        '
        ' Get files from the WMI LOG directory log files
        '
        if oFS.FolderExists(GetWinSystemPath & "\wbem\logs") then
            Set oFolder = oFS.GetFolder(GetWinSystemPath & "\wbem\logs")
            Set oFiles  = oFolder.Files
            for Each oFile in oFiles
                fIsLog = instrrev(lcase(oFile.name), ".log")
                if fIsLog <> 0 then
                    if oFS.FileExists( oFile.Path ) then
                        FileList(iFileCount) = oFile.Path
                        iFileCount = iFileCount + 1
                    end if
                end if
            next
        end if
    
        '
        ' Run DirectX diagnostic utility and collect this information
        '
        'Call RunExternalApplicationDxDiag()
        'if oFS.FileExists( GetTempPath & "\dxdiag.txt" ) then
        '    FileList(iFileCount) = GetTempPath & "\dxdiag.txt"
        '    iFileCount = iFileCount + 1
        'end if

        FileListIndex = iFileCount

        '
        ' Find number of selected files and add them to the list
        ' they exist at the time of selection so not re-checking them
        '
        Set oFileSelected = document.all.AdditionalFilesScroll_List_UL.childNodes
      

        AddFilesCount = oFileSelected.length

        ReDim Preserve FileList(FileListIndex + AddFilesCount - 1)
        for AddFilesIndex = 0 to (AddFilesCount - 1)
            FileList(FileListIndex) = oFileSelected.item(AddFilesIndex).innerText
            FileListIndex = FileListIndex + 1
        next
        
        if Not (g_oCab is Nothing) then
            set g_oCab = Nothing
        end if
 
        Set g_oCab = pchealth.CreateObject_Cabinet
        for AddFilesIndex = 0 to (FileListIndex-1)
            g_oCab.AddFile FileList(AddFilesIndex)
            document.all.ProgressText.innerHTML = "Collecting " & FileList(AddFilesIndex)
        next
        document.all.ProgressText.innerHTML = "&nbsp;"

        '
        ' Register cab completion call back
        '
        RegisterCabHandler

        Call BRP_TraceMessage("Compressing cab")

        Call BRP_SetStatusMessage(L_CompressingCab_Message)

        Err.Clear

        g_oCab.Compress GetTempPath & "\Upload.CAB"

        '
        ' Error trapping for problems during compression
        '
        if Err.number <> 0 then
            Call UnregisterCabHandler()
            Call BRP_MessageBox(L_CabCompression_ErrorMessage)
            Call BRP_CleanupAfterCancelUpload()
            exit sub
        end if

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub ContinueSaveIncident()

        const L_SavingIncident_Message    = "Saving incident to "
        const L_IncidentSaved_Message     = "Incident saved to "
        const L_SaveFailed_ErrorMessage   = "Couldn't save incident to "
        const L_CantSaveFile_ErrorMessage = "Can't save incident.  Make sure the path is valid and there is free space on the drive."
        const L_SavingFinished_Message    = " - File saved"

        Dim oTmpObj, oFS
        Dim szCabFileName

        Err.Clear

        Call BRP_TraceMessage("ContinueSaveIncident")

        if g_bSaveIncident = False then
            exit sub
        end if

        if g_bSubmitIncident = False then
            g_oUpl.Delete
        end if

        Call BRP_SetStatusMessage(L_SavingIncident_Message & document.all.IncidentFilename.value)

        if g_bSubmitIncident = False then
            Call SetProgress(0)
        end if

        Set oFS = CreateObject("Scripting.FileSystemObject")
        on error resume next

        szCabFileName = document.all.IncidentFilename.value

        oFS.CopyFile GetTempPath & "\Upload.CAB", szCabFileName
        if err.number <> 0 then
            Call BRP_SetStatusMessage(L_SaveFailed_ErrorMessage & document.all.IncidentFilename.value)
            Call BRP_MessageBox(L_CantSaveFile_ErrorMessage)
            '
            ' If submitting is not going to happen after this, clean up the buttons
            '
            if g_bSubmitIncident = False then
                Call BRP_CleanupAfterCancelUpload()
            end if
            exit sub
        end if
        '
        ' save succeeded
        '
        g_bSaveIncidentSucceeded = TRUE

        Call BRP_SetStatusMessage(L_IncidentSaved_Message & document.all.IncidentFilename.value)

        '
        ' If submitting is not going to happen after this, clean up the buttons
        '
        if g_bSubmitIncident = False then

            Call SetProgress(100)
            Call BRP_AppendProgressMessage(L_SavingFinished_Message)

            Call BRP_CleanCrashDump()

            '
            ' Make a record of the incident
            '
            Call RecordIncident(Now(),"-")

            '
            ' Store valid options
            '
            Call BRP_WriteIniFile()

            Call BRP_CleanupAfterCancelUpload()

        end if



    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub ContinueUploadIncident()

        const L_UploadCab_ErrorMessage        = "An error occurred when trying to use the upload CAB file."
        const L_UploadStart_ErrorMessage      = "An error occurred when trying to start upload."

        Dim oTmpObj, oInc, oFS

        '
        ' Alway trap all errors in the code
        '
        on error resume next
        Err.Clear

        Call BRP_TraceMessage("ContinueUploadIncident")

        if g_bSubmitIncident = False then
            exit sub
        end if

        if BRP_DebugFlag >= 1 then
            g_oUpl.Server    = L_ServerNameTest_Address
        else
            g_oUpl.Server    = L_ServerName_Address
        end if

        g_oUpl.ProviderID    = "ESC"
        g_oUpl.Mode          = UL_FOREGROUND
        g_oUpl.PersistToDisk = False

        '
        ' CAB file is already in a compressed state so further compression
        ' is not required (Fixes Bug 102646)
        '
        g_oUpl.Compressed    = False
        g_oUpl.History       = UL_HISTORY_NONE
        '
        ' We need to zero out the progress indicator, since the Upload object
        ' doesn't always do this (for example, if it aborts immediatly).
        '
        upl_onProgressChange g_oUpl, 0, 100

        Call RegisterUPLHandlers()

        Call BRP_TraceMessage("Get Data from Upload.CAB file")

        g_oUpl.GetDataFromFile GetTempPath & "\Upload.CAB"
        '
        ' Error trapping for invalid parameters has to be carried out here
        ' with proper error code message
        '
        if Err.number <> 0 then
            Call BRP_MessageBox(L_UploadCab_ErrorMessage )
            Call BRP_CleanupAfterCancelUpload()
            exit sub
        end if

        Call BRP_TraceMessage("Start uploading")

        Err.Clear
        g_oUpl.ActivateASync
        '
        ' Error trapping for invalid parameters has to be carried out here
        ' with proper error code message
        '
        if Err.number <> 0 then
            Call BRP_MessageBox(L_UploadStart_ErrorMessage)
            Call BRP_CleanupAfterCancelUpload()
            exit sub
        end if
    end sub

    Function ReadAllTextFile(szFileName)
        Const ForReading = 1, ForWriting = 2
        Dim oFS, oFile
        Set oFS   = CreateObject("Scripting.FileSystemObject")
        Set oFile = oFS.OpenTextFile(szFileName, ForReading)
        ReadAllTextFile =  oFile.ReadAll
        oFile.Close
    End Function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub RecordIncident(szTrackingTime,szTrackingNo)

        const L_IncidentDir_FileName          = "\incidents"
        const L_IncHead_FileName              = "\inc_head.htm"
        const L_IncTail_FileName              = "\inc_tail.htm"
        const L_Saved_Message                 = "Saved"
        const L_Submitted_Message             = "Submitted"
        const L_BugReport_Message             = "Bug Report"
        const L_ActionsTaken_Message          = "Actions taken"
        const L_AddFiles_Message              = "Additional Files"
        const L_SubmitTime_Message            = "Submit Time"
        const L_TrackingNumber_Message        = "Tracking Number"
        const L_SavedFile_Message             = "Saved File"
        const L_CSVFileName_Message           = "CSV File"
        const L_RecordIncident_ErrorMessage   = "An error occurred when recording the incident on the computer."

        Dim oFS, oChannel, oDataFile
        Dim bFileOK
        Dim nAddFiles
        Dim szIncidentAction




        on error resume next
        
        if g_bSubmitIncidentSucceeded = FALSE AND g_bSaveIncidentSucceeded = FALSE then
        '
        ' no need to record an incident
        '
            exit sub
        end if

        Err.number = 0
        Err.Clear

        bFileOK   = True

        Set oFS = CreateObject("Scripting.FileSystemObject")
        if Err.number <> 0 then
            Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            exit sub
        end if

        '
        ' Create an incidents folder
        '
        if ( oFS.FolderExists( GetVendorPath & L_IncidentDir_FileName )) then

        else
            oFS.CreateFolder( GetVendorPath & L_IncidentDir_FileName )
        end if

        if Err.number <> 0 then
            Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            exit sub
        end if

        '
        ' Find a unique file name based on number for the HTML file
        '
        nCount  = 1
        NewFile = False
        Do
          szFile         = nCount & ".htm"
          szFileName     = GetVendorPath & L_IncidentDir_FileName & "\" & szFile
          szCSV_File     = nCount & ".csv"
          szCSV_FileName = GetVendorPath & L_IncidentDir_FileName & "\" & szCSV_File
          if oFS.FileExists(szFileName) OR oFS.FileExists(szCSV_FileName) then
              nCount = nCount + 1
          else
              NewFile = True
          end if
        Loop While NewFile = False

        if Err.number <> 0 then
            Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            exit sub
        end if

        szIncidentAction = " "
        if g_bSaveIncidentSucceeded = True then
            szIncidentAction = szIncidentAction  & L_Saved_Message
            if g_bSubmitIncidentSucceeded = True then
                szIncidentAction = szIncidentAction  & " "
            end if
        end if
        if g_bSubmitIncidentSucceeded = True then
            szIncidentAction = szIncidentAction  & L_Submitted_Message
        end if

        '
        ' Create CSV data file
        '
        Err.Clear
        Set oDataFile = oFS.CreateTextFile(szCSV_FileName, False)

        if Err.number <> 0 then
            Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            exit sub
        end if

        szEscaped = replaceQuotes(Cstr(szTrackingTime))
        oDataFile.Write chr(34) & szEscaped & chr(34) & ","

        szEscaped = replaceQuotes(szTrackingNo)
        oDataFile.Write chr(34) & szEscaped & chr(34) & ","

        if g_bSaveIncident = True then
            szEscaped = replaceQuotes(document.all.IncidentFilename.value)
            oDataFile.Write chr(34) & szEscaped & chr(34) & ","
        end if

        szEscaped = replaceQuotes(szCSV_FileName)
        oDataFile.Write chr(34) & szEscaped & chr(34) & ","

        szEscaped = replaceQuotes(szIncidentAction)
        oDataFile.Write chr(34) & szEscaped & chr(34) & ","

 'Prep the description with addtional information (SKU, regression, upgrade information)
        
          dim Final_Description
        Final_Description = ""
         Final_Description = Final_Description & "Version Installed: " & document.all.SKU.value & chr(13)
        Final_Description = Final_Description & "Regression: " & document.all.Regression.value & chr(13)
        Final_Description = Final_Description & "Upgrade From: " & document.all.upgrade.value & chr(13)
        Final_Description = Final_Description & "=======================================================================" & chr(13)
        Final_Description = Final_Description & document.all("Description").value



        misc_fields = "BetaID:Emailaddr:Title:Severity:Area:Reproducibility:Description:ExpectedBehavior:StepsToRepro"

        while misc_fields <> ""
            colon = instr(misc_fields, ":")
            if (colon <> 0) then
                field = left(misc_fields, colon-1)
                misc_fields = right(misc_fields, len(misc_fields) - colon)
            else
                field = misc_fields
                misc_fields = ""
            end if
            if len(field) > 0 then
				if (field = "Description") then
					szEscaped = replaceQuotes(Final_Description)
				else
					szEscaped = replaceQuotes(document.all(field).value)
                end if
                oDataFile.Write chr(34) & szEscaped & chr(34) & ","
            end if
        wend

        nAddFiles = document.all.AdditionalFilesScroll_List_UL.childNodes.length
        szEscaped = replaceQuotes(Cstr(nAddFiles))
        oDataFile.Write chr(34) & szEscaped & chr(34)

        oDataFile.Close


        if Err.number <> 0 then
            Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            exit sub
        end if

        '
        ' Create HTML data file
        '
        Set oDataFile = oFS.CreateTextFile(szFileName, False)

        if Err.number <> 0 then
            Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            exit sub
        end if

        if ( oFS.FileExists( GetVendorPath & L_IncHead_FileName )) then
            szHeadString = ReadAllTextFile( GetVendorPath & L_IncHead_FileName )
            oDataFile.Write szHeadString
        end if

		
        oDataFile.Write "<TR>"
        oDataFile.Write "<TD>"
        oDataFile.Write "<TABLE border=0>"
        oDataFile.Write "<TBODY>"
        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_SubmitTime_Message & "</B></TD>"
        oDataFile.Write "      <TD>" & szTrackingTime & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"
        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_TrackingNumber_Message & "</B></TD>"
        oDataFile.Write "      <TD>" & szTrackingNo & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        if g_bSaveIncident = True then
            oDataFile.Write "    <TR>"
            oDataFile.Write "      <TD valign=top><B>" & L_SavedFile_Message & "</B></TD>"
            oDataFile.Write "      <TD>" & document.all.IncidentFilename.value & "</TD>"
            oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"
        end if

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_CSVFileName_Message & "</B></TD>"
        oDataFile.Write "      <TD>" & szCSV_FileName & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        szIncidentAction = " "
        if g_bSaveIncidentSucceeded = True then
            szIncidentAction = szIncidentAction  & L_Saved_Message 
            if g_bSubmitIncidentSucceeded = True then
                szIncidentAction = szIncidentAction  & " "
            end if
        end if
        if g_bSubmitIncidentSucceeded = True then
            szIncidentAction = szIncidentAction  & L_Submitted_Message 
        end if

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_ActionsTaken_Message & "</B></TD>"
        oDataFile.Write "      <TD>" & szIncidentAction & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        misc_fields = "BetaID:Emailaddr:Title:Severity:Area:Reproducibility"
        
        
        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_BetaID_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & document.all("BetaID").value & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

		oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Emailaddr_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & document.all("Emailaddr").value & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Title_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & escapeHTMLTag(document.all("Title").value) & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Severity_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & escapeHTMLTag(document.all("Severity").options(document.all("Severity").selectedIndex).text) & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Area_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & escapeHTMLTag(document.all("Area").options(document.all("Area").selectedIndex).text) & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Reproducibility_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & document.all("Reproducibility").options(document.all("Reproducibility").selectedIndex).text & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        misc_fields = "Description:ExpectedBehavior:StepsToRepro"
        
       'Use the Final_Description we built up above.
        
        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Description_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & escapeHTMLTag(Final_Description) & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Expected_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & escapeHTMLTag(document.all("ExpectedBehavior").value) &  "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

        oDataFile.Write "    <TR>"
        oDataFile.Write "      <TD valign=top><B>" & L_FormField_FIELDNAME_Repro_TEXT & "</B></TD>"
        oDataFile.Write "      <TD>" & escapeHTMLTag(document.all("StepsToRepro").value) & "</TD>"
        oDataFile.Write "    </TR><TR><TD COLSPAN=2><HR></TD></TR>"

                
        
        '
        ' Find number of selected files and add them to the list
        ' they exist at the time of selection so not re-checking them
        '
        nAddFiles = document.all.AdditionalFilesScroll_List_UL.childNodes.length
        

        if nAddFiles > 0 then
            szFileList = " "
            for nCount = 0 to (nAddFiles - 1)
                szFileList = szFileList &  document.all.AdditionalFilesScroll_List_UL.childNodes.item(nCount).innerText & "<BR>"
            next

            oDataFile.Write "    <TR>"
            oDataFile.Write "      <TD valign=top><B>" & L_AddFiles_Message & "</B></TD>"
            oDataFile.Write "      <TD>" & szFileList & "</TD>"
            oDataFile.Write "    </TR>"

        end if

        oDataFile.Write "  </TBODY>"
        oDataFile.Write"      </TABLE>"
        oDataFile.Write"    </TD>"
        oDataFile.Write"  </TR>"
        oDataFile.Write"  </TBODY>"
        oDataFile.Write"</TABLE>"

        if ( oFS.FileExists( GetVendorPath & L_IncTail_FileName )) then
            szHeadString = ReadAllTextFile( GetVendorPath & L_IncTail_FileName )
            oDataFile.Write szHeadString
        end if

        oDataFile.Close

        if Err.number <> 0 then
            Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            exit sub
        end if

        if bFileOK = True then
            Err.number   = 0
            Err.Clear
            Set oChannel = pchealth.CreateObject_Channel(L_VendorChannel_Address, L_ProductName_Version)
            szIncidentPath = "hcp://" & L_VendorChannel_Address & L_IncidentDir_FileName & "\" & szFile
            if err.number <> 0 then
                Call BRP_MessageBox(L_RecordIncident_ErrorMessage)
            else
                if Len(szIncidentAction) = 0 then
                   szIName = L_BugReport_Message & ": " & document.all.Title.value
            
                else
                   szIName = L_BugReport_Message & " (" & szIncidentAction & "): " & document.all.Title.value
            end if
                '
                ' Number of parameters changed in new RecordIncident
                '
                if g_nCurrentBuild < 2399 then
                    oChannel.RecordIncident szIName, szIncidentPath
                else
                    oChannel.RecordIncident szIName, szIncidentPath, "", ""
                end if
            end if
         end if

    end sub

    const L_NeedFilename_ErrorMessage = "You must specify a filename."
    const L_FileAlreadySelected_ErrorMessage = " has been added already."


'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub StartProcessing()

        const L_OverwriteFile_TEXT          = "The file already exists.  Do you want to replace the existing file?"
        const L_InvalidFileName_ErrorMessage = "The file name is invalid. Make sure the path is valid and there are no special characters in the file name."
        const L_SingleSubmit_ErrorMessage   = "Only one bug may be submitted at a time."
        const L_NeedAction_ErrorMessage     = "Select the option to Submit and/or Save the bug report"
        const L_NoFolder1_ErrorMessage      = "The folder "
        const L_NoFolder2_ErrorMessage      = " does not exist. Do you want to create it?"
        const L_NoCreateFolder_ErrorMessage = "Could not create the folder. Please select a different folder for the bug report."


        Dim oFS                 ' File System Object
        Dim szCabFileName, szTemp
        Dim slash
        Dim bExist

        g_bSaveIncident   = False
        g_bSaveIncidentSucceeded   = False
        g_bSubmitIncident = False
        g_bSubmitIncidentSucceeded = False        
        g_bFormValid      = False

        on error resume next

        if document.all.SaveIncidentNow.checked = False AND document.all.SubmitIncidentNow.checked = False then
            BRP_MessageBox L_NeedAction_ErrorMessage
            exit sub
        end if

        Call ValidateForm()

        '
        ' Form invalid then exit
        '
        if g_bFormValid = False then
            exit sub
        end if

        '
        ' If we have to save the form do checking for valid file now
        '
        if document.all.SaveIncidentNow.checked then

            if document.all.IncidentFilename.value = "" Then
                BRP_MessageBox L_NeedFilename_ErrorMessage
                document.all.IncidentFilename.focus
                exit sub
            end if
            Set oFS = CreateObject("Scripting.FileSystemObject")

            '
            ' Check if the folder exists else create it
            '
            szTemp = document.all.IncidentFilename.value
            slash  = instrrev(szTemp,"\")
            if slash <> 0 then
                szTemp = left(szTemp,slash-1)
                if NOT oFS.FolderExists( szTemp ) then
                    if BRP_Confirm(L_NoFolder1_ErrorMessage & szTemp & L_NoFolder2_ErrorMessage) = vbNo then
                        exit sub
                    end if
                    Err.Clear
                    oFS.CreateFolder( szTemp )
                    if Err.number <> 0 then
                        BRP_MessageBox L_NoCreateFolder_ErrorMessage
                        exit sub
                    end if
                end if
            end if

            szCabFileName = document.all.IncidentFilename.value
            Err.Clear
            bExist = oFS.FileExists(szCabFileName)
            if Err.Number <> 0 then
                BRP_MessageBox L_InvalidFileName_ErrorMessage
                exit sub
            end if
            
            if bExist then
                if BRP_Confirm(L_OverwriteFile_TEXT) = vbNo then
                    exit sub
                end if
            end if
            g_bSaveIncident = True
        end if

        if document.all.SubmitIncidentNow.checked then
            g_bSubmitIncident = True
        end if

        '
        ' Form is validated, so call UploadIncident
        '
        if g_nInProgress then
            BRP_MessageBox L_SingleSubmit_ErrorMessage
            exit sub
        else
            g_nInProgress = 1
            document.all.Submit.disabled       = 1
            document.all.Cancel.disabled       = 0
        end if

        '
        ' Disable all fields so they cannot be changed
        '
        document.all.BugReportingInputFieldsTable.style.display = "none"
        document.all.BugReportingHeadingTable.style.cursor      = "wait"
        document.all.BugReportingSubmittingTable.style.cursor   = "wait"
        document.all.IncidentFilename.disabled  = True
        document.all.SubmitIncidentNow.disabled = True
        document.all.SaveIncidentNow.disabled   = True


        '
        ' Start data collection
        '
        Call CollectData()

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_CleanupAfterCancelUpload()

        g_nInProgress = 0
        document.all.Submit.disabled       = 0
        document.all.Cancel.disabled       = 1

        '
        ' Enable all fields so they cannot be changed
        '
        document.all.BugReportingInputFieldsTable.style.display = ""
        document.all.BugReportingHeadingTable.style.cursor      = "auto"
        document.all.BugReportingSubmittingTable.style.cursor   = "auto"

        document.all.IncidentFilename.disabled  = False
        document.all.SubmitIncidentNow.disabled = False
        document.all.SaveIncidentNow.disabled   = False

        document.all.Submit.focus

    end sub
'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function BRP_Working()

        if g_nInProgress then
            BRP_Working = True
        else
            BRP_Working = False
        end if

    end function

'------------------------------------------------------------------------------
'
' check if a file exists in the list
'
'------------------------------------------------------------------------------
    function AlreadyExist(src, filename)

        Dim AddFilesCount
        Dim AddFilesIndex

        AlreadyExist = FALSE

        AddFilesCount = src.length

        for AddFilesIndex = 0 to (AddFilesCount - 1)
            if 0 = StrComp(src.Options(AddFilesIndex).text, filename) then
                AlreadyExist = TRUE
                exit for
            end if
        next
    end function
'------------------------------------------------------------------------------
'
' delete an item from the list
'
'------------------------------------------------------------------------------

   function DelListElement2(origin, filename)
        Dim FilesCount
        Dim FilesIndex

        DelListElement2 = FALSE

        FilesCount = origin.Options.length

        if ( 0 = FilesCount )  then
            exit function
        end if

        for FilesIndex = 0 to (FilesCount - 1)
            if 0 = StrComp(origin.Options(FilesIndex).value, filename) then
                origin.Options.remove(FilesIndex)
                DelListElement2 = TRUE
                exit for
            end if
        next 
    end function

'------------------------------------------------------------------------------
'
' add a unique item to the list
'
'------------------------------------------------------------------------------

    function AddListElement2(origin,filename)

        Dim iFound
        Dim FilesCount
        Dim FilesIndex
        Dim NewOption

        AddListElement2 = FALSE
        FilesCount = origin.Options.length

        iFound = FALSE

        for FilesIndex = 0 to (FilesCount - 1)
            if 0 = StrComp(origin.Options(FilesIndex).value, filename) then
                iFound = TRUE
                exit for
            end if
        next 

        if not iFound then
            set NewOption = document.createElement("OPTION")
            NewOption.text  = filename
            NewOption.value = filename
            origin.options.add(NewOption)
        end if

    end function



'------------------------------------------------------------------------------
'
' Add a file to the list
'
'------------------------------------------------------------------------------
    sub BRP_ListAddFileForUpload()

        Dim oFS                 ' File System Object
        Dim szFileName
        Dim AddFilesIndex
        Dim fAlreadyExists

        const L_FileDoesntExist_ErrorMessage = "That file does not exist."

        '
        ' If a file is selected add this to the list
        '
        if document.all.AdditionalFile.value = "" Then
            BRP_MessageBox L_NeedFilename_ErrorMessage
            document.all.AdditionalFile.focus
            exit sub
        end if

        '
        ' Remove leading/trailing spaces
        '
        szFileName = removeLeadingSpace(document.all.AdditionalFile.value)

        fAlreadyExists = LIST_checkIfExists(szFileName)
       
        if fAlreadyExists then
            BRP_MessageBox document.all.AdditionalFile.value & L_FileAlreadySelected_ErrorMessage
            document.all.AdditionalFile.focus
            exit sub
        end if



        
        Set oFS = CreateObject("Scripting.FileSystemObject")

        If NOT oFS.FileExists(szFileName) Then
            BRP_MessageBox L_FileDoesntExist_ErrorMessage & _
                           "(" & szFileName & ")"
            document.all.AdditionalFile.focus
            exit sub
        end if

    
         Call LIST_addElement(szFileName)
         document.all.AdditionalFile.focus

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_ListRemoveFileForUpload()

        const L_RemoveSelectFile_ErrorMessage = "Please select a file to be removed."
        const L_NoFilesToRemove_ErrorMessage  = "There are no files that can be removed."

        if document.all.AdditionalFilesScroll_List_UL.childNodes.length = 0 then
           Call BRP_MessageBox(L_NoFilesToRemove_ErrorMessage)
           exit sub
        end if

        Call LIST_deleteSelectedElement(L_RemoveSelectFile_ErrorMessage)
        document.all.RemoveFile.focus 

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub CorrectBetaID()

        Dim szName, period
        '
        ' Remove anything after a .
        '
        period = instr(window.event.srcElement.value,".")
        if period <> 0 then
            szName = left(window.event.srcElement.value, period-1)
            window.event.srcElement.value = left(window.event.srcElement.value, period-1)
        end if
    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    function CreateNameCABInternal(szName)

        Dim szName1, szName2

        '
        ' Clean title
        '
        szName = removeLeadingSpace(szName)
        szName = removeTrailingSpace(szName)
        szName = validateFilename(szName,"_")

        szName  = g_SettingsLastPath & "\" & szName & ".cab"

        document.all.IncidentFilename.value = szName

        CreateNameCABInternal = TRUE

    end function

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub CreateNameCAB(limit)
        ValidateTextLength(limit)
        CreateNameCABInternal(window.event.srcElement.value)

    end sub
'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub CorrectNameCAB()

        Dim szName, szFileName, period, slash

        '
        ' Remove leading/trailing spaces
        '
        szFileName = window.event.srcElement.value

        szFileName  = removeLeadingSpace(window.event.srcElement.value)
        szFileName  = removeTrailingSpace(szFileName)

        '
        ' Add the .cab extension and only use the last period
        '
        period = instrrev(szFileName,".")
        if period <> 0 then
            szName  = left(szFileName, period-1)
            szNameR = right(szFileName, len(szFileName)-period)
            if szName = "" then
                window.event.srcElement.value = "bugdata.cab"
            else
                if szNameR = "cab" then
                    '
                    ' Its OK for now
                    '
                else
                    szFileName = szFileName & ".cab"
                end if
            end if
        else
            if szFileName = "" then
                szFileName = "bugdata" & ".cab"
            else
                slash = instrrev(szFileName,"\")
                if slash <> 0 then
                    szNameR    = right(szFileName, len(szFileName)-slash)
                    if szNameR = "" then
                        szFileName = szFileName & "bugdata.cab"
                    else
                        szFileName = szFileName & ".cab"
                    end if
                else
                    szFileName = szFileName & ".cab"
                end if
            end if
        end if

        '
        ' validate filename and append validated file name
        '
        slash = instrrev(szFileName,"\")
        if slash <> 0 then
            szNameR    = right(szFileName, len(szFileName)-slash)
            szNameR    = validateFileName(szNameR,"_")
            szFileName = left(szFileName,slash-1)
            szFileName = szFileName & "\" & szNameR
        else
            szFileName = validateFileName(szFileName,"_")
        end if

        window.event.srcElement.value = szFileName

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_InitializeAll()

        Const ForReading = 1, ForWriting = 2

        const L_InitializeAll_ErrorMessage   = "An error occurred when initializing bug reporting on your computer."
        const L_InitFile_FileName            = "brp_init.ini"

        Dim oFS, oDataFile
        Dim fInitialize

        fInitialize = True

        on error resume next

        Err.Clear
        Set oFS = CreateObject("Scripting.FileSystemObject")
        if Err.number <> 0 then
            Call BRP_MessageBox(L_InitializeAll_ErrorMessage)
            exit sub
        end if

        if ( oFS.FileExists( GetVendorPath & "\" & L_InitFile_FileName )) then

            '
            ' Read current version from ini file and if older then do init
            '
            Set oDataFile = oFS.OpenTextFile((GetVendorPath & "\" & L_InitFile_FileName), ForReading)
            szIniVersion  = oDataFile.ReadLine
            oDataFile.Close

            nBrpVer = CInt(L_BRPBuild_Version)
            nIniVer = CInt(szIniVersion)

            '
            ' If bug reporting and ini file have same version then its OK
            ' else just initialize
            '
            if nBrpVer = nIniVer then
                fInitialize = False
            else
                fInitialize = True
            end if

        end if

        if fInitialize = True then
            '
            ' Write current version to bug reporting ini file
            '
            Set oDataFile = oFS.CreateTextFile((GetVendorPath & "\" & L_InitFile_FileName), True)
            oDataFile.Write L_BRPBuild_Version
            oDataFile.Close
        end if

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_SetInterfaceBasedOnDefaults()

        Dim oFS                 ' File System Object

        const L_DataFile_FileName            = "\bugdata.cab"
        const L_Kernel_Message               = "Kernel"
        const L_SomeApp_Message              = "Some Application"
        const L_Crashed_Message              = " Crashed"
        const L_Description_Message          = " crashed."
        const L_Expected_Message             = " should not crash."
        const L_CrashDumpFileMissing_ErrorMessage = "CrashDumpFile is missing"
        const L_CrashRepro_Message           = "[Repro steps will help us diagnosing the problem]"

        on error resume next
        Err.Clear

        '
        ' Set defaults which are stored
        '
        
        document.all.BetaID.value              = g_SettingsBetaId
		document.all.Emailaddr_Input.value	   = g_SettingsEmail
	
		if g_SettingsSKU <> "" Then
			document.all.SKU.value				   = g_SettingsSKU
		end if
		
		if g_SettingsUpgrad <> "" Then
			document.all.upgrade.value			   = g_SettingsUpgrade
		end if
		
        document.all.IncidentFilename.value    = g_SettingsLastPath & L_DataFile_FileName
        document.all.CollectOk.checked         = g_SettingsShareInfo
        document.all.SubmitIncidentNow.checked = g_SettingsSubmitNow
        document.all.SaveIncidentNow.checked   = g_SettingsSaveToDisk

        if Len(g_CrashDumpFile) > 0 then
            '
            ' we are invoked by a fault handler
            '
            document.all.Severity.value         = "1" 'we need to add one more type for BSOD

            if Len(g_CrashApp) <= 0 then
                '
                ' in case g_CrashApp is blank
                '
                if g_KernelCrash then
                    g_CrashApp = L_Kernel_Message
                else
                    g_CrashApp = L_SomeApp_Message
                end if
            end if
            document.all.Title.value               = g_CrashApp & L_Crashed_Message
            Call CreateNameCABInternal(document.all.Title.value)

            document.all.Description.value         = g_CrashApp & L_Description_Message
            document.all.ExpectedBehavior.value    = g_CrashApp & L_Expected_Message
            document.all.Area.value                = "Other"
            document.all.Reproducibility.value     = "Sometimes"
            document.all.StepsToRepro.value        = L_CrashRepro_Message

            '
            ' add file to the attachment list
            '
            Set oFS = CreateObject("Scripting.FileSystemObject")
            if Err.number <> 0 then
                Call BRP_MessageBox(L_InitializeAll_ErrorMessage)
                exit sub
            end if
            if oFS.FileExists( g_CrashDumpFile ) then
                Call LIST_addElement(g_CrashDumpFile)

            else
                '
                ' for debugging only. Will take it out once fault handler is code complete
                '
                Call BRP_MessageBox(L_CrashDumpFileMissing_ErrorMessage & ": " & g_CrashDumpFile)
            end if
            '
            'for debugging only
            '
            'Call BRP_MessageBox("crashdump: " & g_CrashDumpFile & " crashapp: " & g_Crashapp & " bsod:" & cint(g_kernelcrash) & " deldump: " & cint(g_deletecrashdump))
            '
        end if

    end sub
'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_WriteIniFile()

        Const ForReading = 1, ForWriting = 2

        const L_InitializeIni_ErrorMessage   = "An error occurred when initializing bug reporting on your computer."
        const L_WIniFile_FileName            = "brp_settings.ini"

        Dim oFS, oDataFile
        Dim szTemp, nTemp, slash

        on error resume next

        Err.Clear
        Set oFS = CreateObject("Scripting.FileSystemObject")
        if Err.number <> 0 then
            exit sub
        end if

        '
        ' Create ini file
        '
        Set oDataFile = oFS.CreateTextFile((GetVendorPath & "\" & L_WIniFile_FileName), True)

        oDataFile.Write document.all.BetaID.value & vbCrLf
        oDataFile.Write document.all.Emailaddr_Input.value & vbCrLf
		oDataFile.Write document.all.SKU.value & vbCrLf
		oDataFile.Write document.all.upgrade.value & vbCrLf
        szTemp = document.all.IncidentFilename.value
        slash = instrrev(szTemp,"\")
        if slash <> 0 then
            szTemp = left(szTemp,slash-1)
            oDataFile.Write szTemp & vbCrLf
        else
            oDataFile.Write GetSystemDrivePath() & vbCrLf
        end if

        nTemp = 0
        if document.all.CollectOk.checked then
            nTemp = 1
        end if
        oDataFile.Write nTemp & vbCrLf

        nTemp = 0
        if document.all.SubmitIncidentNow.checked then
            nTemp = 1
        end if
        oDataFile.Write nTemp & vbCrLf

        nTemp = 0
        if document.all.SaveIncidentNow.checked then
            nTemp = 1
        end if
        oDataFile.Write nTemp & vbCrLf

        '
        ' Close file
        '
        oDataFile.Close

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_CleanCrashDump()
        Dim oFS

        On Error Resume Next
        Err.Clear

	    if Len(g_CrashDumpFile) > 0 AND g_DeleteCrashDump then
            Set oFS = CreateObject("Scripting.FileSystemObject")
            if Err.number <> 0 then
                Call BRP_MessageBox(L_InitializeAll_ErrorMessage)
                exit sub
            end if

            call oFS.DeleteFile(g_CrashDumpFile, TRUE)
            '
            ' end of bug filing, reset the global variable
            '
        end if
        g_DeleteCrashDump = FALSE
        g_CrashDumpFile   = ""
        g_CrashApp        = ""
        g_KernelCrash     = FALSE

    end sub
'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_ReadIniFile()

        Const ForReading = 1, ForWriting = 2

        const L_IniFile_FileName             = "brp_settings.ini"
        const L_BugReport_FileName           = "whistler_bugs"

        Dim oFS, oDataFile
        Dim szTemp, nTemp
        Dim szHRef
        Dim nQueryStr, nQueryStart
        Dim QueryStrings

        on error resume next
        Err.Clear

        Set oFS = CreateObject("Scripting.FileSystemObject")
        if Err.number <> 0 then
            exit sub
        end if

        g_SettingsBetaId     = ""
        g_SettingsLastPath   = GetSystemDrivePath() & "\" & L_BugReport_FileName
        g_SettingsShareInfo  = True
        g_SettingsSubmitNow  = True
        g_SettingsSaveToDisk = True

        Call BRP_SetInterfaceBasedOnDefaults()

        if ( oFS.FileExists( GetVendorPath & "\" & L_IniFile_FileName )) then

            '
            ' Read current version from ini file and if older then do init
            '
            Set oDataFile = oFS.OpenTextFile((GetVendorPath & "\" & L_IniFile_FileName), ForReading)
            if Err.number <> 0 then
                exit sub
            end if
            '
            ' Read beta id
            '
            
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            g_SettingsBetaId = CDbl(szTemp)
            if g_SettingsBetaId < 0 OR g_SettingsBetaId > 2147483647 then
                g_SettingsBetaId = ""
            end if
            '
            ' Read Email Addr.
            '
            Err.Clear
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            g_SettingsEmail = szTemp
            if g_SettingsEmail = ""  or len(g_SettingsEmail) < 6 OR (instr(g_SettingsEmail,"@") = 0) or (instr(g_SettingsEmail,".") = 0) then
                g_SettingsEmail = ""
            end if
            '
            ' Read SKU.
            '
            Err.Clear
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            g_SettingsSKU = szTemp
            
            '
            ' Read upgrade.
            '
            Err.Clear
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            g_SettingsUpgrade = szTemp
            
            
            '
            ' Read last path
            '
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            if oFS.FolderExists( szTemp ) then
                g_SettingsLastPath = szTemp
            end if
            '
            ' Read share info
            '
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            g_SettingsShareInfo = CBool(szTemp)
            '
            ' Read submit now
            '
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            g_SettingsSubmitNow = CBool(szTemp)
            '
            ' Read save to disk
            '
            szTemp = oDataFile.ReadLine
            if Err.number <> 0 then
                oDataFile.close
                Call BRP_SetInterfaceBasedOnDefaults()
                exit sub
            end if
            g_SettingsSaveToDisk = CBool(szTemp)

            '
            ' Close file
            '
            oDataFile.Close

        end if

        g_CrashApp           = ""
        g_KernelCrash        = FALSE
        g_CrashDumpFile      = ""
        g_DeleteCrashDump    = FALSE

        '
        ' when the bug reporting page is invoked as:
        ' hcp://CN=Microsoft Corporation,L=Redmond,S=Washington,C=US/bugrep.htm?_
        '    CrashApp=Microsoft Word&DumpFile=d:\temp\common files\t.dmp&bsod=1&deldump=1
        ' href contains:
        ' hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/bugrep.htm?_
        '    CrashApp=Microsoft%20Word&DumpFile=d:\temp\common%20files\t.dmp&bsod=1&deldump=1
        '
        szHRef = LCase(window.location.href)
        nQueryStart = InStr(1, szHRef, "?", 1)
        if (nQueryStart > 1) then
            szHRef = Mid(szHRef, nQueryStart + 1)
            QueryStrings = Split(szHRef, "&", -1, 1)
            '
            ' check the query strings
            '
            for each QueryStr in QueryStrings
                nQueryStr = InStr(1, QueryStr, "dumpfile=", 1)
                if (nQueryStr >= 1) then
                    '
                    ' found DumpFile
                    '
                    nQueryStr = nQueryStr + len("dumpfile=")
                    g_CrashDumpFile = createUnEscapedString(Mid(QueryStr, nQueryStr))
                else
                    nQueryStr = InStr(1, QueryStr, "crashapp=", 1)
                    if (nQueryStr >= 1) then
                        '
                        ' found CrashApp
                        '
                        nQueryStr = nQueryStr + len("crashapp=")
                        g_CrashApp = createUnEscapedString(Mid(QueryStr, nQueryStr))
                    else
                        nQueryStr = InStr(1, QueryStr, "bsod=", 1)
                        if (nQueryStr >= 1) then
                            '
                            ' found BSOD
                            '
                            nQueryStr = nQueryStr + len("bsod=")
                            if ("1" = Mid(QueryStr, nQueryStr)) then
                                g_KernelCrash = TRUE
                            else
                                g_kernelCrash = FALSE
                            end if
                        else
                            nQueryStr = InStr(1, QueryStr, "deldump=", 1)
                            if (nQueryStr >= 1) then
                                '
                                ' found deldump
                                '
                                nQueryStr = nQueryStr + len("deldump=")
                                if ("1" = Mid(QueryStr, nQueryStr)) then
                                    g_DeleteCrashDump = TRUE
                                else
                                    g_DeleteCrashDump = FALSE
                                end if
                            end if
                        end if
                    end if
                end if
            next
        end if

        Call BRP_SetInterfaceBasedOnDefaults()


    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_OnProblemTypeChange()

    end sub

'------------------------------------------------------------------------------
'
'
'
'------------------------------------------------------------------------------
    sub BRP_OnAreaChange()

    Dim szArea

    on error resume next

    szArea = document.all.Area.value

    Select Case szArea
        case "Application Game Compatiblity", "Display Video Multimonitor", "Hardware Drivers PlugAndPlay USB", "Multimedia DirectX DVD Cameras"
             document.all.DirectXInfo.style.display = ""
             call DelListElement2(document.all.ActualFiles_List,"%windir%\system.dat")
             call DelListElement2(document.all.ActualFiles_List,"%windir%\user.dat")
             call DelListElement2(document.all.ActualFiles_List,"%windir%\classes.dat")
        case "Setup"
             document.all.DirectXInfo.style.display = "none"
             call AddListElement2(document.all.ActualFiles_List.options,"%windir%\system.dat")
             call AddListElement2(document.all.ActualFiles_List.options,"%windir%\user.dat")
             call AddListElement2(document.all.ActualFiles_List.options,"%windir%\classes.dat")
        case Else
             document.all.DirectXInfo.style.display = "none"
             call DelListElement2(document.all.ActualFiles_List,"%windir%\system.dat")
             call DelListElement2(document.all.ActualFiles_List,"%windir%\user.dat")
             call DelListElement2(document.all.ActualFiles_List,"%windir%\classes.dat")
    end select
    end sub
</script>

<SCRIPT LANGUAGE="VBScript" FOR=window EVENT=onload>

    const L_BugReportVerStr_Message  = "Bug Reporting Page Version &nbsp;"

    on error resume next
    '
    ' Set page version
    '
    document.all.BRP_VersionText.innerHTML = L_BugReportVerStr_Message & L_BRP_Version & L_BRPBuild_Version

    '
    ' Initialize all
    '
    Call BRP_InitializeAll()

    Err.Clear
    Set oSysInfo = CreateObject("PCHealth.BugRepSysInfo")
    if Err.number = 0 then
        document.all.OS_Name.innerHTML     = "Windows Whistler"
        document.all.OS_Version.innerHTML  = oSysInfo.GetOSVersionString
        document.all.OS_Language.innerHTML = oSysInfo.GetLanguageID
        document.all.OS_UserLCID.innerHTML = oSysInfo.GetUserDefaultLCID
        document.all.OS_SysACP.innerHTML   = oSysInfo.GetActiveCP

        Call BRP_SetOSBuild(oSysInfo.GetOSVersionString)

    end if

    Err.Clear

    '
    ' Read initialization file
    '
    Call BRP_ReadIniFile()

    '
    ' Set focus to betaid after page load
    '
    if Len(g_CrashDumpFile) > 0 then
        '
        ' we are invoked by a crash handler
        '
        document.all.Submit.focus
    else
        document.all.BetaID.focus
    end if

    '
    ' CODEWORK:
    ' bug#102991: pchealth.DestinationReachable always reports FALSE, even though IE
    ' connects to www.microsoft.com without any problem. Once bug#102991 is fixed, the following
    ' three lines need to be uncommented.
    '
    'if NOT pchealth.DestinationReachable(g_TestingURL) then
    '    Call BRP_MessageBox(L_NoConnection1_ErrorMessage & vbNewLine & vbNewLine & L_NoConnection2_ErrorMessage)
    'end if

</SCRIPT>
<SCRIPT LANGUAGE="JavaScript">
    function Beta_GetPaste()
     {
     var sPasteContents  = window.clipboardData.getData("Text");
     var bResult;
     var L_BetaIDPasteError_Message = "Beta ID must be a number.";
     bResult = Beta_CheckNumeric(sPasteContents);
      if(bResult == false)
       {
        BRP_MessageBox(L_BetaIDPasteError_Message);
        return false;
       }
     } 

    function Beta_CheckNumeric(strContents)
     {
     var NumStr = "0123456789";
     var i;
     var length = strContents.length;
    for(i = 0 ; i < length;i++)
     {
      if(-1 == NumStr.indexOf(strContents.charAt(i)))
         {
           return false;
         }
     }
  }
</script>



<script language=JavaScript>

    //
    // UPL - Upload handler
    // DC  - Data collection handler
    // CAB - Cab file creation handler
    //

    var DCHandlerEnabled  = 0;
    var UPLHandlerEnabled = 0;
    var CabHandlerEnabled = 0;

    //
    // Check if machine data stream is not NULL given a data collection object
    //
    function IsMachineDataValid(ptrDc)
    {

        var stream = ptrDc.MachineData_GetStream() ;

        if ( stream != null ) {
            return true ;
        }
        else
            return false ;
    }

    //
    // Check if machine history data stream is not NULL given a data collection object
    //
    function IsHistoryDataValid(ptrDc)
    {

        var stream = ptrDc.History_GetStream() ;

        if ( stream != null ) {
            return true ;
        }
        else
            return false ;
    }

    //
    // Create escaped string
    //
    function createEscapedString(str)
    {

        return escape(str);

    }

    //
    // Create unescaped string
    //
    function createUnEscapedString(str)
    {

        return unescape(str);

    }

    function dc_onStatusChangeJS(DataCollectionPtr, status)
    {
        if (DCHandlerEnabled == 1) {
            dc_onStatusChange(DataCollectionPtr, status);
        }
    }

    function dc_onProgressJS(DataCollectionPtr, done, total)
    {
        if (DCHandlerEnabled == 1) {
            dc_onProgress(DataCollectionPtr, done, total);
        }
    }

    function dc_onCompleteJS(DataCollectionPtr, hresult)
    {
        if (DCHandlerEnabled == 1) {
            dc_onComplete(DataCollectionPtr, hresult);
        }
    }

    function RegisterDCHandlers()
    {
        DCHandlerEnabled   = 1;
        g_oDc.onStatusChange = dc_onStatusChangeJS;
        g_oDc.onProgress     = dc_onProgressJS;
        g_oDc.onComplete     = dc_onCompleteJS;
    }

    function UnregisterDCHandlers()
    {
        DCHandlerEnabled = 0;
    }


    function upl_onStatusChangeJS(UploadJobPtr, status)
    {
        if (UPLHandlerEnabled == 1) {
            upl_onStatusChange(UploadJobPtr, status);
        }
    }

    function upl_onProgressChangeJS(UploadJobPtr, currentSize, totalSize)
    {
        if (UPLHandlerEnabled == 1) {
            upl_onProgressChange(UploadJobPtr, currentSize, totalSize);
        }
    }

    function RegisterUPLHandlers()
    {
        UPLHandlerEnabled     = 1;
        g_oUpl.onStatusChange   = upl_onStatusChangeJS;
        g_oUpl.onProgressChange = upl_onProgressChangeJS;
    }

    function UnregisterUPLHandlers()
    {
        UPLHandlerEnabled = 0;
    }


    function cab_onCompleteJS(CabPtr, hresult)
    {
        if (CabHandlerEnabled == 1) {
            cab_onComplete(CabPtr, hresult)
        }
    }

    function RegisterCabHandler()
    {
        CabHandlerEnabled = 1;
        g_oCab.onComplete = cab_onCompleteJS;
    }

    function UnregisterCabHandler()
    {
        CabHandlerEnabled = 0;
    }

    function UnloadHandler()
    {
       CancelUpload();
    }

    function UnloadHandlerMsg()
    {

        var L_CancelUpload1_Message = "Currently collecting and uploading bug report information.\n";
        var L_CancelUpload2_Message = "Navigating away will cancel the current collection/upload.";
        if ( BRP_Working() ) {
           return ( L_CancelUpload1_Message + L_CancelUpload2_Message) ;
        }
        else
           return ;
    }

</script>

<!--

  New stuff in bug reporting page

-->

<STYLE TYPE="text/css">
.styleExpandable
{
    COLOR: blue;
    CURSOR: hand ;
    FONT: bold 10pt Trebuchet MS, Tahoma, arial
}
.styleExpanded
{
    COLOR:black;
    FONT: bold 8pt Trebuchet MS, Tahoma, arial
}
.styleCollapsed
{
    DISPLAY: none
}
</STYLE>

<SCRIPT LANGUAGE="JavaScript">
   function LIST_addElement(src)
    {
        var oEntry = document.createElement("LI");
        var oList  = document.all.AdditionalFilesScroll_List_UL ;

        oEntry.innerHTML = "\<DIV DIR=LTR NOWRAP TABINDEX=0\>" + src + "\<\/DIV\>";

        //
        // Append element to list
        //
        oList.appendChild(oEntry);
    }

    function LIST_deleteSelectedElement(errmsg)
    {
        var oList   = document.all.AdditionalFilesScroll_List_UL ;
        var oNodes  = oList.childNodes ;
        var bElemDel= false ;

        if ( oNodes.length > 0 ) {
           for ( i = 0 ; i < oNodes.length ; i++ ) {
               if ( oNodes.item(i) == oList.selected ) {
                   oNodes.item(i).removeNode(true);
                   bElemDel=true ;
                   break ;
               };
           }
           if (bElemDel == false) 
           {
               BRP_MessageBox(errmsg);
           }
       };
    }

    function LIST_checkIfExists(src)
    {
        var oList   = document.all.AdditionalFilesScroll_List_UL ;
        var oNodes  = oList.childNodes ;
        var fExists = false ;
        if ( oNodes.length > 0 ) {
           for ( i = 0 ; i < oNodes.length ; i++ ) {
               if ( oNodes.item(i).innerText == src )
               {
                  fExists = true ;
                  break ;
               };
           }
       };
       return fExists ;
    }

    function LIST_fnOnSelectStart()
    {

        window.event.returnValue = false
        window.event.cancelBubble = true

        return false ;

    }

    function LIST_checkParent(src, tag) {
       while ("HTML" != src.tagName) {
          if (tag == src.tagName)
             return src;
          src = src.parentElement;
       }
       return null;
    }

    function LIST_selectItem(list) {

       var el = LIST_checkParent(event.srcElement, "LI");

       if ( !el )
           return ;

       if ("LI" == el.tagName) {
          if (null != list.selected)
             list.selected.className = "";
          if (list.selected != el) {
             el.className = "selected";
             list.selected = el;
          }
          else
             list.selected = null;
       }

    }

    function LIST_selectItemKey(list)
    {

        if ( event.keyCode == 13 || event.keyCode == 32 ) {
            window.event.returnValue=true;
            window.event.cancelBubble=true;
            LIST_selectItem(list);
        }
        else {
            event.returnValue=false;
        };
    }


  
</Script>

<SCRIPT LANGUAGE="JavaScript">

    //
    // Generic display code for collapsing outlines
    //
    function outliner() {
       // Get Child element.
       var child =
          document.all[event.srcElement.getAttribute("child",
             false)];
       // If the child element exists, expand or collapse it.
       if (null != child)
          child.className = child.className == "styleCollapsed" ?
             "styleExpanded" : "styleCollapsed";
    }

    //
    // Add an element to the list box with origin being the
    // starting select element in the DOM
    //
    function addListElement(origin,text,value)
    {

        var el = document.createElement("OPTION");
        el.text  = text;
        el.value = value;
        origin.options.add(el);

    }

    //
    // Delete an element from a single select list and if no
    // element found then show the error message, if multiple
    // items are selected the code exists after the first instance
    //
    function delListElement(origin,errmsg)
    {

        var iRemove = 0 ;
        var iFound  = false ;

        if ( origin.length == 0 ) {
            return ;
        }

        for ( var iLoop = 0 ; iLoop < origin.length ; iLoop++ ) {
            if ( origin[iLoop].selected ) {
                iRemove = iLoop ;
                iFound  = true ;
                break ;
            }
        }

        if ( iFound ) {
            origin.remove(iRemove);
        }
        else {
            BRP_MessageBox(errmsg);
        }
    }

    //
    // Generic display code for expanding text area sizes
    //
    function increaseRows() {
       // Get Child element.
       var expand_child =
          document.all[event.srcElement.getAttribute("expand_child",
             false)];
       // If the expand_child element exists, expand or collapse it.
       if (null != expand_child) {
          expand_child.rows = Math.min(expand_child.rows_max,
                                       (expand_child.rows + 3 ));
       }

    }

    //
    // Generic display code for expanding text area sizes
    //
    function decreaseRows() {
       // Get Child element.
       var expand_child =
          document.all[event.srcElement.getAttribute("expand_child",
             false)];
       // If the expand_child element exists, expand or collapse it.
       if (null != expand_child) {
          expand_child.rows = Math.max(expand_child.rows_min,
                                       (expand_child.rows - 3 ));
       }

    }

    //
    // strip leading spaces
    //
    function removeLeadingSpace(str)
    {

        var text = str.replace(/^\s*/,"");
        return text;

    }


    //
    // strip leading spaces
    //
    function removeTrailingSpace(str)
    {

        var text = str.replace(/\s*$/,"");
        return text;
    }


    //
    // change quotations to single quotes (LocStudio has problems with this)
    //
    function replaceQuotes(str)
    {

        var text = str.replace(/\"/gi,"'");   // "
        return text;
    }

    //
    // return valid filename
    //
    function validateFilename(str,rep)
    {

       var st1 = str.replace(/:|>|<|\||\?|\*|\\|\/|\"/g,rep);         // : < > | ? * \ / "

       return st1;
    }

    function escapeHTMLTag(str)
    {

       var st11, stl2
       stl1 = str.replace(/</g,"&lt;");
       st12 = stl1.replace(/>/g,"&gt;");
       return st12;
    }

</SCRIPT>

</HEAD>

<!--

  Body of the document for bug reporting page

-->
<BODY aLink=#000080 bgColor=#ffffff language=JavaScript leftMargin=0 
link=#000080 onbeforeunload="return UnloadHandlerMsg();" onclick=outliner(); 
onunload=UnloadHandler(); topMargin=0 vLink=#000080 
MARGINHEIGHT="0" MARGINWIDTH="0"><!--

  Bug reporting span of the page

-->
<DIV id=spanEnterBug>
<FORM action=probrep.asp id=form1 method=post name=form1>
<TABLE border=0 borderColor=#ff0000 cellPadding=0 cellSpacing=0 width=600>
  <TBODY>
  <TR>
    <TD align=left id=Heading_Data_Cell vAlign=top>
      <TABLE border=0 id=BugReportingHeadingTable>
        <TBODY>
        <TR>
          <TD>
            <P align=left id=Page_Heading_Paragraph1>
            <DIV class=PageHeading id=Page_Heading_Text 
            >Report a bug to the Windows Whistler Beta team. 
            </DIV><BR>
            <DIV class=Instructions id=Welcome_Instructions_Text 
            >Welcome to the Whistler Bug Reporting page. 
            Submitting good bug reports is a vital part of testing Windows 
            Whistler. Good bug reports are clear, concise, and descriptive. 
            Before&nbsp;you file a bug we ask that you visit our web site at <A 
            href="http://windowsbeta.microsoft.com" 
            >http://windowsbeta.microsoft.com</A> to register at 
            the site and learn about the resources available to you during the 
            beta. <br><br></DIV>
			
			<DIV id="Comments_info_Div">
			<strong>If your feedback is a suggestion or comment about the UI or an error message, 
			consider using the "Comments?" link at the top of each window instead of filing a problem 
			report.</strong><BR><BR>
			
			</div>
			
			<!--
               <DIV id="Welcome_BRP_Updates">
                 To download updates for the bug reporting application visit
                 <a href="http://winbeta.microsoft.com/bugrep">winbeta.microsoft.com/bugrep</a>.
                 <br>
                 <br>
               </DIV>
               -->
            <P></P>
            <P align=left id=Page_Heading_Paragraph2>
            <div class=Instructions id=Welcome_ThankYou_Text 
            >Thanks for your feedback! </DIV>
            <P></P>
            <p>
            <div class=Instructions id=Welcome_Closing_Text 
            >&nbsp;- The Windows Whistler Beta Team </DIV>
            <P></P>
            <p align=right id=BetaID_Paragraph 
            valign="center"></P></TD></TR></TBODY></TABLE>
      <TABLE border=0 id=BugReportingInputFieldsTable>
        <TBODY><!--

  Section I

-->
        <TR>
          <TD align=left id=Space_Cell vAlign=center><IMG alt=Space border=0 id=SpaceImage src="space.gif" width=150 > </TD>
          <TD>&nbsp;</TD></TR>
        <TR>
          <TD colSpan=2>
            <HR>

            <TABLE border=0>
              <TBODY>
              <TR>
                <TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet1 src="star.gif" ></TD>
                <TD class=StepHeading id=Section1_Heading 
                  >Section I: Contact 
              Information</TD></TR></TBODY></TABLE><BR></TD>
        <TR>
          <td align=right id=BetaID_Cell vAlign=center>
            <div class=ItemHeadingSmall id=BetaID_Label 
            >Beta ID :</DIV></TD>
          <TD><INPUT class=PlainTextSmall id=BetaID_Input 
            language=JavaScript maxLength=250 name=BetaID onblur=CorrectBetaID() 
            onkeypress="if ((event.keyCode < 48 || event.keyCode > 57)) event.returnValue=false;" 
            onpaste="return Beta_GetPaste();" size=40> 
        </TD></TR>
        <TR>
          <td align=right id=BetaID_Cell vAlign=center>
            <div class=ItemHeadingSmall id=BetaID_Label 
            >Email Address :</DIV></TD>
          <TD><INPUT class=PlainTextSmall 
            id=Emailaddr_Input maxLength=250 name=Emailaddr size=40 
            > </TD></TR><!--

  Section II

-->
        <TR>
          <TD colSpan=2>
            <HR>

            <TABLE border=0>
              <TBODY>
              <TR>
                <TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet2 src="star.gif" ></TD>
                <TD class=StepHeading id=Section2_Heading 
                  >Section II: Issue 
              Information</TD></TR></TBODY></TABLE><BR></TD>
        <TR>
          <TD align=right id=Title_Paragraph>
            <div class=ItemHeadingSmall id=Title_Label 
            >Problem Title:</DIV></TD>
          <TD><INPUT class=PlainTextSmall id=Title_Input 
            maxLength=500 name=Title onblur=CreateNameCAB(200) size=60 
            ></TD></TR>
        <TR>
          <TD align=right id=Title_Example_Spacer></TD>
          <TD bgColor=#ffffd0>
            <div class=PlainTextSmall id=Title_Example><ID 
            id=fooExample1><B 
            >Example:</B></ID> <ID id=fooExampleString1 
            >"Script error instead of printer 
            properties"</ID></DIV></TD></TR>
        <TR>
          <TD align=right id=Severity_Cell>
            <div class=ItemHeadingSmall id=Severity_Label >
            Problem Type:
            </DIV>
          </TD>
          <TD>
          <SELECT class=PlainTextSmall name=Severity onchange=BRP_OnProblemTypeChange()> 
          <OPTION id=Severity_SelectOne selected value=NA>=== Select One ===</OPTION> 
          <OPTION id=Severity_CrashHang value=1 >Crash or Hang</OPTION> 
          <OPTION id=Severity_FuncImpaired value=2>Functionality Impaired</OPTION> 
          <OPTION id=Severity_Cosmetic value=3>Minor / Cosmetic</OPTION> 
          <OPTION id=Severity_Trivial value=4>Trivial</OPTION>
          </SELECT> 
          </TD>
        </TR>
        <TR>
          <TD align=right id=Area_Cell>
            <div class=ItemHeadingSmall id=Area_Label 
            >Area:</DIV>
         </TD>
          <TD><SELECT class=PlainTextSmall name=Area onchange=BRP_OnAreaChange() type="ListBox"> 
              <OPTION id=Area_SelectOne selected value=NA>=== Select One ===</OPTION> 
              <option ID=Admin_tools value="Admin Tools">Administration Tools / Computer Management</OPTION>
              <option ID=Any_Suggestion value="Any Suggestion">Any Suggestion or Wish</OPTION>
              <option ID=App_Game_Compat value="Application Game Compatiblity">Application & Game Compatibility</OPTION>
              <option ID=Bug_REporting value="Bug Reporting Tools Website">Bug Reporting Tools / Web site</OPTION>
              <option ID=Clustering value="Clustering">Clustering</OPTION>
              <option ID=Dial_up_ISDN value="Dial-up ISDN Infrared">Dial-up / ISDN / Infrared</OPTION>
              <option ID=Display value="Display Video Multimonitor">Display / Video / Multi monitor</OPTION>
              <option ID=Help_Docs value="Help Documentation">Help / Documentation</OPTION>
			  <option ID=Fast value="Fast User Switching">Fast User Switching</OPTION>
              <option ID=Fax value="Fax">Fax</OPTION>
              <option ID=Hardware value="Hardware Drivers PlugAndPlay USB">Hardware / Drivers / Plug & Play / USB</OPTION>
			  <option ID=HCT value="WHQL Test">HCT</OPTION>
              <option ID=IE value="IE OE Netmeeting">Internet Explorer / Outlook Express / Netmeeting</OPTION>
              <option ID=Inet_connection_sharing value="Internet Connection Sharing">Internet Connection Sharing</OPTION>
              <option ID=IIS value="Internet Information Server">Internet Information Server</OPTION>
              <option ID=Multimedia value="Multimedia DirectX DVD Cameras">Multimedia / DirectX / DVD / Cameras</OPTION>
              <option ID=Networking_Admin value="Networking - Administration Tool">Networking - Administration Tools</OPTION>
              <option ID=Networking_AD value="Networking - Active DirectoryDNS">Networking - Active Directory / DNS</OPTION>
              <option ID=Networking_FS value="Networking - File Sharing">Networking - File Sharing</OPTION>
              <option ID=Networking_R value="Networking - Routing">Networking - Routing</OPTION>
              <option ID=Networking_H value="Networking - Hardware">Networking - Hardware</OPTION>
              <option ID=Networking_O value="Networking - Other">Networking - Other</OPTION>
              <option ID=Other value="Other">Other</OPTION>
              <option ID=PowerMgmt value="Power Management ACPI">Power Management / ACPI</OPTION>
              <option ID=Printing value="Printing">Printing</OPTION>
              <option ID=Reginal value="Regional Settings">Regional Settings</OPTION>
              <option ID=SDK_DDK value="SDK DDK API">SDK / DDK / API</OPTION>
              <option ID=Security value="Security">Security</OPTION>
              <option ID=Setup value="Setup Upgrade">Setup / Upgrade</OPTION>
              <option ID=Shell value="Shell User Interface">Shell / User Interface</OPTION>
              <option ID=Support_tools value="Support Tools Registry">Support Tools / Registry</OPTION>
              <option ID=Remote_Desktop value="Terminal Services Remote Desktop">Terminal Services / Remote Desktop</OPTION>

              </SELECT>  
        </TD>
        </TR>
        <TR>
          <TD align=right id=Reproducibility_Cell>
            <div class=ItemHeadingSmall id=Reproducibility_Label 
            >This Problem: </DIV></TD>
          <TD>
          <SELECT class=PlainTextSmall name=Reproducibility type="ListBox"> 
          <OPTION id=Reproducibility_Always selected value=Always>Always Happens</OPTION> 
          <OPTION id=Reproducibility_Sometimes value=Sometimes >Sometimes Happens</OPTION> 
          <OPTION id=Reproducibility_Once value=Once>Happened Once</OPTION>
          </SELECT> 
           <id id="and">and</id>
          <SELECT class=PlainTextSmall name=regression type="ListBox"> 
          <OPTION id=regression_SelectOne selected value=NA>=== Select One ===</OPTION> 
          <OPTION id=regression_None value=NoRegression >is new to this build of Windows.</OPTION> 
          <OPTION id=regression_PrevBeta value=PreviousBetaBuild >exists in previous builds of this beta.</OPTION>
          <OPTION id=regression_Win2000 value=FromWin2000 >exists in Windows 2000.</OPTION>
          <OPTION id=regression_WinNT value=FromWinNT >exists in Windows NT.</OPTION>
          <OPTION id=regression_Win9xMe value=FromWin9xMe >exists in Windows 9x or Me.</OPTION>
		  <OPTION id=regression_Win9xMe value=unknown >Don't know.</OPTION>
          
          
          </TD>
       </TR>
        <TR>
          <TD align=right id=sku_Cell>
            <div class=ItemHeadingSmall id=sku_Label 
            >This Windows install is the </DIV></TD>
          <TD>
          <SELECT class=PlainTextSmall name=SKU type="ListBox"> 
          <OPTION id=SKU_SelectOne selected value=NA>=== Select One ===</OPTION> 
          <OPTION id=SKU_Personal value=Personal >Home (Personal) edition</OPTION> 
          <OPTION id=SKU_Professional value=Professional >Professional edition</OPTION>
          <OPTION id=SKU_Server value=Server >Server edition</OPTION>
          <OPTION id=SKU_ADSServer value=ADSServer >Advanced Server edition</OPTION>
          <OPTION id=SKU_64Professional value=64Professional >Windows 2000 64 Professional edition</OPTION>
          <OPTION id=SKU_64Server value=64Server >Windows 2000 64 Server edition</OPTION>
          <OPTION id=SKU_DTCServer value=DTCServer >Windows 2000 Datacenter Server edition</OPTION>                                
          </SELECT> 
          </TD>
       </TR>
       <TR>
          <TD align=right id=upgrade_Cell>
            <div class=ItemHeadingSmall id=upgrade_Label 
            >This install is </DIV></TD>
          <TD>
          <SELECT class=PlainTextSmall name=upgrade type="ListBox"> 
          <OPTION id=upgrade_SelectOne selected value=NA>=== Select One ===</OPTION> 
          <OPTION id=upgrade_not value=NotAnUpgrade >not an upgrade (clean install).</OPTION> 
          <OPTION id=upgrade_Previous value=PreviousBuild >an upgrade from a previous build of this beta.</OPTION>
          <OPTION id=upgrade_Win2000 value=Win2000 >an upgrade from Windows 2000.</OPTION>
          <OPTION id=upgrade_WinNT value=WinNT >an upgrade from Windows NT.</OPTION>
          <OPTION id=upgrade_Win9x value=Win9x >an upgrade from Windows 9x.</OPTION>
          <OPTION id=upgrade_WinMe value=WinMe >an upgrade from Windows Me.</OPTION>
          </SELECT> 
          </TD>
       </TR>
       
        <TR>
          <TD align=right id=Description_Cell vAlign=top>
            <div class=ItemHeadingSmall id=Description_Label 
            >Describe the problem:</DIV></TD>
          <TD vAlign=top>
            <TABLE>
              <TBODY>
              <TR>
                <TD vAlign=top><TEXTAREA class=PlainTextSmall cols=60 id=Description_TextArea name=Description onblur=ValidateTextLength(1250) rows=6 wrap=virtual rows_min="6" rows_max="500"></TEXTAREA> 
                </TD>
                <TD vAlign=top>
                  <TABLE>
                    <TBODY>
                    <TR>
                      <TD><IMG alt="Size down" border=0 id=Description_ContractButton onclick=decreaseRows() src="size_down.gif"  expand_child="Description_TextArea"> </TD></TR>
                    <TR>
                      <TD><IMG alt="Size up" border=0 id=Description_ExpandButton onclick=increaseRows() src="size_up.gif"  expand_child="Description_TextArea"> 
                </TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD id=Filler_Cell1>&nbsp;</TD>
          <TD bgColor=#ffffd0>
            <div class=PlainTextSmall id=Description_Example 
            ><ID id=fooExample2><B 
            >Example:</B></ID> <ID id=fooExampleString2 
            >"I tried to right-click a printer in the 
            Printers folder and got a script error."</ID> </DIV></TD></TR>
        <tr>
          <TD align=right id=ExpectedBehavior_Cell vAlign=top 
          >
            <div class=ItemHeadingSmall id=ExpectedBehavior_Label 
            >What did you expect to happen:</DIV></TD>
          <TD vAlign=top>
            <TABLE>
              <TBODY>
              <TR>
                <TD vAlign=top><TEXTAREA class=PlainTextSmall cols=60 id=ExpectedBehavior_TextArea name=ExpectedBehavior onblur=ValidateTextLength(500) rows=6 wrap=virtual rows_min="6" rows_max="500"></TEXTAREA> 
                </TD>
                <TD vAlign=top>
                  <TABLE>
                    <TBODY>
                    <TR>
                      <TD><IMG alt="Size down" border=0 id=ExpectedBehavior_ContractButton onclick=decreaseRows() src="size_down.gif"  expand_child="ExpectedBehavior_TextArea"> </TD></TR>
                    <TR>
                      <TD><IMG alt="Size up" border=0 id=ExpectedBehavior_ExpandButton onclick=increaseRows() src="size_up.gif"  expand_child="ExpectedBehavior_TextArea"> 
                  </TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE></TD></TR>
        <tr>
          <TD id=Filler_Cell2>&nbsp;</TD>
          <TD bgColor=#ffffd0>
            <div class=PlainTextSmall id=ExpectedBehavior_Example 
            ><ID id=fooExample3><B 
            >Example:</B></ID> <ID id=fooExampleString3 
            >"The context menu should have been 
            displayed."</ID></DIV></TD></TR>
        <TR>
          <TD align=right id=StepsToRepro_Cell vAlign=top 
            ><div class=ItemHeadingSmall 
            id=StepsToRepro_Label>Enter the steps required 
            to reproduce the problem: </DIV></TD>
          <TD vAlign=top>
            <TABLE>
              <TBODY>
              <TR>
                <TD vAlign=top><TEXTAREA class=PlainTextSmall cols=60 id=StepsToRepro_TextArea name=StepsToRepro onblur=ValidateTextLength(1250) rows=6 wrap=virtual rows_min="6" rows_max="500"></TEXTAREA> 
                </TD>
                <TD vAlign=top>
                  <TABLE>
                    <TBODY>
                    <TR>
                      <TD><IMG alt="Size down" border=0 id=StepsToRepro_ContractButton onclick=decreaseRows() src="size_down.gif"  expand_child="StepsToRepro_TextArea"> </TD></TR>
                    <TR>
                      <TD><IMG alt="Size up" border=0 id=StepsToRepro_ExpandButton onclick=increaseRows() src="size_up.gif"  expand_child="StepsToRepro_TextArea"> 
                  </TD></TR></TBODY></TABLE></TD></TD></TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD id=Filler_Cell3>&nbsp;</TD>
          <TD bgColor=#ffffd0>
            <div class=PlainTextSmall id=StepsToRepro_Example 
            ><ID id=fooExample4><B 
            >Example:</B></ID> <ID id=fooExampleString4 
            >"1: From Start menu, choose Settings 2: Choose 
            Printers folder, 3: Right-click on a printer"</ID> 
            </DIV>
            </TD>
        </TR>
            
<!--

  Section III

-->
        <TR>
          <TD colSpan=2>
            <HR>

            <TABLE border=0>
              <TBODY>
              <TR>
                <TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet3 src="star.gif" ></TD>
                <TD class=StepHeading id=Section3_Heading 
                  >Section III: System 
              Information</TD></TR></TBODY></TABLE><BR>
            <TABLE border=0>
              <TBODY>
              <TR>
                <TD class=PlainTextSmall id=OS_NameText 
                  >OS Name</TD>
                <TD class=PlainTextSmall id=OS_Name 
                >&nbsp;</TD></TR>
              <TR>
                <TD class=PlainTextSmall dir=ltr id=OS_VersionText 
                >OS Version</TD>
                <TD class=PlainTextSmall id=OS_Version 
                >&nbsp;</TD></TR>
              <TR>
                <TD class=PlainTextSmall id=OS_LanguageText 
                  >OS Language Codes</TD>
                <TD class=PlainTextSmall id=OS_Parm>
                  <TABLE border=0>
                    <TBODY>
                    <TR>
                      <TD class=PlainTextSmall id=OS_Language 
                      >&nbsp;</TD>
                      <TD>-</TD>
                      <TD class=PlainTextSmall id=OS_UserLCID 
                      >&nbsp;</TD>
                      <TD>-</TD>
                      <TD class=PlainTextSmall id=OS_SysACP 
                        >&nbsp;</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><BR 
            >
            <div class=Instructions id=CollectOk_Text>When 
            you click <b>Submit</B>, detailed information 
            about your system will be collected to help us reproduce your 
            problem.</DIV><br><!--

          Data for list of files shown as an expandable link

          -->
            
            
            <div class=styleExpandable id=CollectedFiles_ExpandLink 
             child="CollectedFiles_List">Display list of files 
            collected</DIV>
            <div class=styleCollapsed id=CollectedFiles_List 
            style="MARGIN-LEFT: 30pt"><SELECT class=PlainTextSmall dir=ltr id=ActualFiles_List size=22 
            style="WIDTH: 300pt"> 
            <OPTION id=File1 value=%systemroot%\ntbtlog.txt >%systemroot%\ntbtlog.txt
            <OPTION id=File2 value=%systemroot%\setupact.log>%systemroot%\setupact.log
            <OPTION id=File3 value=%systemroot%\setupapi.log>%systemroot%\setupapi.log
            <OPTION id=File4 value=%systemroot%\setuperr.log>%systemroot%\setuperr.log
            <OPTION id=File5 value=%systemroot%\setuplog.txt>%systemroot%\setuplog.txt
            <OPTION id=File6 value=%systemroot%\PCHealth\HelpCtr\Config\DataSpec.XML>%systemroot%\PCHealth\HelpCtr\Config\DataSpec.XML
            <OPTION id=File7 value=%systemroot%\repair\setup.log>%systemroot%\repair\setup.log
            <OPTION id=File8 value=%systemroot%\system\sfp\sfplog.txt>%systemroot%\system\sfp\sfplog.txt
            <OPTION id=File9 value=%systemroot%\system32\autoexec.nt>%systemroot%\system32\autoexec.nt
            <OPTION id=File10 value=%systemroot%\system32\config\appevent.evt>%systemroot%\system32\config\appevent.evt
            <OPTION id=File11 value=%systemroot%\system32\config\secevent.evt>%systemroot%\system32\config\secevent.evt
            <OPTION id=File12 value=%systemroot%\system32\config\sysevent.evt>%systemroot%\system32\config\sysevent.evt
            <OPTION id=File13 value=%systemroot%\debug\usermode\userenv.log>%systemroot%\debug\usermode\userenv.log
            <OPTION id=File14 value=%systemroot%\debug\netsteup.log>%systemroot%\debug\netsteup.log
            <OPTION id=File15 value=%systemroot%\debug\dcpromo.log>%systemroot%\debug\dcpromo.log
            <OPTION id=File16 value=%systemdrive%\boot.ini>%systemdrive%\boot.ini
            <OPTION id=File17 value=%systemdrive%\bootex.log >%systemdrive%\bootex.log
            <OPTION id=File18 value=%systemdrive%\sysparse.log >%systemdrive%\sysparse.log
			<OPTION id=File18 value=%systemdrive%\$winnt$.inf >%systemdrive%\$winnt$.inf
            <OPTION id=File19 value=bug_upload_collect.XML>bug_upload_collect.XML<OPTION id=File22 value=bug_upload_nocollect.XML>bug_upload_nocollect.XML
            <OPTION id=File20 value=%temp%\hcupdate.log>%temp%\hcupdate.log
            <OPTION id=File21 value="WMI Logs">WMI Logs</OPTION>
            
            </SELECT> 
            </DIV><br>
            <div class=Instructions id=CollectOk_Input>
            <TABLE>
              <TBODY>
              <TR>
                <TD vAlign=top><input CHECKED 
                  id=CollectOk name=CollectOk type=checkbox 
                ></TD>
                <TD><LABEL for=CollectOk 
                  id=CollectOk_Label style="CURSOR: hand" 
                  >Share this information with 
                  Microsoft.</LABEL> 
                  <DIV id=MS_Privacy>(See Microsoft's <a 
                  href="http://www.microsoft.com/info/privacy.htm" 
                  >privacy policy</A>.) 
            </DIV></TD></TR></TBODY></TABLE></DIV><br>
            <div id=NoCollect_FileList>If the above box is 
            unchecked system information is not collected but files listed above 
            are uploaded with the bug incident. </DIV><br>
            <TABLE align=center border=0 cellPadding=10 id=ExtraFiles_Cell 
            width=600>
              <TBODY>
              <TR>
                <TD bgColor=#d0d0d0><!--

  DirectX team section

-->
                  <div class=Instructions id=DirectXInfo 
                  style="DISPLAY: none; MARGIN-LEFT: 15px">
                  <div id=dxTitle><b 
                  ><id id=dxfoo>DirectX 
                  Diagnostics</ID></B></DIV><br>
                  <div class=Instructions id=DirectXInfoP1 
                  style="MARGIN-LEFT: 30px">In order to 
                  help identify and resolve the problem we need to collect some 
                  additional information using the DirectX Diagnostics tool. 
                  </DIV><br>
                  <div class=Instructions id=DirectXInfoP2 
                  style="MARGIN-LEFT: 30px">To execute this 
                  tool please choose "Run" from the start menu and type 
                  "DXDiag". Once the DirectX Diagnostic Tool is running, choose 
                  "Save All Information". Save the file to a filename <b 
                  >dxdiag.txt</B> in a location that you can 
                  find. </DIV><br>
                  <div class=Instructions id=DirectXInfoP3 
                  style="MARGIN-LEFT: 30px">Then in the <b 
                  >Additional files to collect</B> area of 
                  the bug report, please browse to that directory and select 
                  this file to add. This file will now be uploaded along with 
                  the bug report. </DIV><br>
                  <div class=Instructions id=DirectXInfoP4 
                  style="MARGIN-LEFT: 30px">Thanks - The 
                  DirectX Team </DIV><br></DIV>
                  <DIV></DIV><!--

  System Restore team section

-->
                  <div class=Instructions id=SystemRestoreInfo 
                  style="DISPLAY: none; MARGIN-LEFT: 15px">
                  <div id=srTitle><b 
                  ><id id=srfoo>System 
                  Restore Diagnostics</ID></B></DIV><br>
                  <div class=Instructions id=srInfoP1 style="MARGIN-LEFT: 30px" 
                  >In order to get more information to help 
                  identify and resolve the problem please go to the 
                  %windir%/system/restore directory (%windir% is your windows 
                  directory) and execute the Cabbit tool with the following 
                  syntax: </DIV><pre id=cabbitCommand style="MARGIN-LEFT: 30px">cabbit  srdata.cab</PRE>
                  <div class=Instructions id=srInfoP2 style="MARGIN-LEFT: 30px" 
                  >cabbit.exe will generate a cabfile 
                  containing system restore log files and name it srdata.cab 
                  </DIV><br>
                  <div class=Instructions id=srInfoP3 style="MARGIN-LEFT: 30px" 
                  >Then in the <b 
                  >Additional files to collect</B> area of 
                  the bug report, please browse to the %windir%/system/restore 
                  directory and select this file to add. This file will now be 
                  uploaded along with the bug report. </DIV><br 
                  >
                  <div class=Instructions id=srInfoP4 style="MARGIN-LEFT: 30px" 
                  >Thanks - The PC Health Team 
                </DIV></DIV></TD></TR></TBODY></TABLE><br>
            <div class=Instructions id=AdditionalFilesInfo 
            >Additional files to be submitted with the bug 
            report can be selected using the <B>Browse</B> 
            button and added to the list of files submitted using the <B 
            >Add File</B> button. </DIV><br 
            ></TD></TR><!--

  Additional files to collect

-->
        <TR>
          <TD align=right id=AdditionalFiles_Cell3 vAlign=top 
          >
            <div class=ItemHeadingSmall id=AdditionalFiles_Text 
            >Additional files to collect:</DIV></TD>
          <TD><INPUT class=PlainTextSmall 
            id=AdditionalFile name=AdditionalFile size=50 style="WIDTH: 300pt" 
            type=file> <br>
            <DIV align=left class=stlList id=AdditionalFilesScroll_List 
            >
            <UL id=AdditionalFilesScroll_List_UL 
            onclick=javascript:LIST_selectItem(this); 
            onkeypress=javascript:LIST_selectItemKey(this); 
            onselectstart=javascript:LIST_fnOnSelectStart(); tabIndex=-1 
            ></UL></DIV><BR><BUTTON 
            accessKey=A id=AddFile name=AddFile 
            onclick=BRP_ListAddFileForUpload()><U 
            >A</U>dd File</BUTTON><BUTTON accessKey=R 
            id=RemoveFile name=RemoveFile onclick=BRP_ListRemoveFileForUpload() 
            ><U>R</U>emove 
            File</BUTTON><br></TD></TR></TBODY></TABLE><!--

  Section IV

-->
      <TABLE border=0 id=BugReportingSubmittingTable>
        <TBODY>
        <TR>
          <TD colSpan=2>
            <HR>
            <BR>
            <TABLE border=0>
              <TBODY>
              <TR>
                <TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet5 src="star.gif" ></TD>
                <TD class=StepHeading id=Section5_Heading 
                  >Section IV: Submitting Bug 
              Report</TD></TR></TBODY></TABLE><BR>
            <div class=Instructions id=SubmitInstructions_Text 
            >When you click <b 
            >Submit</B> and <B>Submit 
            to Microsoft now</B> is checked, the bug information will be 
            uploaded to Microsoft's servers. To cancel the bug report click <b 
            >Cancel</B> anytime during the submission 
            process. To keep a local copy of the files on your disk select the 
            option to <B>Save copy to disk</B> and specify 
            a filename.<br><br>Please 
            make sure you are connected to the Internet before submitting a bug 
            report to Microsoft.<br><br 
            ></DIV>
            <TABLE border=0>
              <TBODY>
              <TR>
                <TD><IMG alt="Star graphic" border=0 id=IMG_Star_Bullet4 src="star.gif" ></TD>
                <TD class=ItemHeadingSmall id=Section4_Heading 
                >Current Status:</TD></TR>
              <TR>
                <TD>&nbsp;</TD>
                <TD>
                  <DIV class=ItemHeadingSmall id=Status 
                  name="Status">&nbsp;</DIV></TD></TR></TBODY></TABLE>
            <TABLE border=0 width="100%">
              <TBODY>
              <TR>
                <TD class=ItemHeadingSmall id=Progress width="20%" 
                 name="Progress">&nbsp; </TD>
                <TD class=ItemHeadingSmall id=ProgressText 
                name="ProgressText">&nbsp; </TD></TR></TBODY></TABLE>
            <TABLE border=0 cellPadding=10>
              <TBODY>
              <TR>
                <TD id=SubmitButton_Cell vAlign=top 
                  ><BUTTON accessKey=S class=stlButtonBig 
                  id=Submit name=Submit onclick=StartProcessing() 
                  ><U 
                  >S</U>ubmit</BUTTON><BUTTON accessKey=C 
                  class=stlButtonBig disabled id=Cancel name=Cancel 
                  onclick=CancelUpload()><U 
                  >C</U>ancel</BUTTON> </TD>
                <TD vAlign=top><input CHECKED 
                  id=SubmitIncidentNow name=SubmitIncidentNow type=checkbox 
                  > <LABEL for=SubmitIncidentNow 
                  id=SubmitNow_Label style="CURSOR: hand" 
                  >Submit to Microsoft now</LABEL> <BR 
                  ><input id=SaveIncidentNow 
                  name=SaveIncidentNow type=checkbox> 
                  <LABEL for=SaveIncidentNow id=SaveNow_Label 
                  style="CURSOR: hand">Save copy to 
                  disk</LABEL> <BR><BR>
                  <TABLE id=SaveToDiskTable>
                    <TBODY>
                    <TR>
                      <TD align=right id=FileNameLocal_Cell vAlign=top 
                      >
                        <DIV class=ItemHeadingSmall id=Section5_SaveInfoText 
                        >Filename : </DIV></TD>
                      <TD id=FileNameLocalName_Cell vAlign=top 
                      >
                        <DIV class=ItemHeadingSmall id=Section5_SaveInfoFile 
                        ><INPUT class=PlainTextSmall dir=ltr 
                        id=IncidentFilename name=IncidentFilename 
                        onblur=CorrectNameCAB() size=50> 
                        </DIV></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM></DIV><!--

  The thank you part of the bug reporting page after a bug has been reported

-->
<DIV id=spanThankYou style="DISPLAY: none">
<TABLE border=0 borderColor=#ff0000 cellPadding=0 cellSpacing=0 width=600>
  <TBODY>
  <TR>
    <TD align=left id=ThankYou_Heading_Data_Cell vAlign=center 
    >
      <div class=PageHeading id=ThankYou_Page_Heading_Text 
      >Windows Whistler Beta team.</DIV><br 
      ><br></TD></TR>
  <TR>
    <TD><BR>
      <p class=PlainText id=ThankYou_Paragraph>Thank you 
      for submitting a bug report.&nbsp;</P><BR>
      <TABLE border=0>
        <TBODY>
        <TR>
          <TD class=PlainTextSmall id=BRP_IncidentTimeText 
            >Submit Time</TD>
          <TD class=PlainTextSmall id=BRP_IncidentTime 
          >&nbsp;</TD></TR>
        <TR>
          <TD class=PlainTextSmall id=BRP_TrackingNoText 
            >Upload Identifier</TD>
          <TD class=PlainTextSmall dir=ltr id=BRP_TrackingNo 
          ></TD></TR></TBODY></TABLE>&nbsp;<id id="ThisNumberOnly">(This number is only for troubleshooting purposes and does not need to be retained.)</id>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR><!--
      <p id="Helpcenter_Return_Link"><a href="hcp://system/Mars_Contents.htm"><id id="ReturnToMain">Return to the main helpcenter page</id></a></p>		
-->

<p><a href="hcp://CN=Microsoft%20Corporation,L=Redmond,S=Washington,C=US/bugrep.htm"><id id="FileAnother">File Another Bug</id></A></p>

</TD></TR></TBODY></TABLE></DIV><!--

  Footer

--><BR><BR>
<TABLE>
  <TBODY>
  <TR>
    <TD>
      <div class=PlainTextSmall id=BRP_VersionText 
  ></DIV></TD></TR>
  <TR>
    <TD><BR>
      <div class=PlainTextSmall>(c) <a 
      href="http://www.microsoft.com/misc/cpyright.htm" 
      ><id id="Copyright">2000 Microsoft Corporation. All rights reserved. Terms of use.</id></A></DIV></TD></TR></TBODY></TABLE><BR><BR><BR>
<!--

  End of document

-->

</BODY>
</HTML>