<HTML>
<HEAD>
<TITLE>Sales Analyzer</TITLE>
</HEAD>
<BODY>
<H2>Sales Analysis</H2>
<H4>View the latest sales data using the Sales Analyzer control</H4>
<OBJECT ID="Sales1" WIDTH=436 HEIGHT=343 CLASSID="CLSID:**Your own unique value will go here**" CODEBASE="Analyzer.ocx#version=1,2,0,0">
<PARAM NAME="_ExtentX" VALUE="11536">
<PARAM NAME="_ExtentY" VALUE="9049">
<PARAM NAME="ExtractFile" VALUE="C:\Program Files\Microsoft Visual Studio\Projects\Analyzer\Sales.txt">
<PARAM NAME="ChartType" VALUE="1">
</OBJECT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Sales1_FileStatus(StatusCode)
Select Case StatusCode
Case 0
'File is valid: No action
Case Else
Sales1.ExtractFile = InputBox("The ExtractFile property was " & _
"not set or invalid." & vbCrLf & "Please enter a valid " & _
"path, then click the extract button:", "Extract File Invalid")
End Select
End Sub
Sub Sales_PointSelected(evtCompanyName, evtOrderID, evtSalesAmount, evtShippedDate)
MsgBox "Order #" & evtOrderID & " for " & FormatCurrency(evtSalesAmount) & _
vbCrLf & "Shipped on " & FormatDateTime(evtShippedDate, 2), vbInformation, evtCompanyName
End Sub
-->
</SCRIPT>
</BODY>
</HTML>