Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

variable combo boxes

Status
Not open for further replies.
nonprogrammer

nonprogrammer

Technical User
Joined
Dec 28, 2005
Messages
143
Location
US

Hello Everybody,

I was wondering if anybody could point me in the right direcction.
I am looking for a script or to start my own for dynamic combo boxes that does a search. I have come across many examples, but none with the search capability.

any help is greately appreciated
 
Sort by date Sort by votes
Do you mean two <select> listboxes where selecting an <option> element in the first list dictates the available choices in the second list? And then the selected values of both are submitted to the server and where they are used to query a database?

Please clarify the requirements.
 
Upvote 0 Downvote
yes Sheco, that is exactly what I need
 
Upvote 0 Downvote
For simplicity sake, I would mentally split this into 2 separate issues.

The first issue is dynamic listboxes. This is the more difficult of the two problems but fortunately Tarwn has written a nice explanation here: faq333-3656


The second issue is querying a database using values submitted from an HTML form, and then using the results of the query to dynamically build an HTML "results" page. This "issue" is actually quite easy to resolve using ADO and we can give you a hand with it if you show us what you have and where it is going wrong.
 
Upvote 0 Downvote
Sheco,

Thank you so very much for the link. I tried it but I am having a heck of a time with it. I tried another script but it is a bit more complicated. I think the problem I am having is that I am not selecting the correct fields. I will keep on trying thoug. I wll write back if I encounter anymore problems\
 
Upvote 0 Downvote
Hi Sheco,

After much trying I came up with the combo boxes. I had to read a lot and ask many questions but I came up with the whole combo box thing.
I just need help with the search part I am a bit lost with that do you think you could give me a hand?
Here is the code for the combo boxes

Code: 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="myconnection.asp" -->
<%


Dim Recordset1
Dim Recordset1_numRows
Dim adoCon


Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_vpasp_STRING
Recordset1.Source = "SELECT ccode, scode, Diameter_A, Height_B, Hub_C FROM Products"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "[URL unfurl="true"]http://www.w3.org/TR/html4/loose.dtd">[/URL]
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<select name="Category" id="Category" onChange="TCN_reload(this)">
  <option selected>Category</option>
</select>
<select name="Sub-Category" id="Sub-Category" onChange="TCN_reload(this)">
  <option selected>Sub-Category</option>
</select>
<select name="Diameter" id="Diameter" onChange="TCN_reload(this)">
  <option selected>Diameter</option>
</select>
<select name="Height" id="Height" onChange="TCN_reload(this)">
  <option selected>Height</option>
</select>
<select name="Hub" id="Hub" onChange="TCN_reload(this)">
  <option selected>Hub</option>
</select>
<script language="JavaScript">
TCN_contents=new Array();
TCN_tempArray=new Array();
TCN_counter=0;
function TCN_addContent(str){
	TCN_contents[TCN_counter]=str;
	TCN_counter++;
}
function TCN_split(){
	TCN_arrayValues = new Array();
	for(i=0;i<TCN_contents.length;i++){
		TCN_arrayValues[i]=TCN_contents[i].split(separator);
		TCN_tempArray[0]=TCN_arrayValues;
	}
}
function TCN_makeSelValueGroup(){
	TCN_selValueGroup=new Array();
	var args=TCN_makeSelValueGroup.arguments;
	for(i=0;i<args.length;i++){
		TCN_selValueGroup[i]=args[i];
		TCN_tempArray[i]=new Array();
	}
}
function TCN_makeComboGroup(){
	TCN_comboGroup=new Array();
	var args=TCN_makeComboGroup.arguments;
	for(i=0;i<args.length;i++) TCN_comboGroup[i]=findObj(args[i]);
}
function TCN_setDefault(){
	for (i=TCN_selValueGroup.length-1;i>=0;i--){
		if(TCN_selValueGroup[i]!=""){
			for(j=0;j<TCN_contents.length;j++){
				if(TCN_arrayValues[j][(i*2)+1]==TCN_selValueGroup[i]){
					for(k=i;k>=0;k--){
						if(TCN_selValueGroup[k]=="") TCN_selValueGroup[k]=TCN_arrayValues[j][(k*2)+1];
					}
				}
			}
		}
	}
}
function TCN_loadMenu(daIndex){
	var selectionMade=false;
	daArray=TCN_tempArray[daIndex];
	TCN_comboGroup[daIndex].options.length=0;
	for(i=0;i<daArray.length;i++){
		existe=false;
		for(j=0;j<TCN_comboGroup[daIndex].options.length;j++){
			if(daArray[i][(daIndex*2)+1]==TCN_comboGroup[daIndex].options[j].value) existe=true;
		}
		if(existe==false){
			lastValue=TCN_comboGroup[daIndex].options.length;
			TCN_comboGroup[daIndex].options[TCN_comboGroup[daIndex].options.length]=new Option(daArray[i][daIndex*2],daArray[i][(daIndex*2)+1]);
			if(TCN_selValueGroup[daIndex]==TCN_comboGroup[daIndex].options[lastValue].value){
				TCN_comboGroup[daIndex].options[lastValue].selected=true;
				selectionMade=true;
			}
		}
	}
	if(selectionMade==false) TCN_comboGroup[daIndex].options[0].selected=true;
}	
function TCN_reload(from){
	if(!from){
		TCN_split();
		TCN_setDefault();
		TCN_loadMenu(0);
		TCN_reload(TCN_comboGroup[0]);
	}else{
		for(j=0; j<TCN_comboGroup.length; j++){
			if(TCN_comboGroup[j]==from) index=j+1;
		}
		if(index<TCN_comboGroup.length){
			TCN_tempArray[index].length=0;
			for(i=0;i<TCN_comboGroup[index-1].options.length;i++){
				if(TCN_comboGroup[index-1].options[i].selected==true){
					for(j=0;j<TCN_tempArray[index-1].length;j++){
						if(TCN_comboGroup[index-1].options[i].value==TCN_tempArray[index-1][j][(index*2)-1]) TCN_tempArray[index][TCN_tempArray[index].length]=TCN_tempArray[index-1][j];
					}
				}
			}
		TCN_loadMenu(index);
		TCN_reload(TCN_comboGroup[index]);
		}
	}
}
function findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}
TCN_makeSelValueGroup("","","","","");
TCN_makeComboGroup("Category","Sub-Category","Diameter","Height","Hub");
 var separator="+#+";
