Jump to content

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


anilr499
 Share

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

Link to comment
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
 Share

×
×
  • Create New...