anilr499 Posted December 18, 2012 Share Posted December 18, 2012 Hi1)my requirement to display the checkbox checked data in table2)first i need to display whole data with checkboxes...then user will check the check boxes and clicks the button...then i neeed to display only the checkbox checked data....here is my code... <%DIM sXML4, oXML4, oNode4, sXMLColor, sDataPoint4sXML4= goBO.QueryXML("SELECT ISS_REL_ID, ISNULL(CONVERT(VARCHAR(11),ISS_RANK , 106),'NA') AS DATEREPORTED,ISS_TITLE AS ISSUESREPORT,ISS_IMPACT AS REPORTEDBY, "&_" ISNULL(CONVERT(VARCHAR(11),ISS_TRG_RS_DATE , 106),'NA') AS DATECLOSED, "&_" C_CATEGORY AS CATEGORY, "&_" CASE WHEN ISS_STATUS ='C' THEN 'Closed' WHEN ISS_STATUS ='O' THEN 'Work In Progress' WHEN ISS_STATUS ='K' THEN 'KIV'END AS "&_" STATUS, ISS_PROGRESS_RPT, "&_" CASE WHEN ISS_STATUS ='C' THEN 'GREEN' WHEN ISS_STATUS ='O' THEN 'ORANGE' WHEN ISS_STATUS ='K' THEN 'ORANGE'END AS COL "&_" FROM v_iss_list WHERE ISS_PROGRESS_RPT='Y' and ISS_REL_ID = 'prj0000152' order by status ","TYPES","TYPE")On Error Resume Nextif goBO.HasError then HandleErrorSet oXML4 = Server.CreateObject("MSXML.DOMDocument")oXML4.async = falseoXML4.loadXML sXML4For each oNode4 in oXML4.documentElement.childNodessDataPoint4 = sDataPoint4 + "<tr>"'sDataPoint4 = sDataPoint4 + "<td align=""center"" style=""font-family:verdana;font-size:11""> <label><input type=""checkbox"" value=""Yes"" name=""myTextEditBox""""></label> </td>" + vbNewlinesDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("DATEREPORTED") &"</label> </td>" + vbNewlinesDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("ISSUESREPORT") &"</label> </td>" + vbNewlinesDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("REPORTEDBY") &"</label> </td>" + vbNewlinesDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("DATECLOSED") &"</label> </td>" + vbNewlinesDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11""> <label>"& oNode4.getAttribute("CATEGORY") &"</label> </td>" + vbNewlineif oNode4.getAttribute("STATUS") = "Closed" thendim valval = oNode4.getAttribute("ISSUESREPORT") sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11;background-color:"& oNode4.getAttribute("COL") &"""> <label>"& oNode4.getAttribute("STATUS") &" <input type=""checkbox"" name=""myTextEditBox"" value=""yes""""></label> </td>" + vbNewlineelse sDataPoint4 = sDataPoint4 + "<td align=""left"" style=""font-family:verdana;font-size:11;background-color:"& oNode4.getAttribute("COL") &"""> <label>"& oNode4.getAttribute("STATUS") &"</label> </td>" + vbNewlineend if sDataPoint4 = sDataPoint4 + "</tr>" + vbNewlineNextSet oXML4 = nothingset oBO = nothing%>SUB GetResults(myTextEditBox)ON ERROR RESUME NEXTIF myTextEditBox.Checked = TRUE THENMSGBOX myTextEditBox.ValueEND IFIF ERR.Number <> 0 THENFOR i = 0 TO myTextEditBox.Length - 1IF myTextEditBox(i).Checked = TRUE THENMSGBOX myTextEditBox(i).ValueEND IFNEXTEND IFON ERROR GOTO 0END SUB<table WIDTH="80%" BORDER="1"><thead><tr><!--<td align="center" rowspan=2 width="5%" bgcolor="gray" style="color:white;font-family:verdana;font-size:11;font-weight:bold"><input type="checkbox" name="myTextEditBox" value="checked"""></td>--><td align="center" rowspan=2 width="10%" bgcolor="gray" style="color:white;font-family:verdana;font-size:11;font-weight:bold">Date Reported</td><td align="center" rowspan=2 width="30%" bgcolor="gray" style="color:white;font-family:verdana;font-size:11;font-weight:bold">Issues Report</td><td align="center" rowspan=2 width="10%" bgcolor="gray" style="color:white;font-family:verdana;font-size:11;font-weight:bold">Reported BY</td><td align="center" rowspan=2 width="10%" bgcolor="gray" style="color:white;font-family:verdana;font-size:11;font-weight:bold">Date Closed</td><td align="center" rowspan=2 width="10%" bgcolor="gray" style="color:white;font-family:verdana;font-size:11;font-weight:bold">Category</td><td align="center" rowspan=2 width="10%" bgcolor="gray" style="color:white;font-family:verdana;font-size:11;font-weight:bold">Status</td></tr></thead><tbody class="clsTableBody"><%=sDataPoint4%></tbody></table> <input type="submit" class="clsNavigation" name="Get Checked" value="Checked Data" onClick="GetResults(myTextEditBox)">please can some body help me...Thank you Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now