<% Do While NOT Recordset1.EOF %>TCN_addContent("<%=(Recordset1.Fields.Item("ccode").Value)%>+#+<%=(Recordset1.Fields.Item("ccode").Value)%>+#+<%=(Recordset1.Fields.Item("scode").Value)%>+#+<%=(Recordset1.Fields.Item("scode").Value)%>+#+<%=(Recordset1.Fields.Item("Diameter_A").Value)%>+#+<%=(Recordset1.Fields.Item("Diameter_A").Value)%>+#+<%=(Recordset1.Fields.Item("Height_B").Value)%>+#+<%=(Recordset1.Fields.Item("Height_B").Value)%>+#+<%=(Recordset1.Fields.Item("Hub_C").Value)%>+#+<%=(Recordset1.Fields.Item("Hub_C").Value)%>");
<% Recordset1.MoveNext
 Loop 
 %>
TCN_reload();
TCN_setDefault();

</script>


</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
 
Upvote 0 Downvote
perhaps a very simple search will help...notice i used a postback...(posting to itself)....you can change this if wanting to put into a function (ie...include.asp)
the sql only uses 2 of the form element values...(i got lazy)...no error checking done...again...just something that you can play with

Code: 
<%
  sCategory = Request.Form("category")
  sSubCategory = Request.Form("sub-category")

  If Request.Form() <> "" Then
   Set oRs = oConn.Execute("SELECT * " & _
                           "FROM table " & _
                           "WHERE Category='" & sCategory & "' AND SubCategory='" & sSubCategory & "';")

   If oRs.EOF Then
    Response.Write "No Match"
   Else
    Do While Not oRs.EOF
     Response.Write oRs("fielddesired") & "<br>"
    oRs.MoveNext
    Loop
   End If
  End If

<form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">

<select name="Category" id="Category" onChange="TCN_reload(this)">
  <option selected>Category</option>
</select>
<select name="Sub-Category" id="Sub-Category" onChange="TCN_reload(this)">
  <option selected>Sub-Category</option>
</select>
<select name="Diameter" id="Diameter" onChange="TCN_reload(this)">
  <option selected>Diameter</option>
</select>
<select name="Height" id="Height" onChange="TCN_reload(this)">
  <option selected>Height</option>
</select>
<select name="Hub" id="Hub" onChange="TCN_reload(this)">
  <option selected>Hub</option>
</select>
<br>
<input type="submit" value="Search">
</form>
 
Upvote 0 Downvote
thanks bslintx I tried it but I am not getting anywhere with it. But thank you I really appreciate the help
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

penguinspeaks
  • Locked
  • Question Question
READ TEXT FILE BASED ON VARIABLE
Replies
2
Views
913
guitarzan
guitarzan
how2trainyourdragon
  • Locked
  • Question Question
Request.Server variables blank for classic ASP
Replies
12
Views
2K
GriffMG
GriffMG
leifoet
  • Locked
  • Question Question
How to insert a variable in a window alert ?
Replies
2
Views
375
leifoet
leifoet
gesrod
  • Locked
  • Question Question
Session variable
Replies
4
Views
465
gesrod
gesrod
leifoet
  • Locked
  • Question Question
How do I create an automatic multiplication in a combo box
Replies
2
Views
352
ChrisHirst
ChrisHirst

Part and Inventory Search

Sponsor

Back
Top