<!--#include file="../Lib/Config.asp"-->
<!--#include file="../Lib/DBConn.asp"-->
<!--#include file="../Lib/DBLib.asp"-->
<!--#include file="../Lib/func.asp"-->
<%

Dim SQL,Rs,xcnt,ycnt,Col,tmpCx
SQL = "SELECT VARIABLE,DATAS FROM [Dat_P17092001X] WHERE [VC_ID]='" & Request("IDX") & "' AND LEFT(PAGE,3)='T2A' and Right(VARIABLE,4)<>'NONE' ORDER BY IDX"

RS= Split(getRecordString(SQL),VBCR)

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office">
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="stylesheet" type="text/css" href="../css/style.css" >
<script type="text/javascript" src="http://code.jquery.com/jquery-1.5.min.js"></script>
<style>
	table th {
		border:1px solid #ccc;
		background:#eee;
		text-align:center;
		font-size:12pt;
		font-weight:bold;
	}

	table td {
		border:1px solid #ccc;
		background:#fff;
		text-align:center;
	}
</style>
</head>
<body>
<div style="width:100%;text-align:center;">
	<div style="width:100%;margin:0 auto;padding-top:80px;text-align:center;">
		<form name="frmSearch" id="frmSearch" method="post" action="index.asp">
		<table style="min-width:600px;max-width:90%;padding:5px 5px 5px 5px;border-collapse:separate; margin:0 auto;" cellpadding="5" cellspacing="0">
			<tr>
				<th colspan="2"><%=Request("IDX")%>'s Device</th>
			</tr>
			<tr>
				<th style="text-align: center;">Devices</th>
			</tr>	
			<% For xCnt=Lbound(Rs) To UBound(Rs) %>
				<%
				If Rs(xCnt)<>"" Then
				%>
			<tr>
				<td style="text-align:left;">
				<%
				Col = Split(Rs(xCnt),vbTab)
				tmpCx = Split(Col(0),"_")
				Response.Write ToolsDevices(tmpCX(0))
				Response.Write " " 
				Response.Write Col(1)
				Response.Write " " & tmpCX(1)
				%>
				</td>
			</tr>
			<%
				End If
			%>
			<% Next	%>
		</table>
		</form>
	</div>
</div>
</body>
</html>
<%
Function ToolsDevices(CODE)
	Dim ToolName
	ToolName=""
	Select Case CODE
		Case "T2A1"
			ToolName="Washing machine"
		Case "T2A2"
			ToolName="Laundry dryer"
		Case "T2A3"
			ToolName="Upright Vacuum Cleaners"
		Case "T2A4"
			ToolName="Canister Vacuum Cleaners"
		Case "T2A5"
			ToolName="Stick Vacuum Cleaners"
		Case "T2A6"
			ToolName="Handheld Vacuum Cleaners"
		Case "T2A7"
			ToolName="Robot Vacuum Cleaners"
		Case "T2A8"
			ToolName="Other type of Vacuum Cleaners"
		Case "T2A9"
			ToolName="Steam cleaner"
		Case "T2A10"
			ToolName="Lawn mower"
		Case "T2A11"
			ToolName="Duster"
		Case "T2A12"
			ToolName="Brush"
		Case "T2A13"
			ToolName="Mop/Squeegee"
		Case "T2A14"
			ToolName="Others"
	End Select
	ToolsDevices = ToolName
End Function
%>