December 2, 2008 03:06pm pst

1. hielo 974,407
2. b0lsc0tt 308,098
3. angelIII 206,740
4. dosth 187,890
5. _Stilgar_ 160,314
6. neeraj523 137,917
7. cedlinx 96,200
8. samic400 96,137
9. R_Harrison 88,570
10. ryancys 83,138
11. CyrexCor... 69,720
12. bluV11t 60,955
13. gawai 60,083
14. GreenGho... 58,699
15. the_crazed 57,314
16. cyberweb... 55,483
17. CCongdon 54,650
18. deathtospam 54,450
19. kevp75 54,131
20. pratima_... 52,840
21. DanielWilson 50,905
22. asvforce 49,032
23. golfDoctor 48,997
24. chapmandew 47,730
25. TimCottee 45,950

1. fritz_the... 3,970,430
2. alorentz 1,929,293
3. amit_g 1,328,388
4. hielo 1,004,217
5. ap_sajith 921,034
6. hongjun 914,936
7. WMIF 899,748
8. kevp75 863,058
9. b0lsc0tt 822,232
10. jitganguly 784,362
11. angelIII 709,575
12. peh803 684,060
13. acperkins 658,528
14. Silvers5 625,555
15. GaryC123 576,095
16. carl_tawn 572,230
17. sybe 565,215
18. ryancys 540,625
19. neeraj523 522,398
20. SquareHead 515,787
21. deighc 466,721
22. golfDoctor 451,643
23. apresto 450,527
24. gladxml 429,512
25. mgfranz 418,620

06.06.2008 at 08:39AM PDT, ID: 23464114

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

8.5

How do we retreive the selected listbox items into an array?

Asked by ipjyo in Active Server Pages (ASP), VB Script, WebApplications

Tags: ASP/VBScript, mozilla/4.0

I have listbox and a "delete" button.
On clicking the "delete" button, the items will be captured into an array.
I tried the code as in attached.

Listbox items are being displayed and once I click on "delete", it is going to the following condition and displayed the selected items as comma separated values.

If "Delete" = Trim(Request("action")) Then
selList = Request.Form("isinfilterDD")
if Request.Form("isinfilterDD") <> "" then
Response.Write(selList)

but the code from line
selArray = Split(selList,",")
is not working..

Please help me. how to modify my code?Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:

           
           
             <%@ Language=VBScript %>
<!-- #include file='adovbs.inc' -->
<% 
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "Provider=SQLOLEDB;Data Source=ELTTMSQPTSD2;Initial Catalog=posttrade;User ID=iviewapp;Password=iviewapp;"
%>
<%                
            'Response.Write "</SELECT>"
            
            If "Delete" = Trim(Request("action")) Then
 
                      
            dim selList
            dim selArray()
            dim xmlText  
        
           
        selList = Request.Form("isinfilterDD") 
     
        
       if Request.Form("isinfilterDD") <> "" then
       Response.Write(selList)
       'capture the selected items into an array
        selArray = Split(selList,",")
        end if
        xmlText = "<ISINLIST>"
        for each item in selArray
     
          xmlText = xmlText & "<ISIN>" 
          xmlText = xmlText & "<SecISINNo>" 
         xmlText = xmlText & item
          xmlText = xmlText & "</SecISINNo>" 
          xmlText = xmlText & "</ISIN>"
 
        next 
      xmlText = xmlText & "</ISINLIST>"
      
      Response.Write(xmlText)
    
      End If
       
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name="f1" method="post">
<SELECT size=15 id=isinfilter name=isinfilterDD MULTIPLE width="305px" style="{width:305px}">
 
<%
      
                               
                                dim oRSIsin
                                dim cmdoRSIsin
                               
                                set cmdoRSIsin = server.CreateObject("ADODB.Command")
                                                                                      
                                set oRSIsin = server.CreateObject("ADODB.Recordset")
                               
                                    conn.Open
                                    with cmdoRSIsin
                                    
                                         .ActiveConnection = conn
                                     
                                       .CommandType  = 4
                                       .CommandText = "spCSW_ListFocusISINList"
                                                                         end with 
                                      on error resume next
                                                                                                                                       
                                   set oRSIsin = cmdoRSIsin.Execute()
                                 ' On Error Goto 0
 
                                 If cmdoRSIsin.ActiveConnection.Errors.Count > 0 Then
                                  Response.Write("An error occured")
                
                                 End If
                                                                 
                                set cmdoRSIsin = nothing
                                Do While Not oRSIsin.EOF 
                                
                               Response.Write("<OPTION value=""" & oRSIsin("FocusISINGroupCd")& """>"  & oRSIsin("FocusISINGroupNm") & "</OPTION>")
                                
    	                        oRSIsin.MoveNext
		                        Loop
		     oRSIsin.Close
		    
		     set oRSIsin = nothing
		     conn.Close
		     set conn = nothing
		    %>
		    </SELECT> 		    
		  
 
<P>&nbsp;<INPUT type=submit value="Delete" name="action"></P>
</form>
</BODY>
</HTML>

           
         

Keywords: How do we retreive the selected listbo…

	Title
1	Listbox to Listbox
2	Referring to an HTML listbox (multiple …
3	Request.Form and Listbox Problems
4	Ajax populate listbox
5	ADODB Listbox
6	listbox text align

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

How do we retreive the selected listbox items into an array?

Asked by ipjyo in Active Server Pages (ASP), VB Script, WebApplications

Tags: ASP/VBScript, mozilla/4.0

About this solution