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 derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Will Not Let Me Get Past 6 Drop Down Boxes

Status
Not open for further replies.
jcpelejo

jcpelejo

Programmer
Jul 29, 2001
70
US
Hello. I am having a problem populating my seventh drop down box. When I try and view the options in my seventh drop down box, it does not show me any options. Please advise.

<%@ Language=VBScript %>
<% Option Explicit %>
<%


Call Main()

Sub Main()
' If the form is submitted, just display the selected year and make
If Request.Form(&quot;cmdSubmit&quot;) <> &quot;&quot; Then
Response.Write &quot;<B> VehicleYear = &quot; & Request.Form(&quot;cboVehicleYear&quot;) & _
&quot; VehicleMake = &quot; & Request.Form(&quot;cboVehicleMake&quot;) & &quot; VehicleModel = &quot; & Request.Form(&quot;cboVehicleModel&quot;) & &quot;</B>&quot;
Exit Sub
End If

Dim objConnection ' ADO Connection object
Dim strAccessDB ' Database name
Dim strCon ' Microsoft Access Driver
Dim strDate ' Current system date
Dim strTime ' Current system time
Dim strOptions ' Menu options
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
Dim strSQL4 ' SQL query to be executed
Dim strSQL5 ' SQL query to be executed
Dim strSQL6 ' SQL query to be executed


Set objConnection = Server.CreateObject(&quot;ADODB.Connection&quot;)
strAccessDB = &quot;\fpdb\claim.mdb&quot;
strCon = &quot;DRIVER={Microsoft Access Driver (*.mdb)};uid=;pwd=patrick; DBQ=&quot; & Server.MapPath(strAccessDB)
objConnection.Open strCon

Dim rsVehicleYear ' recordset that holds the Vehicle Year Information
Dim rsVehicleMake ' recordset that holds the Vehicle Make Information
Dim rsVehicleModel ' recordset that holds the Vehicle Model Information
Dim rsVehicleCondition ' recordset that holds the Vehicle Condition Information
Dim rsTP ' recordset that holds the Claim Suffix Information
Dim rsStatus ' recordset that holds the Status Information
Dim rsAudit ' recordset that holds the Audit Letter Information

Dim strVehicleYear ' holds the Vehicle Year
Dim strVehicleMake ' holds the Vehicle Make
Dim strVehicleModel ' holds the Vehicle Model
Dim strVehicleCondition ' holds the Vehicle Condition
Dim strTP ' holds the Claim Suffix
Dim strStatus ' holds the Status
Dim strAudit ' hold the Audit Letter

Set rsVehicleYear = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Set rsVehicleMake = Server.CreateObject(&quot;ADODB.Recordset&quot;)
Set rsVehicleModel = Server.CreateObject(&quot;ADODB.Recordset&quot;)

strSQL = &quot;SELECT DISTINCT * FROM [Vehicle Description]&quot;
strSQL1 = &quot;SELECT DISTINCT VehicleYear FROM [Vehicle Description]&quot;
strSQL2 = &quot;SELECT DISTINCT VehicleMake FROM [Vehicle Description]&quot;

Set rsVehicleYear = objConnection.Execute(strSQL1)

' 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(&quot;cboVehicleYear&quot;)
If strVehicleYear = &quot;&quot; Then
If Not rsVehicleYear.EOF Then
strVehicleYear = rsVehicleYear(&quot;VehicleYear&quot;)
End If
End If

