Listbox w/o Autopostback

[collie]

HI,

I need to populate 2 listboxes from a db. When the page loads then the
first listbox needs to be populated and based on selection from that
listbox the second listbox needs to be populated accordingly with the
matching items.
However, my boss doesn't want the page to do a postback once an item
from the first listbox is selected. also, he doesn't want to use
ado.net but classic ado.
He wants to use jscript. I am writing my code in vb.net

I wrote a code but only the first listbox gets populated and when i
select an item then that item appears in the second listbox eg. if i
selected cars from the 1st listbox then cars will appear in the 2nd
listbox instead of BMW, HONDA etc.

I know that my code might be totally wrong as i have no idea what to
do.

My db has 2 tables called CATS with CAT_NAME (Such as cars) and
CAT_ID. The 2nd table is called SUBS and contains SUB_ID, CAT_ID and
SUB_NAME (such as Honda, BMW).It is very important that my code with
read the CAT_ID and SUB_ID as i have to use them later on.
Can someone please help me?

Thanks
Here is my code:

Dim objconn As New ADODB.Connectio n()
Dim rsx As New ADODB.Recordset ()
Dim sLastManufactur er
Dim manufacturer As New ListBox()
objConn = Server.CreateOb ject("adodb.con nection")
objConn.OPEN("P rovider=Microso ft.Jet.OLEDB.4. 0;Data Source=" &
Server.MapPath( "/duclassified.md b"))
rsX = Server.CreateOb ject("ADODB.Rec ordset")
rsx.Open("SELEC T CAT_NAME, CAT_ID FROM CATS", objConn)

If rsX.EOF Then
Response.Write( "No category.<BR>")

Else
' write the CATEGORY listbox...

Response.Write( "<SELECT NAME=""manufact urer"" SIZE=15" & _
" ONCHANGE=""manu selected(this); "" >")
' write the entry code for the javascript...
Dim sJavaScript = "function manuselected(el em){" &
Environment.New Line & _
"for (var i = model." & _
"options.length ; i >= 0; i--){" & Environment.New Line & _
"model.opti ons[i] = null;" & _
Environment.New Line
' loop through the recordset...
Do Until rsx.EOF
' is this a new manufacturer?
Dim cat_names = rsx("cat_name") .Value

If (sLastManufactu rer) <> "CAT_Names" Then
' if so, add an entry to the first listbox
sLastManufactur er = rsx("CAT_Name") .Value
Response.Write( "<OPTION VALUE=" & rsx("CAT_ID").V alue & ">"
& sLastManufactur er & "</OPTION>")
' and add a new section to the javascript...
sJavaScript = sJavaScript & "}" &
Environment.New Line & "if (elem.options[elem.selectedIn dex].value==" &
_
rsx("CAT_ID").V alue & "){" & Environment.New Line
& ""
End If
' and add a new model line to the javascript...
sJavaScript = sJavaScript & _
"model.opti ons[" & _
"model.options. length] = new Option('" & _
rsx("CAT_NAME") .Value & "','" & rsx("CAT_ID").V alue
& _
"');" & _
Environment.New Line
rsx.MoveNext()
Loop
' finish the manufacturer listbox...
Response.Write( "</SELECT>")

rsx.Close()
rsx = Nothing
objconn.Close()
objconn = Nothing

' create the SUBS listbox...

Dim rsSubs As New ADODB.Recordset ()
objconn = Server.CreateOb ject("adodb.con nection")
objconn.Open("P rovider=Microso ft.Jet.OLEDB.4. 0;Data Source=" &
Server.MapPath( "/duclassified.md b"))
rsSubs = Server.CreateOb ject("ADODB.Rec ordset")
rsSubs.Open("SE LECT SUB_NAME, SUB_ID from SUBS where cat_ID =" &
manufacturer.Se lectedItem.Valu e.ToString, objconn)
Response.Write( "<SELECT NAME=""model"" SIZE=15>")
Response.Write( "<OPTION>[none currently selected]</OPTION>")
Response.Write( "</SELECT>")
' put the last line on the javascript...
' and write it out...
sJavaScript = sJavaScript & Environment.New Line & "}" &
Environment.New Line & _
"}" & Environment.New Line
Response.Write( "<SCRIPT LANGUAGE=""Java Script"">" &
Environment.New Line)
Response.Write( sJavaScript & Environment.New Line & "</SCRIPT>" &
Environment.New Line)
End If
End Sub

[Cor]

Hi Collie,

As far as I can see it, is what you are doing totaly classic ASP, that is a
little bit far out of the intrest of the visitors of this newsgroup.

I think you have a better change for that in the special newsgroups for ASP.
This newsgroup is for the VB.Net language some things looks like it, but it
is not the same.

(It is also not ASP.Net, so watch what newsgroup you choose).

I hope you get your help.

Cor

[Cor]

Hi Collie,

As far as I can see it, is what you are doing totaly classic ASP, that is a
little bit far out of the intrest of the visitors of this newsgroup.

I think you have a better change for that in the special newsgroups for ASP.
This newsgroup is for the VB.Net language some things looks like it, but it
is not the same.

(It is also not ASP.Net, so watch what newsgroup you choose).

I hope you get your help.

Cor

[collie]

Hi,

I don't think that a classic ASP newsgroup will help me as I need to do
this with .net.
I need to create 2 listboxes that are read from the db. the 2nd is
populated based on what the user selected from the 1st box. I currently
did it using postback and it works great. However, my boss now decided
that he doesn't want the page to postback each time a user selects an
item. He wants to use jscript. Also, he does't want to use ado.net and
the db is ACCESS.

How can I do that in .net?
The project is written in vb.net.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!

[Cor]

Hi Collie,

I did look deeper at your code but I think I cannot help you, because the
code is something not to be the best, but only because your boss wants it in
that way.

(I understand that it is not your wish or fault, so I am not able to help
you I think, because every suggestion will be answered with, "My boss won't
that").

Sorry for you.

Cor