Two combos, one textbox exampleHere is the code for this Example Page one <!-- Author: Adrian Forbes -->
<%
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;UID=LoginID;PWD=Password;DATABASE=Database_Name
set conn = server.createobject("adodb.connection")
conn.open strconn
set objRS = createobject("ADODB.Recordset")
objRS.Open "select ID, strParent from Parents", strconn
if Request("cboPrimary") = "" then
lPrimary = objRS("ID")
else
lPrimary = clng(Request("cboPrimary"))
end if
%>
<form name=frmTest action="2Combo1TextboxTarget.asp" method=POST>
<p>
<select name=cboPrimary size=1 onChange="RefreshPage()">
<%while not objRS.EOF
lID = clng(objRS("ID"))%>
<option value="<%=lID%>"<%if lPrimary = lID then Response.Write " SELECTED"%>><%=objRS("strParent")%>
<% objRS.MoveNext
wend
objRS.Close
objRS.Open "select ID, strChild, intValue from Children WHERE intParent=" & lPrimary, strconn
%>
</select>
<select name=cboSecondary size=1" onChange="PopulateTextbox()">
<%while not objRS.EOF
lID = clng(objRS("ID"))%>
<option value="<%=lID%>"><%=objRS("strChild")%>
<% objRS.MoveNext
wend
%>
</select> <input type=TEXT name=txtValue>
<p><input type=SUBMIT value="Submit" id=SUBMIT1 name=SUBMIT1>
</form>
<%
objRS.MoveFirst
while not objRS.EOF%>
<input type=HIDDEN ID="intValue<%=objRS("ID")%>" value="<%=objRS("intValue")%>">
<%objrs.MoveNext
wend
objRS.Close
set objRS.ActiveConnection = nothing
set objRS = nothing
%>
<form name=frmRefresh action="2Combo1Textbox.asp" method=POST>
<input type=HIDDEN name=cboPrimary>
<input type=HIDDEN name=cboSecondary>
</form>
<script language=VBScript>
sub window_onLoad
PopulateTextbox
end sub
sub PopulateTextbox
lID = document.frmTest.cboSecondary.value
document.frmTest.txtValue.value = document.all("intValue" & lID).value
end sub
sub RefreshPage
frmRefresh.cboPrimary.value = frmTest.cboPrimary.value
frmRefresh.cboSecondary.value = frmTest.cboSecondary.value
frmRefresh.submit
end sub
</script>
Page Two <%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<table border=0>
<tr>
<td>Primary</td></td><td><%=Request("cboPrimary")%></td>
</tr>
<tr>
<td>Secondary</td></td><td><%=Request("cboSecondary")%></td>
</tr>
<tr>
<td>Value</td></td><td><%=Request("txtValue")%></td>
</tr>
</BODY>
</HTML> |
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
More ASP Code Articles
More By aspfree  developerWorks - FREE Tools!
|
You'll get answers to many questions and more from David Barnes, Lead Evangelist for IBM Emerging Internet Technologies. David will discuss aspects of Web 2.0 that bring value to corporations, academia, and government. He'll also discuss IBM's vision around Web 2.0, including the importance of remixability and consumability. The discussion will culminate with examples of various IBM Software Group solutions you can use to get ahead of the Web 2.0 adoption curve.
FREE! Go There Now!
| | | |
This tutorial shows new users of IBM WebSphere Business Monitor Version 6.0.2 how to perform the "Hello World" equivalent for monitoring business process applications. It is intended to help you get familiar with the capabilities of the product.
FREE! Go There Now!
| | | |
Learn from the best! Find out how developers use Rational ClearCase to be more flexible, innovative and deliver higher quality code in the Rational ClearCase Power Users eKit. This complimentary eKit provides a collection of materials, like articles, whitepapers, and demos that can help you become a power user of Rational ClearCase.
FREE! Go There Now!
| | | |
Portfolio Management is about effectively managing portfolio value by aligning portfolio investments with business goals. This complimentary e-kit provides a collection of materials that can help you understand how IBM Rational enables and automates best practices for improved governance and clear visibility into portfolio and project performance across the entire IT project lifecycle.
FREE! Go There Now!
| | | |
As organizations have grown increasingly dependent on online software, the risk of malicious attacks has also become far more serious. Fortunately, well-governed organizations can protect their Web applications by injecting vulnerability assessments and ethical hacks into their software development and delivery processes. This paper describes 12 of the most common hacker attacks and provides basic rules that you can follow to help create more hack-resistant Web applications.
FREE! Go There Now!
| | | |
This paper is about the critical role that a discipline called integrated requirements management can play in helping to ensure that your business goals and IT investments are continuously aligned—whether you are sourcing, integrating, building or maintaining software. It also looks at ways that automated IBM Rational® products can work together to help you use requirements in the very best way.
FREE! Go There Now!
| | | |
Get a free trial download of the latest version of IBM Rational Tester for SOA Quality V7.0.1, a functional and regression testing tool that enables the creation, comprehension, modification and execution of testing GUI-less Web services.
FREE! Go There Now!
| | | |
You can now evaluate IBM Rational Asset Manager V7.0 online without installing or configuring it on your own system! Rational Asset Manager helps create, modify, govern, find, and reuse any type of development assets, including SOA and systems development assets. Rational Asset Manager helps you reduce software development costs and improve quality by facilitating the reuse of all types of software development-related assets. Visit developerWorks to learn more about this product and register to explore its capabilities online.
FREE! Go There Now!
| | | |
As businesses grow increasingly dependent upon Web applications, these complex entities grow more difficult to secure. Most companies equip their Web sites with firewalls, Secure Sockets Layer (SSL), and network and host security, but the majority of attacks are on applications themselves – and these technologies cannot prevent them. This paper explains what you can do to help protect your organization, and it discusses an approach for improving your organization’s Web application security.
FREE! Go There Now!
| | | |
Attend this launch webcast with Scott Hebner, Vice President of IBM Rational Marketing and Strategy, where he will overview Rational’s new offerings and programs to help customers accelerate software innovation on System z. He will discuss how these solutions help organizations extend their core business processes toward modern architectures such as SOA and web technologies to deliver business improvements that stand the test of time.
FREE! Go There Now!
| | | |
All FREE IBM® developerWorks Tools!
| |
/ 4 