If strVehicleYear <> &quot;&quot; Then
strSQL = &quot;SELECT DISTINCT VehicleYear, VehicleMake FROM [Vehicle Description] WHERE VehicleYear = '&quot; & strVehicleYear & &quot;'&quot;
Set rsVehicleMake = objConnection.Execute(strSQL)
strVehicleMake = Request.Form(&quot;cboVehicleMake&quot;)
If strVehicleMake = &quot;&quot; Or Request.Form(&quot;hid_VehicleYear_Changed&quot;) = &quot;True&quot; Then
If Not rsVehicleMake.EOF Then
strVehicleMake = rsVehicleMake(&quot;VehicleMake&quot;)
End If
End If
strSQL = &quot;SELECT DISTINCT * FROM [Vehicle Description] WHERE VehicleMake='&quot; & strVehicleMake & &quot;'&quot; & _
&quot; AND VehicleYear = '&quot; & strVehicleYear & &quot;'&quot;
Set rsVehicleModel = objConnection.Execute(strSQL)
End If
%>
<HTML>
<HEAD>
</HEAD>
<BODY>
<CENTER>
<FORM NAME=frmHierarchy METHOD=post ACTION=&quot;Hierarchy.asp&quot;>
<INPUT TYPE=HIDDEN NAME=hid_VehicleYear_Changed>
<INPUT TYPE=HIDDEN NAME=hid_VehicleMake_Changed>
<P><H2><font face=&quot;Franklin Gothic Medium Cond&quot; size=&quot;6&quot;>Manual Claims System - MR Canada</font></H2>
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 ALIGN=&quot;CENTER&quot;>
<TR>
<TD> <font size=&quot;2&quot;>Claim Number:</font> </TD>
<TD> <input type=&quot;text&quot; name=&quot;txtClaimNumber&quot; size=&quot;20&quot;> </TD>
<TD> <font size=&quot;2&quot;>User ID:</font> </TD>
<TD> <input type=&quot;text&quot; name=&quot;T1&quot; size=&quot;20&quot;> </TD>
<TD> <font size=&quot;2&quot;>Date:</font> </TD>
<TD>
<%
strDate = formatdatetime(now(),vbshortdate)
response.write&quot;<input type='text' size='10' name='txtDateSystem' value='&quot; & strDate & &quot;'>&quot;
%>
</TD>

</TR>
<TR>
<TD colspan=&quot;2&quot;> </TD>
<TD colspan=&quot;2&quot;> </TD>
<TD> <font size=&quot;2&quot;>Time:</font> </TD>
<TD>
<%
strTime = formatdatetime(now(),vblongtime)
response.write&quot;<input type='text' size='10' name='txtTimeSystem' value='&quot; & strTime & &quot;'>&quot;
%>
</TD>
</TR>
<tr>
<TD colspan=&quot;6&quot;> </TD>
</tr>
<tr>
<TD colspan=&quot;6&quot;> <font face=&quot;Arial&quot; size=&quot;4&quot;>Add/Edit A ScratchPad</font> </TD>
</tr>
<TR>
<TD> <font size=&quot;2&quot;>Issue Date:</font> </TD>
<TD> <input type=&quot;text&quot; name=&quot;T4&quot; size=&quot;14&quot;> </TD>
<TD> <font size=&quot;2&quot;>New/Used:</font> </TD>
<TD> <select id=&quot;cboVehicleCondition&quot; name=&quot;cboVehicleCondition&quot; onchange=&quot;Change(frmHierarchy)&quot;>
<%
Set rsVehicleCondition=Server.CreateObject(&quot;ADODB.Recordset&quot;)
strSQL3 = &quot;SELECT * FROM [Vehicle Condition]&quot;
rsVehicleCondition.Open strSQL3, objConnection

Do while not rsVehicleCondition.EOF
Response.Write &quot;<OPTION VALUE = '&quot; & rsVehicleCondition (&quot;VehicleCondition&quot;) & &quot;'>&quot;
Response.Write rsVehicleCondition(&quot;VehicleCondition&quot;) & &quot;</Option>&quot;
rsVehicleCondition.MoveNext
Loop


rsVehicleCondition.Close
Set rsVehicleCondition = Nothing

