dynamically linked listbox [Archive]

Deb

01-30-2000, 12:18 PM

I'm trying to create 2 listboxes so that when I select something in the first, the second box changes to appropriate values relating to the first box. I'm not familiar with JavaScript, the routine runs, but I keep getting the error, "document.f1.model is not an object" Here's the code: <HTML> <BODY BGCOLOR="FFFFFF" BACKGROUND="NBSPBACK.JPG"> <TITLE>lISTbOX</TITLE> <H4> <% If IsObject(Session("_conn")) Then Set conn = Session("_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "NBSP","","" Set Session("_conn") = conn End If %> <% Set rsx = Server.CreateObject("ADODB.Recordset") squery = "Select Manufacturer.name, Cars.Model, Manufacturer.manID as ManID, Cars.carID as ModelID" &_ " From Cars INNER JOIN Manufacturer on Cars.Man = Manufacturer.manID order by manufacturer.Name, Cars.Model" rsx.Open squery, conn, 3, 3 If rsx.EOF then Response.Write "No manufacturer. " Else 'write the manufacturers listbox... Response.Write "Manufacturer:<SELECT NAME=""manufacturer"" SIZE=15" & _ " ONCHANGE=""manuselected(this);"" >" 'Write the entry code for the Javascript sJavaScript = "function manuselected(elem) {" & vbCrlf & _ "for (var i=document.f1.model." & _ "options.length; i >=0; i--) {" & vbCrlf & _ "document.f1.model.options[i]=null;" & _ vbCrlf Do until rsx.EOF 'is this a new manufacturer? If sLastManufacturer <> rsx("name") Then 'if so, add an entry to the first listbox sLastManufacturer = rsx("name") Response.Write "<OPTION VALUE=" & rsx("manID") & ">" & sLastManufacturer & " </OPTION>" 'and add a new section to the javascript... sJavaScript = sJavaScript & "}" & vbCrlf & _ " if (elem.options[elem.selectedIndex].value==" & _ rsx("manID") & ") {" & vbCrlf End If 'and add a new model line to the javascript sJavaScript = sJavaScript & _ "document.f1.model.options[document." & _ "f1.model.options.length] = new Option ('" & _ rsx("model") & "','" & rsx("modelID") & "');" & _ vbCrlf rsx.MoveNext Loop 'finish the manufacturer listbox... Response.Write "</SELECT>" 'create the models listbox... 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 & vbCrlf & "}" & vbCrlf & "}"& vbCrlf Response.Write "<SCR" & "IPT LANGUAGE=""JavaScript"">"& vbCrlf Response.Write sJavaScript & vbCrlf & "</SCR" & "IPT>" & vbCrlf End If rsx.Close Set rsx = Nothing %> </BODY> </HTML> Thanks, for the help.