<% '****************************************** '* Code path is for Windows XP files only! * '****************************************** 'On Error Resume Next Dim strFileID, NoID, strDate, strCabFile, objCreateFolder, objFileSystem, objFile strFileID = Request.QueryString("ID") strDate = Left(strFileID,InStr(strFileID,"/")-1) strCabFile = Right(strFileID,Len(strFileID)-InStr(strFileID,"/")) set objFileSystem = CreateObject("Scripting.FileSystemObject") set objFile = objFileSystem.GetFile("\\cpofffso03\watson\BlueScreen\" & strFileID) If objFileSystem.FolderExists("\\chomps\public\" & strDate) Then objFile.Copy("\\chomps\public\" & strFileID) Else objFileSystem.CreateFolder("\\chomps\public\" & strDate) objFile.Copy("\\chomps\public\" & strFileID) End If If (Err.Number = 0) Then Response.Write "

Thank you for your submission

" %>

All information submitted to the Windows^® Online Crash Analysis Web site is used to improve the stability and reliability of the Windows platform.

<% Else Response.Write "

Unable to upload file

" %>

We are unable to copy your event report to our server. This could be due to transient network problems, corruption of the event report, or an unexpected server side error. To re-try the copy process click, Resubmit file.

• Resubmit file

<% If (strFileID <> "") Then NoID = strFileID Else NoID = "No file found" End If %>

If you see this message again, send an e-mail message explaining the situation to Windows Online Crash Analysis, and we will investigate.

<% End If strFileID = "" strCabFile = "" strDate = "" Set objFileSystem = Nothing Set objFile = Nothing %>

Thank you,
Windows^® Online Crash Analysis team