%>
</SELECT> </TD>
<TD colspan=&quot;2&quot;> </TD>
</TR>
<tr>
<TD><font size=&quot;2&quot;>Odometer:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T5&quot; size=&quot;20&quot;></TD>
<TD><font size=&quot;2&quot;>VIN:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T6&quot; size=&quot;26&quot;></TD>
<TD> </TD>
<TD></TD>
</tr>
<tr>
<TD><font size=&quot;2&quot;>Vehicle Year:</font> </TD>
<TD><SELECT id=cboVehicleYear name=cboVehicleYear onchange=&quot;ChangeVehicleYear()&quot;>
<%
' Add the Vehicle Year to the list
If Not rsVehicleYear.EOF Then
Do While Not rsVehicleYear.EOF
strVehicleYear = rsVehicleYear(&quot;VehicleYear&quot;)
If rsVehicleYear(&quot;VehicleYear&quot;) = Request.Form(&quot;cboVehicleYear&quot;) Then %>
<OPTION VALUE=&quot;<%=rsVehicleYear(&quot;VehicleYear&quot;)%>&quot; SELECTED> <%=strVehicleYear%></OPTION>
<%
Else
%>
<OPTION VALUE=&quot;<%=rsVehicleYear(&quot;VehicleYear&quot;)%>&quot; > <%=strVehicleYear%></OPTION>
<%
End If
rsVehicleYear.MoveNext
Loop
End If
'Reset the record pointer to the first record
rsVehicleYear.MoveFirst
%>
</SELECT></TD>
<TD><font size=&quot;2&quot;>Vehicle Make:</font> </TD>
<TD><SELECT id=cboVehicleMake name=cboVehicleMake onchange=&quot;ChangeVehicleMake()&quot; >
<%
' Add the Vehicle Make to the list
If Not rsVehicleMake.EOF Then
Do While Not rsVehicleMake.EOF
strVehicleMake = rsVehicleMake(&quot;VehicleMake&quot;)
If rsVehicleMake(&quot;VehicleMake&quot;) = Request.Form(&quot;cboVehicleMake&quot;) Then
%>
<OPTION Value=&quot;<%=rsVehicleMake(&quot;VehicleMake&quot;)%>&quot; SELECTED> <%=strVehicleMake%></OPTION>
<%
Else
%>
<OPTION Value=&quot;<%=rsVehicleMake(&quot;VehicleMake&quot;)%>&quot; > <%=strVehicleMake%></OPTION>
<%
End If
rsVehicleMake.MoveNext
Loop
End If

'Reset the record pointer to the first record
rsVehicleMake.MoveFirst
%>
</SELECT></TD>
<TD><font size=&quot;2&quot;>Vehicle Model:</font> </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(&quot;VehicleModel&quot;) %>
<OPTION Value=&quot;<%=rsVehicleModel(&quot;VehicleModel&quot;)%>&quot; > <%=strVehicleModel%></OPTION>
<%
rsVehicleModel.MoveNext
Loop
End If
%>
</SELECT></TD>
</tr>
<tr>
<TD><font size=&quot;2&quot;>First Name:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T7&quot; size=&quot;23&quot;></TD>
<TD> <font size=&quot;2&quot;>MI:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T8&quot; size=&quot;5&quot;></TD>
<TD> <font size=&quot;2&quot;>Last Name:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T9&quot; size=&quot;24&quot;></TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>Phone Number</font>:: </TD>
<TD><input type=&quot;text&quot; name=&quot;T10&quot; size=&quot;20&quot;></TD>
<TD> <font size=&quot;2&quot;>Address:</font> </TD>
<TD colspan=&quot;3&quot;><input type=&quot;text&quot; name=&quot;T11&quot; size=&quot;55&quot;></TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>City:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T12&quot; size=&quot;20&quot;></TD>
<TD> <font size=&quot;2&quot;>Province:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T13&quot; size=&quot;20&quot;></TD>
<TD> <font size=&quot;2&quot;>Country:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T14&quot; size=&quot;20&quot;></TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>Postal Code:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T15&quot; size=&quot;12&quot;></TD>
<TD> <font size=&quot;2&quot;>Terms Months</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T16&quot; size=&quot;5&quot;></TD>
<TD> <font size=&quot;2&quot;>Terms Kms</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T17&quot; size=&quot;20&quot;></TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>Agreement #:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T18&quot; size=&quot;20&quot;></TD>
<TD> </TD>
<TD></TD>
<TD> </TD>
<TD></TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>Selling Client:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T19&quot; size=&quot;20&quot;></TD>
<TD colspan=&quot;2&quot;> <font size=&quot;1&quot;>Please double-click on text box to list options</font> </TD>
<TD> </TD>
<TD></TD>
</tr>
<tr>
<TD colspan=&quot;6&quot;>  
<p>  </TD>
</tr>
<tr>
<TD colspan=&quot;6&quot;> <font face=&quot;Arial&quot; size=&quot;4&quot;>Update Claim Detail Details</font> </TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>TP:</font> </TD>
<TD><select id=&quot;cboTP&quot; name=&quot;cboTP&quot; onchange=&quot;Change(frmHierarchy)&quot;>
<%
Set rsTP=Server.CreateObject(&quot;ADODB.Recordset&quot;)
strSQL4 = &quot;SELECT * FROM [Claim Suffix Type]&quot;
rsTP.Open strSQL4, objConnection

