<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim objRS, objRSTemp set objRS = Server.CreateObject("ADODB.Recordset") set objRSTemp = Server.CreateObject("ADODB.Recordset") dim strMemberID, larr(10) strMemberID = request("txtID") if objSession.getVal("UserLanguage") = "E" then larr(0) = "ID" larr(1) = "Name" larr(2) = "IC No" larr(3) = "Country" larr(4) = "Group" larr(5) = "Select" larr(6) = "Left" larr(7) = "Center" larr(8) = "Right" larr(9) = "N/A" larr(10) = "Available" else larr(0) = "编号" larr(1) = "姓名" larr(2) = "身份证号码" larr(3) = "国籍" larr(4) = "位置" larr(5) = "选择" larr(6) = "左边" larr(7) = "中间" larr(8) = "右边" larr(9) = "不能使用" larr(10) = "能使用" end if %> <% strSQL = "SELECT M.fldID, M.fldPWallet, M.fldCode, M.fldName, M.fldICNo, M.fldCountryID, P.fldAc " & _ "FROM tblMembership M INNER JOIN tblUnitTree P ON M.fldID=P.fldMID " & _ "WHERE P.fldStatus='Y' AND M.fldID=" & cSQLStr(strMemberID) objDB.getRec strSQL, errNo, errDesc, objRS maxGroup = 2 dim iNo, strClass, strRow, strStatus, strGroup iNo = 0 do while not objRS.eof iNo = iNo + 1 strClass = "tRow1" 'if iNo MOD 2 = 0 then strClass = "tRow2" for iGroup = 1 to maxGroup if iGroup = 1 then strGroup = "LEFT" if iGroup = 2 then strGroup = "RIGHT" 'if iGroup = 3 then strGroup = "RIGHT" strSQL = "SELECT fldMID, fldAc FROM tblUnitTree " & _ "WHERE fldStatus='Y' AND fldPlacementMID=" & cSQLStr(objRS("fldID")) & " AND fldPlacementAc=" & cSQLStr(objRS("fldAc")) & " AND fldPlacementGroup=" & cSQLStr(iGroup) objDB.getRec strSQL, errNo, errDesc, objRSTemp if objRSTemp.eof then strRow = " style='cursor:pointer;' onClick='retVal(""&objRS("fldID")&"", ""&objRS("fldCode")&"", ""&objRS("fldAc")&"", ""&objRS("fldName")&"", ""&objRS("fldICNo")&"", ""&iGroup&"", ""&objRS("fldPWallet")&"")'" strStatus = "Available" strClass = "tRow2" else strRow = "" strStatus = "N / A" strClass = "tRow1" end if %> > <% next objRS.movenext loop %>
<%=larr(0)%> - Ac <%=larr(1)%> <%=larr(2)%> <%=larr(4)%> <%=larr(5)%>
<%=objRS("fldCode")%> - <%=objRS("fldAc")%> <%=objRS("fldName")%> <%=objRS("fldICNo")%> <%=strGroup%> <%=strStatus%>
<% if objRS.state = 1 then objRS.close set objRS = nothing closeObject() %>