joelo
11-17-2003, 04:03 AM
I want to automatically populate my dropdown list related data based on the data in a textbox on form.
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
when the value of my textbox(welljacketid) is WJ1 onLoad of my FORM, my dropdown list will be populated with
1
1D
2
2D
when the value of my textbox(welljacketid) is WJ3 onLoad of my FORM, my dropdown list will be populated with
4
4D
5
5D
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"
%>
<!--#include file="db.asp"-->
<!--#include file="aspmkrfn.asp"-->
<%
Response.Buffer = True
key = Request.Querystring("key")
If key="" OR IsNull(key) Then key = Request.Form("key")
If key="" OR IsNull(key) Then Response.Redirect "welljacketdatabaselist.asp"
'get action
a=Request.Form("a")
If a="" OR IsNull(a) Then
a="I" 'display with input box
End If
'get fields from form
x_WELLJACKETID = Request.Form("x_WELLJACKETID")
x_WELLID = Request.Form("x_WELLID")
' Open Connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
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")
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")
x_WELLID = rs("WELLID")
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")
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") = tmpFld
tmpFld = Trim(x_WELLID)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("WELLID") = 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&"") %>"></font> </td>
</tr>
' My dropdown List starts Here********************
<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")
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)&"") = cstr(x_WELLID&"") 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>
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
when the value of my textbox(welljacketid) is WJ1 onLoad of my FORM, my dropdown list will be populated with
1
1D
2
2D
when the value of my textbox(welljacketid) is WJ3 onLoad of my FORM, my dropdown list will be populated with
4
4D
5
5D
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"
%>
<!--#include file="db.asp"-->
<!--#include file="aspmkrfn.asp"-->
<%
Response.Buffer = True
key = Request.Querystring("key")
If key="" OR IsNull(key) Then key = Request.Form("key")
If key="" OR IsNull(key) Then Response.Redirect "welljacketdatabaselist.asp"
'get action
a=Request.Form("a")
If a="" OR IsNull(a) Then
a="I" 'display with input box
End If
'get fields from form
x_WELLJACKETID = Request.Form("x_WELLJACKETID")
x_WELLID = Request.Form("x_WELLID")
' Open Connection to the database
Set conn = Server.CreateObject("ADODB.Connection")
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")
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")
x_WELLID = rs("WELLID")
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")
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") = tmpFld
tmpFld = Trim(x_WELLID)
If trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("WELLID") = 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&"") %>"></font> </td>
</tr>
' My dropdown List starts Here********************
<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")
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)&"") = cstr(x_WELLID&"") 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>