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!
-
Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
3 dynamically linked dropdowns
- Thread starter qasmi
- Start date
Here is an example that I was working on. It is based on the year, make and model of a vehicle.
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Call Main()
Sub Main()
' If the form is submitted, just display the selected Vehicle Make and Vehicle Model
If Request.Form("cmdSubmit"
<> "" Then
Response.Write "<B> VehicleYear = " & Request.Form("cboVehicleYear" & _
" VehicleMake = " & Request.Form("cboVehicleMake" & " VehicleModel = " & Request.Form("cboVehicleModel" & "</B>"
Exit Sub
End If
Dim objConnection ' ADO Connection object
Dim strAccessDB ' Database name
Dim strCon ' Microsoft Access Driver
Dim strSQL ' SQL query to be executed
Dim strSQL1 ' SQL query to be executed
Dim strSQL2 ' SQL query to be executed
Dim strSQL3 ' SQL query to be executed
Set objConnection = Server.CreateObject("ADODB.Connection"
strAccessDB = "\fpdb\claim.mdb"
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=patrick; DBQ=" & Server.MapPath(strAccessDB)
objConnection.Open strCon
Dim rsVehicleYear ' recordset that holds the Vehicle Year Information
Dim rsVehicleMake ' recordset that holds the Country Information
Dim rsVehicleModel ' recordset that holds the State Information
Dim strVehicleYear ' holds the Vehicle Year
Dim strVehicleMake ' holds the Country ID
Dim strVehicleModel ' holds the State ID
Set rsVehicleYear = Server.CreateObject("ADODB.Recordset"
Set rsVehicleMake = Server.CreateObject("ADODB.Recordset"
Set rsVehicleModel = Server.CreateObject("ADODB.Recordset"
strSQL = "SELECT DISTINCT * FROM [Vehicle Description]"
Set rsVehicleYear = objConnection.Execute(strSQL)
' Check if there is a Vehicle Year selected by the user
' If not, just take the first Vehicle Year as the
' filter for the Vehicle Make List
strVehicleYear = Request.Form("cboVehicleYear"
If strVehicleYear = "" Then
If Not rsVehicleYear.EOF Then
strVehicleYear = rsVehicleYear("VehicleYear"
End If
End If
If strVehicleYear <> "" Then
strSQL = "SELECT DISTINCT * FROM [Vehicle Description] WHERE VehicleYear = '" & strVehicleYear & "'"
Set rsVehicleMake = objConnection.Execute(strSQL)
strVehicleMake = Request.Form("cboVehicleMake"
If strVehicleMake = "" Or Request.Form("hid_VehicleYear_Changed" = "True" Then
If Not rsVehicleMake.EOF Then
strVehicleMake = rsVehicleMake("VehicleMake"
End If
End If
strSQL = "SELECT DISTINCT * FROM [Vehicle Description] WHERE VehicleMake='" & strVehicleMake & "'" & _
" AND VehicleYear = '" & strVehicleYear & "'"
Set rsVehicleModel = objConnection.Execute(strSQL)
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<CENTER>
<FORM NAME=frmHierarchy METHOD=post ACTION="Hierarchy.asp">
<INPUT TYPE=HIDDEN NAME=hid_VehicleYear_Changed>
<INPUT TYPE=HIDDEN NAME=hid_VehicleMake_Changed>
<P><H2>Hierarchial Selection of Items</H2></P>
<TABLE CELLSPACING=5 CELLPADDING=5 BORDER=0 ALIGN="CENTER">
<TR>
<TD>Vehicle Year: </TD>
<TD><SELECT id=cboVehicleYear name=cboVehicleYear onchange="ChangeVehicleYear()">
<%
' Add the Vehicle Year to the list
If Not rsVehicleYear.EOF Then
Do While Not rsVehicleYear.EOF
strVehicleYear = rsVehicleYear("VehicleYear"
If rsVehicleYear("VehicleYear" = Request.Form("cboVehicleYear" Then %>
<OPTION VALUE="<%=rsVehicleYear("VehicleYear"%>" SELECTED> <%=strVehicleYear%></OPTION>
<%
Else
%>
<OPTION VALUE="<%=rsVehicleYear("VehicleYear"%>" > <%=strVehicleYear%></OPTION>
<%
End If
rsVehicleYear.MoveNext
Loop
End If
'Reset the record pointer to the first record
rsVehicleYear.MoveFirst
%>
</SELECT></TD>
</TR>
<TR>
<TD>Vehicle Make: </TD>
<TD><SELECT id=cboVehicleMake name=cboVehicleMake onchange="ChangeVehicleMake()" >
<%
' Add the Vehicle Make to the list
If Not rsVehicleMake.EOF Then
Do While Not rsVehicleMake.EOF
strVehicleMake = rsVehicleMake("VehicleMake"
If rsVehicleMake("VehicleMake" = Request.Form("cboVehicleMake" Then
%>
<OPTION Value="<%=rsVehicleMake("VehicleMake"%>" SELECTED> <%=strVehicleMake%></OPTION>
<%
Else
%>
<OPTION Value="<%=rsVehicleMake("VehicleMake"%>" > <%=strVehicleMake%></OPTION>
<%
End If
rsVehicleMake.MoveNext
Loop
End If
'Reset the record pointer to the first record
rsVehicleMake.MoveFirst
%>
</SELECT></TD>
</TR>
<TR>
<TD>Vehicle Model: </TD>
<TD><SELECT id=cboVehicleModel name=cboVehicleModel>
<%
' Add the Vehicle Model to the list
If Not rsVehicleModel.EOF Then
Do While Not rsVehicleModel.EOF
strVehicleModel = rsVehicleModel("VehicleModel" %>
<OPTION Value="<%=rsVehicleModel("VehicleModel"%>" > <%=strVehicleModel%></OPTION>
<%
rsVehicleModel.MoveNext
Loop
End If
%>
</SELECT></TD>
</TR>
</TABLE>
<P><INPUT id=cmdSubmit name=cmdSubmit type=submit value=Submit></P>
<P> </P></FORM>
</FORM>
</CENTER>
</BODY>
<SCRIPT LANGUAGE="JavaScript">
function ChangeVehicleYear()
{
document.frmHierarchy.hid_VehicleYear_Changed.value = "True";
document.frmHierarchy.submit();
}
function ChangeVehicleMake()
{
document.frmHierarchy.hid_VehicleMake_Changed.value = "True";
document.frmHierarchy.submit();
}
</SCRIPT>
</HTML>
<%
' Release the connection and recordsets
Set objConnection = Nothing
Set rsVehicleYear = Nothing
Set rsVehicleMake = Nothing
Set rsVehicleModel = Nothing
End Sub
%>
Life is too short to waste...
Julius Pelejo
jcpelejo@hotmail.com
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Call Main()
Sub Main()
' If the form is submitted, just display the selected Vehicle Make and Vehicle Model
If Request.Form("cmdSubmit"
<> "" ThenResponse.Write "<B> VehicleYear = " & Request.Form("cboVehicleYear"
& _" VehicleMake = " & Request.Form("cboVehicleMake"
& " VehicleModel = " & Request.Form("cboVehicleModel" & "</B>" Exit Sub
End If
Dim objConnection ' ADO Connection object
Dim strAccessDB ' Database name
Dim strCon ' Microsoft Access Driver
Dim strSQL ' SQL query to be executed
Dim strSQL1 ' SQL query to be executed
Dim strSQL2 ' SQL query to be executed
Dim strSQL3 ' SQL query to be executed
Set objConnection = Server.CreateObject("ADODB.Connection"
strAccessDB = "\fpdb\claim.mdb"
strCon = "DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=patrick; DBQ=" & Server.MapPath(strAccessDB)
objConnection.Open strCon
Dim rsVehicleYear ' recordset that holds the Vehicle Year Information
Dim rsVehicleMake ' recordset that holds the Country Information
Dim rsVehicleModel ' recordset that holds the State Information
Dim strVehicleYear ' holds the Vehicle Year
Dim strVehicleMake ' holds the Country ID
Dim strVehicleModel ' holds the State ID
Set rsVehicleYear = Server.CreateObject("ADODB.Recordset"
Set rsVehicleMake = Server.CreateObject("ADODB.Recordset"
Set rsVehicleModel = Server.CreateObject("ADODB.Recordset"
strSQL = "SELECT DISTINCT * FROM [Vehicle Description]"
Set rsVehicleYear = objConnection.Execute(strSQL)
' Check if there is a Vehicle Year selected by the user
' If not, just take the first Vehicle Year as the
' filter for the Vehicle Make List
strVehicleYear = Request.Form("cboVehicleYear"
If strVehicleYear = "" Then
If Not rsVehicleYear.EOF Then
strVehicleYear = rsVehicleYear("VehicleYear"
End If
End If
If strVehicleYear <> "" Then
strSQL = "SELECT DISTINCT * FROM [Vehicle Description] WHERE VehicleYear = '" & strVehicleYear & "'"
Set rsVehicleMake = objConnection.Execute(strSQL)
strVehicleMake = Request.Form("cboVehicleMake"
If strVehicleMake = "" Or Request.Form("hid_VehicleYear_Changed"
= "True" ThenIf Not rsVehicleMake.EOF Then
strVehicleMake = rsVehicleMake("VehicleMake"
End If
End If
strSQL = "SELECT DISTINCT * FROM [Vehicle Description] WHERE VehicleMake='" & strVehicleMake & "'" & _
" AND VehicleYear = '" & strVehicleYear & "'"
Set rsVehicleModel = objConnection.Execute(strSQL)
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<CENTER>
<FORM NAME=frmHierarchy METHOD=post ACTION="Hierarchy.asp">
<INPUT TYPE=HIDDEN NAME=hid_VehicleYear_Changed>
<INPUT TYPE=HIDDEN NAME=hid_VehicleMake_Changed>
<P><H2>Hierarchial Selection of Items</H2></P>
<TABLE CELLSPACING=5 CELLPADDING=5 BORDER=0 ALIGN="CENTER">
<TR>
<TD>Vehicle Year: </TD>
<TD><SELECT id=cboVehicleYear name=cboVehicleYear onchange="ChangeVehicleYear()">
<%
' Add the Vehicle Year to the list
If Not rsVehicleYear.EOF Then
Do While Not rsVehicleYear.EOF
strVehicleYear = rsVehicleYear("VehicleYear"
If rsVehicleYear("VehicleYear"
= Request.Form("cboVehicleYear" Then %><OPTION VALUE="<%=rsVehicleYear("VehicleYear"
%>" SELECTED> <%=strVehicleYear%></OPTION><%
Else
%>
<OPTION VALUE="<%=rsVehicleYear("VehicleYear"
%>" > <%=strVehicleYear%></OPTION><%
End If
rsVehicleYear.MoveNext
Loop
End If
'Reset the record pointer to the first record
rsVehicleYear.MoveFirst
%>
</SELECT></TD>
</TR>
<TR>
<TD>Vehicle Make: </TD>
<TD><SELECT id=cboVehicleMake name=cboVehicleMake onchange="ChangeVehicleMake()" >
<%
' Add the Vehicle Make to the list
If Not rsVehicleMake.EOF Then
Do While Not rsVehicleMake.EOF
strVehicleMake = rsVehicleMake("VehicleMake"
If rsVehicleMake("VehicleMake"
= Request.Form("cboVehicleMake" Then%>
<OPTION Value="<%=rsVehicleMake("VehicleMake"
%>" SELECTED> <%=strVehicleMake%></OPTION><%
Else
%>
<OPTION Value="<%=rsVehicleMake("VehicleMake"
%>" > <%=strVehicleMake%></OPTION><%
End If
rsVehicleMake.MoveNext
Loop
End If
'Reset the record pointer to the first record
rsVehicleMake.MoveFirst
%>
</SELECT></TD>
</TR>
<TR>
<TD>Vehicle Model: </TD>
<TD><SELECT id=cboVehicleModel name=cboVehicleModel>
<%
' Add the Vehicle Model to the list
If Not rsVehicleModel.EOF Then
Do While Not rsVehicleModel.EOF
strVehicleModel = rsVehicleModel("VehicleModel"
%><OPTION Value="<%=rsVehicleModel("VehicleModel"
%>" > <%=strVehicleModel%></OPTION><%
rsVehicleModel.MoveNext
Loop
End If
%>
</SELECT></TD>
</TR>
</TABLE>
<P><INPUT id=cmdSubmit name=cmdSubmit type=submit value=Submit></P>
<P> </P></FORM>
</FORM>
</CENTER>
</BODY>
<SCRIPT LANGUAGE="JavaScript">
function ChangeVehicleYear()
{
document.frmHierarchy.hid_VehicleYear_Changed.value = "True";
document.frmHierarchy.submit();
}
function ChangeVehicleMake()
{
document.frmHierarchy.hid_VehicleMake_Changed.value = "True";
document.frmHierarchy.submit();
}
</SCRIPT>
</HTML>
<%
' Release the connection and recordsets
Set objConnection = Nothing
Set rsVehicleYear = Nothing
Set rsVehicleMake = Nothing
Set rsVehicleModel = Nothing
End Sub
%>
Life is too short to waste...
Julius Pelejo
jcpelejo@hotmail.com
check out which covers the client side code required for this, you should be able to populate this from the ASP.
There are also several FAQ's written on this subject, available from the FAQ tab above.
-T
01000111 01101111 01110100 00100000 01000011 01101111 01100110 01100110 01100101 01100101 00111111
The never-completed website:
-T
01000111 01101111 01110100 00100000 01000011 01101111 01100110 01100110 01100101 01100101 00111111
The never-completed website:
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question
- Locked
- Question