on_click() event

[lenin]

Hi,
I have been searching through msdn and unfortunately found that the on_click event doesn't apply to drop down lists, so I was wondering if someone had an alternative for my problem.

Basically, I populate a list box by returning a recordset from a DB, and building a string of </option .. values as

while not oRs_TypeOFBusiness.EOF
Combo_tob = Combo_tob & "<option selected value=" & oRs_TypeOfBusiness("TypeOfBusiness") & ">" & oRs_TypeofBusiness("TypeOfBusiness") & "</option>"
ors_Typeofbusiness.MoveNext
wend


However, what I require is that when a customer clicks on an option in the list box, I want to fire an event that will cause a further selection based on the user selection, and populate another list box as a result.

For example if they clicked dogs from the list

dogs
cats
mice

I want to select a recordset from a database based on the word "dog" as a criteria of the search.


Any help appreciated.

Lenin

[Mark Sreeves]

I think you want the onchange="" event of the SELECT control


Here's an extract from one of my own scripts that does the same thing.

<SELECT NAME="cboSupCode" onchange="ShowDetails(cboSupCode.selectedIndex)">
	<%	
	
	'fill the suplier code combo box from the database 
	
		Set cmdTemp = Server.CreateObject("ADODB.Command")
	    Set T_Docs = Server.CreateObject("ADODB.Recordset")
		'cmdTemp.CommandText = "SELECT SupplierCode from tblSupplier order by SupplierCode;"
		
		cmdTemp.CommandText ="SELECT tblSupplier.CompanyName, tblSupplier.SupplierCode, tblSupplierTP.ContactName, tblSupplierTP.FaxNo " & _
				"FROM tblSupplier INNER JOIN tblSupplierTP ON tblSupplier.SupplierCode = tblSupplierTP.SupplierCode " & _
				"WHERE tblSupplierTP.TPCode =" & quote & tpcode & quote & " AND tblSupplierTP.inuse = true order by tblSupplier.SupplierCode;"

		cmdTemp.CommandType = 1
		Set cmdTemp.ActiveConnection = Session("RanFax") 
		T_Docs.Open cmdTemp, , 1,3
		i = 0
		do while not T_Docs.EOF
			'fill the combo box%>
			<OPTION value="<%=i%>"><%=T_Docs("SupplierCode")%>
			<%T_Docs.MoveNext%>
			<%i = i + 1%>
		<%loop%>
	
	<%T_Docs.Close%> 
	</SELECT>

[lenin]

Thanks for the reply mark. This works perfectly.

Lenin