Do while not rsTP.EOF
Response.Write &quot;<OPTION VALUE = '&quot; & rsTP (&quot;TP&quot;) & &quot;'>&quot;
Response.Write rsTP(&quot;TP&quot;) & &quot;</Option>&quot;
rsTP.MoveNext
Loop


rsTP.Close
Set rsTP = Nothing

%>

</select></TD>
<TD> <font size=&quot;2&quot;>Bkdn Date:</font> </TD>
<TD> <input type=&quot;text&quot; name=&quot;T20&quot; size=&quot;20&quot;> </TD>
<TD> <font size=&quot;2&quot;>Odometer:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T21&quot; size=&quot;20&quot;></TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>Invoice:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T22&quot; size=&quot;20&quot;></TD>
<TD> <font size=&quot;2&quot;>Status:</font> </TD>
<TD> <select id=&quot;cboStatus&quot; name=&quot;cboStatus&quot; onchange=&quot;Change(frmHierarchy)&quot;>
<%
Set rsStatus=Server.CreateObject(&quot;ADODB.Recordset&quot;)
strSQL5 = &quot;SELECT * FROM [Status Codes]&quot;
rsStatus.Open strSQL5, objConnection

Do while not rsStatus.EOF
Response.Write &quot;<OPTION VALUE = '&quot; & rsStatus (&quot;Code&quot;) & &quot;'>&quot;
Response.Write rsStatus(&quot;Code&quot;) & &quot;</Option>&quot;
rsStatus.MoveNext
Loop


rsStatus.Close
Set rsStatus = Nothing

%>

</select> </TD>
<TD> <font size=&quot;2&quot;>Est Amount:</font> </TD>
<TD><input type=&quot;text&quot; name=&quot;T23&quot; size=&quot;20&quot;></TD>
</tr>
<tr>
<TD> <font size=&quot;2&quot;>Audit Letter:</font> </TD>
<TD><select id=&quot;cboAuditLetter&quot; name=&quot;cboAuditLetter&quot; onchange=&quot;Change(frmHierarchy)&quot;>

</select>
</TD>
<TD> </TD>
<TD> </TD>
<TD> </TD>
<TD></TD>
</tr>
</TABLE>
<P><INPUT id=cmdSubmit name=cmdSubmit type=submit value=Submit></P>
<P> </P></FORM>
</FORM>
</CENTER>
</BODY>
<SCRIPT LANGUAGE=&quot;JavaScript&quot;>

function ChangeVehicleYear()
{
document.frmHierarchy.hid_VehicleYear_Changed.value = &quot;True&quot;;
document.frmHierarchy.submit();
}

function ChangeVehicleMake()
{
document.frmHierarchy.hid_VehicleMake_Changed.value = &quot;True&quot;;
document.frmHierarchy.submit();
}

function Change(frmHierarchy)
{
frmHierarchy.submit();
}


</SCRIPT>
</HTML>
<%
' Release the connection and recordsets


rsVehicleYear.Close
rsVehicleMake.Close
rsVehicleModel.Close
objConnection.Close
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
 
Status
Not open for further replies.

Similar threads

leifoet
  • Locked
  • Question
Code does not run in Microsoft Edge - it does in Google Chrome
Replies
3
Views
707
leifoet
leifoet
penguinspeaks
  • Locked
  • Question
iis woos (not displaying pages correctly)
Replies
1
Views
366
penguinspeaks
penguinspeaks
leifoet
  • Locked
  • Question
How to display the contents of a drop-down list in a column structure ?
Replies
2
Views
174
leifoet
leifoet
leifoet
  • Locked
  • Question
Multi-selection dropdown list does not work
Replies
0
Views
164
leifoet
leifoet
leifoet
  • Locked
  • Question
How to get the intended selected value in a drop-down list ?
Replies
11
Views
284
leifoet
leifoet

Part and Inventory Search

Sponsor

Back
Top