Jump to content
Sign in to follow this  
anilr499

how to get and display checkbox checked data in vbscript and classic asp

Recommended Posts

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

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×