populating a dropdown list based on the value of a textbox (onLoad)

Joelo · Nov 15, 2003

Hello everyone,

Please I want to automatically populate my dropdown list based on the value of a textbox onLoad of the my FORM....
both textbox and dropdown list are populated by my database
i.e
nos. items
1 gum
1 gum1
1 gum4
2 bolt
2 bolt2
If the value of my textbox(nos.) is 1 onLoad of my FORM, my dropdown list will be populated with

<code>
<select name="list" size="1">
<option>gum</option>
<option>gum1</option>
<option>gum4</option>
</select>
</code>

and If the value of my textbox(nos.) is 2 onLoad of my FORM, my dropdown list will be populated with

<code>
<select name="list" size="1">
<option>bolt</option>
<option>bolt2</option>
</select>
</code>

and so on........

please could anyone help me out

GaryC123 · Nov 15, 2003

If the textbox is already populated onLoad then why not just script the select with the correct data at server side. There's no point in using javascript to populate it if the you know what it's going to be before you send the page to the browser

http://www.intouchmedialtd.com

Joelo · Nov 15, 2003

please is there any detailed example...I don't quite understand

Thanks

GaryC123 · Nov 15, 2003

Where are you getting your data for the drop down from and where are you getting the value in the textbox from?

http://www.intouchmedialtd.com

Joelo · Nov 15, 2003

I am getting my data for the drop down and data for textbox from my database

Thanks

GaryC123 · Nov 15, 2003

Ok give me some of your coding so I know what I'm working with, what logic is deciding on the number for the textbox - is this based on some user input from another form?

http://www.intouchmedialtd.com

Joelo · Nov 16, 2003

This is code for my Form:

