<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="ValidateUser.asp" -->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE><%=Application("WebTitle")%>-HisIndex.asp</TITLE>
<%
	GetUserRole Request.QueryString("username"), Request.QueryString("password"), "HisIndex.asp"
%>
<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
<!--

function DKVWebHisIndex1_OnCancel() {
	window.navigate("Default.asp");
}

function DKVWebHisIndex1_OnOk() {
	switch(DKVWebHisIndex1.ItemIndex)
	{
	case 0:	//Real-time data view
		window.navigate("HisData.asp?HisDataGrpID=" + DKVWebHisIndex1.SubIndex);
		break;
	case 1:	//Real-time data curve
		window.navigate("HisTmCurve.asp?HisCurveGrpID=" + DKVWebHisIndex1.SubIndex);
		break;
	case 2:	//Real-time XY curve
		window.navigate("HisXYCurve.asp?HisXYGrpID=" + DKVWebHisIndex1.SubIndex);
		break;
	default:
		window.alert("Sorry,this website is being constructed......");
		break;
	}
}

//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=DKVWebHisIndex1 EVENT=OnCancel>
<!--
 DKVWebHisIndex1_OnCancel()
//-->
</SCRIPT>
<SCRIPT LANGUAGE=javascript FOR=DKVWebHisIndex1 EVENT=OnOk>
<!--
 DKVWebHisIndex1_OnOk()
//-->
</SCRIPT>
</HEAD>
<BODY bgColor=aquamarine>
<P align=center><STRONG><%=Application("WebTitle")%><FONT 
size=2>-</FONT></STRONG><FONT size=2>Historical information homepage</FONT> 
<DIV align=center>
<HR>
</DIV>
<P align=center>
<OBJECT id=DKVWebHisIndex1 style="LEFT: 0px; WIDTH: 80%; TOP: 0px; HEIGHT: 90%"  codebase=".\Controls\KVWeb.cab#$KVWebHisIndex.ocx$#"
height="90%" width="80%" classid=clsid:5A29BB47-0D28-4A73-9A5D-C203AA0FCB46><PARAM NAME="_Version" VALUE="65536">
	<PARAM NAME="_ExtentX" VALUE="15716"><PARAM NAME="_ExtentY" VALUE="3201"><PARAM NAME="_StockProps" VALUE="1"><PARAM NAME="BackColor" VALUE="12648384">
	<param name="UserRole" value="<%=Session("UserRole")%>">
	<param name="RmtCfgFileUrl" value>
	<param name="CmdSvrIP" value="<%=Application("CmdSvrIP")%>">
	<param name="CmdSvrPort" value="<%=Application("CmdSvrPort")%>">
	<param name="FileSvrIP" value="<%=Application("FileSvrIP")%>">
	<param name="FileSvrPort" value="<%=Application("FileSvrPort")%>">
	<param name="FSvrVirtualDir" value="<%=Application("FSvrVirtualDir")%>">
</OBJECT>
</P>

</BODY>
</HTML>