<form onSubmit="return EW_checkMyForm(this);" action="welljacketdatabaseadd.asp" method="post">
<p>
<input type="hidden" name="a" value="A">
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">WELLJACKETID</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_WELLJACKETID" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_WELLJACKETID&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">WELLID</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><%
x_WELLIDList = "<SELECT name='x_WELLID'><OPTION value=''>Please Select</OPTION>"
sqlwrk = "SELECT [WELLID] FROM [wellheaddatabase]"
Set rswrk = Server.CreateObject("ADODB.Recordset&quot

rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.EOF Then
datawrk = rswrk.GetRows
rowswrk = UBound(datawrk, 2)
For rowcntwrk = 0 To rowswrk
x_WELLIDList = x_WELLIDList & "<OPTION value='" & datawrk(0, rowcntwrk) & "'"
If cstr(datawrk(0, rowcntwrk)&"&quot

= cstr(x_WELLID&"&quot

Then
x_WELLIDList = x_WELLIDList & " selected"
End If
x_WELLIDList = x_WELLIDList & ">" & datawrk(0, rowcntwrk) & "</option>"
Next
End If
rswrk.Close
Set rswrk = Nothing
x_WELLIDList = x_WELLIDList & "</SELECT>"
response.write x_WELLIDList
%>
</font> </td>
</tr>
</table>
<p>
<input type="submit" name="Action" value="ADD">
</form>

GaryC123 · Nov 16, 2003

All I can see there is you're populating one select box with all the records from wellheaddatabase

http://www.intouchmedialtd.com

Joelo · Nov 16, 2003

My textbox data also is being populated by my database
This is my complete code:
<%
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
%>


<%
Response.Buffer = True
key = Request.Querystring("key&quot

If key="" OR IsNull(key) Then key = Request.Form("key&quot

If key="" OR IsNull(key) Then Response.Redirect "welljacketdatabaselist.asp"
'get action
a=Request.Form("a&quot

If a="" OR IsNull(a) Then
a="I" 'display with input box
End If
'get fields from form

x_WELLJACKETID = Request.Form("x_WELLJACKETID&quot

x_WELLID = Request.Form("x_WELLID&quot

' Open Connection to the database
Set conn = Server.CreateObject("ADODB.Connection&quot

conn.Open xDb_Conn_Str
Select Case a
Case "I": ' Get a record to display
tkey = "" & key & ""
strsql = "SELECT * FROM [welljacketdatabase] WHERE [ID]=" & tkey
Set rs = Server.CreateObject("ADODB.Recordset&quot

rs.Open strsql, conn
If rs.EOF Then
Response.Clear
Response.Redirect "welljacketdatabaselist.asp"
Else
rs.MoveFirst
End If
' Get the field contents
x_WELLJACKETID = rs("WELLJACKETID&quot

x_WELLID = rs("WELLID&quot

rs.Close
Set rs = Nothing
Case "U": ' Update
' Open record
tkey = "" & key & ""
strsql = "SELECT * FROM [welljacketdatabase] WHERE [ID]=" & tkey
Set rs = Server.CreateObject("ADODB.Recordset&quot

rs.Open strsql, conn, 1, 2
If rs.EOF Then
Response.Clear
Response.Redirect "welljacketdatabaselist.asp"
End If
tmpFld = Trim(x_WELLJACKETID)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("WELLJACKETID&quot

= tmpFld
tmpFld = Trim(x_WELLID)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("WELLID&quot

= tmpFld
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Response.Clear
Response.Redirect "welljacketdatabaselist.asp"
End Select
%>
<form onSubmit="return EW_checkMyForm(this);" action="welljacketdatabaseadd.asp" method="post">
<p>
<input type="hidden" name="a" value="A">
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">WELLJACKETID</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_WELLJACKETID" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_WELLJACKETID&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">WELLID</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><%
x_WELLIDList = "<SELECT name='x_WELLID'><OPTION value=''>Please Select</OPTION>"
sqlwrk = "SELECT [WELLID] FROM [wellheaddatabase]"
Set rswrk = Server.CreateObject("ADODB.Recordset&quot

rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.EOF Then
datawrk = rswrk.GetRows
rowswrk = UBound(datawrk, 2)
For rowcntwrk = 0 To rowswrk
x_WELLIDList = x_WELLIDList & "<OPTION value='" & datawrk(0, rowcntwrk) & "'"
If cstr(datawrk(0, rowcntwrk)&"&quot

= cstr(x_WELLID&"&quot

Then
x_WELLIDList = x_WELLIDList & " selected"
End If
x_WELLIDList = x_WELLIDList & ">" & datawrk(0, rowcntwrk) & "</option>"
Next
End If
rswrk.Close
Set rswrk = Nothing
x_WELLIDList = x_WELLIDList & "</SELECT>"
response.write x_WELLIDList
%>
</font> </td>
</tr>
</table>
<p>
<input type="submit" name="Action" value="ADD">
</form>

GaryC123 · Nov 16, 2003

I'm still not following what the condition is as to what values to show depending on the text box. Which textbox? Are the two sets of values for the select box in the same table? If so how do you filter them out?

http://www.intouchmedialtd.com

Joelo · Nov 16, 2003

My database has a table with two columns [wellid] and [welljacketID]

ie: wellID welljacketID
1 WJ1
1D WJ1
2 WJ1
2D WJ1
4 WJ3
4D WJ3
5 WJ3
5D WJ3

so now...based on which of the welljacketIDs in my Texbox onLoad....wellid dropdown will be populated with related wellids

ie
If the value of my textbox(welljacketid) is WJ1 onLoad of my FORM, my dropdown list will be populated with

<code>
<select name="list" size="1">
<option>1</option>
<option>1D</option>
<option>2</option>
<option>2D</option>
</select>
</code>

If the value of my textbox(welljacketid) is WJ3 onLoad of my FORM, my dropdown list will be populated with

<code>
<select name="list" size="1">
<option>4</option>
<option>4D</option>
<option>5</option>
<option>5D</option>
</select>
</code>

GaryC123 · Nov 16, 2003

Ok I'm with you on the select box, and that would be populated with a simple select statement
sql="select wellid from wellheaddatabase where welljacketID=" & something

Now the something is the textbox you are talking about, you say onbodyload whether the value is 1 or 2 but what makes it 1 or 2?

http://www.intouchmedialtd.com

Joelo · Nov 16, 2003

Textbox is the WelljacketID field in my database Table and the value welljacketID field have been pre-entered

Joelo · Nov 17, 2003

Please I just need drop down list to lookup to textbox while populating from database table

Joelo · Nov 18, 2003

Please all I am trying do is ......a Dependent dropdown box...
Populating itself with datas related to the value of my textbox (x_welljacketID) when the form is opened by the user.

textbox (x_welljacketID) is automatically populated by my database

Welljackdatabase and wellheaddatabase are tables my Database

This what I have so far... please help me out:

<form onSubmit="return EW_checkMyForm(this);" action="welljacketdatabaseedit.asp" method="post">
<p>
<input type="hidden" name="a" value="U">
<input type="hidden" name="key" value="<%= key %>">
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#CCCCCC">
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">WELLJACKETID</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_WELLJACKETID" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_WELLJACKETID&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">WELLID</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><%

strsql = "SELECT * FROM [welljacketdatabase]"
Set rs = Server.CreateObject("ADODB.Recordset&quot

rs.Open strsql, conn

x_WELLJACKETID = rs("WELLJACKETID&quot

x_WELLIDList = "<SELECT name='x_WELLID'><OPTION value=''>Please Select</OPTION>"

sqlwrk = "SELECT [WELLID] "
sqlwrk = sqlwrk & "FROM [wellheaddatabase] "
sqlwrk = sqlwrk & "WHERE (1=1) "
If x_WELLJACKETID <> "" Then
sqlwrk = sqlwrk & "AND WELLJACKETID ='"&X_WELLJACKETID&"'"
End If
sqlwrk = sqlwrk & "ORDER BY [WELLID]"

Set rswrk = Server.CreateObject("ADODB.Recordset&quot

rswrk.Open sqlwrk, conn, 1, 2
If Not rswrk.EOF Then
datawrk = rswrk.GetRows
rowswrk = UBound(datawrk, 2)
For rowcntwrk = 0 To rowswrk
x_WELLIDList = x_WELLIDList & "<OPTION value='" & datawrk(0, rowcntwrk) & "'"
If cstr(datawrk(0, rowcntwrk)&"&quot

= cstr(x_WELLID&"&quot

Then
x_WELLIDList = x_WELLIDList & " selected"
End If
x_WELLIDList = x_WELLIDList & ">" & datawrk(0, rowcntwrk) & "</option>"
Next
End If
rswrk.Close
Set rswrk = Nothing
x_WELLIDList = x_WELLIDList & "</SELECT>"
response.write x_WELLIDList
%>
</font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">SDVTime</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_SDVTime" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_SDVTime&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">SSVTime</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_SSVTime" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_SSVTime&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">SCSSVTime</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_SCSSVTime" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_SCSSVTime&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">PANELSUPPLYPRESSURE</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_PANELSUPPLYPRESSURE" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_PANELSUPPLYPRESSURE&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">SCSSVHOLDINGPRESSURE</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_SCSSVHOLDINGPRESSURE" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_SCSSVHOLDINGPRESSURE&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ESDTSEHOLDINGPRESSURE</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ESDTSEHOLDINGPRESSURE" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_ESDTSEHOLDINGPRESSURE&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">DIDESDTRIPINDICATORTURNREDDURINGTEST</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_DIDESDTRIPINDICATORTURNREDDURINGTEST" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_DIDESDTRIPINDICATORTURNREDDURINGTEST&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">DIDRESETRELAYTRIPDURINGTEST</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_DIDRESETRELAYTRIPDURINGTEST" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_DIDRESETRELAYTRIPDURINGTEST&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">WASTSETESTEDDURINGTEST</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_WASTSETESTEDDURINGTEST" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_WASTSETESTEDDURINGTEST&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ISAGASCONDITIONINGSKIDINSTALLED</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ISAGASCONDITIONINGSKIDINSTALLED" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_ISAGASCONDITIONINGSKIDINSTALLED&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">AREPANELFACEGUAGESINTHECORRECTRANGEANDFUNCTIONING</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name=" x_AREPANELFACEGUAGESINTHECORRECTRANGEANDFUNCTIONIN
G" size=30 maxlength=50 value="<%= Server. HtmlEncode(x_AREPANELFACEGUAGESINTHECORRECTRANGEAN
DFUNCTIONING&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">OPENANDINSPECTWELLCONTROLPANEL</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_OPENANDINSPECTWELLCONTROLPANEL" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_OPENANDINSPECTWELLCONTROLPANEL&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ISHYDRAULICOILLEVELOK</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ISHYDRAULICOILLEVELOK" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_ISHYDRAULICOILLEVELOK&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ISCONDITIONOFJACKETANDRISEROK</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ISCONDITIONOFJACKETANDRISEROK" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_ISCONDITIONOFJACKETANDRISEROK&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ISBOATLOOPINSTALLED</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ISBOATLOOPINSTALLED" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_ISBOATLOOPINSTALLED&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ESDSTATIONTESTDATE</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ESDSTATIONTESTDATE" value="<%= Server.HtmlEncode(x_ESDSTATIONTESTDATE&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ESDHELLIPORTTESTDATE</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ESDHELLIPORTTESTDATE" value="<%= Server.HtmlEncode(x_ESDHELLIPORTTESTDATE&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">ESDWELLDECKTESTDATE</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_ESDWELLDECKTESTDATE" value="<%= Server.HtmlEncode(x_ESDWELLDECKTESTDATE&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">TESTDATE</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_TESTDATE" value="<%= Server.HtmlEncode(x_TESTDATE&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">MONTHYEAR</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_MONTHYEAR" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_MONTHYEAR&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">FACILITY</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_FACILITY" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_FACILITY&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">AREA</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_AREA" size=30 maxlength=50 value="<%= Server.HtmlEncode(x_AREA&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">TECHNICIANSNAME</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><input type="text" name="x_TECHNICIANSNAME" size=30 maxlength=99 value="<%= Server.HtmlEncode(x_TECHNICIANSNAME&"&quot

%>"></font> </td>
</tr>
<tr>
<td bgcolor="#0099CC"><font color="#FFFFFF"><font size="-1">COMMENTS</font> </font></td>
<td bgcolor="#F5F5F5"><font size="-1"><textarea cols=35 rows=4 name="x_COMMENTS"><%= x_COMMENTS %></textarea></font> </td>
</tr>
</table>
<p>
<input type="submit" name="Action" value="EDIT">
</form>

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!

populating a dropdown list based on the value of a textbox (onLoad)

Joelo

MIS

GaryC123

Programmer

Joelo

MIS

GaryC123

Programmer

Joelo

MIS

GaryC123

Programmer

Joelo

MIS

GaryC123

Programmer

Joelo

MIS

GaryC123

Programmer

Joelo

MIS

GaryC123

Programmer

Joelo

MIS

Joelo

MIS

Joelo

MIS

Similar threads

Part and Inventory Search

Sponsor