Solved

OnChange Event for DropDown List

Posted on 2004-09-27
4
1,154 Views
Last Modified: 2008-03-17
I am having a problem... I have an access database and an ASP application. On my add screen I am populating a dropdown box with a field from the database. I want to use the OnChange event to fill in a textbox below with the corresponding information. I am combining HTML, ASP, and VBScript for my Onchange event.

I believe the easiest way to achieve this is to create an array.  I receive two JS Errors when I run this page
the first error is expected end (this occurs at the end of this line: var pubArray = new Array()

Then I get this error object undefined.  (this occurs at this line: <option></option>)

Below is my code!  Can somebody please help?  I have lost hours on this and I would really appreciate any input.
--------------------------------------------------------------------------------


objRS.Open "tblJournalNames", objDC, 0, 1

If Not objRS.EOF Then
objRS.MoveFirst
%>

<script type="text/vbscript" language="vbscript">
var pubArray = new Array()

function applytoLabel(a)
document.Form1.txtJournal.value = a.value
document.Form1.txtAuthor.Value = pubArray(a.SelectedIndex)
end function
</script>
<select name="comboJournal" onChange="applytoLabel(this)">
<option></option>
<%
x = 0
Do While Not objRS.EOF
%>
<script language="vbscript">
pubArray<%= x %> = "<%= objRs.Fields("Pub_Code").Value %>"
</script>
<option value="<%= objRS.Fields("Journal_Name") %>"><%= objRS.Fields("Journal_Name") %></option>
<%
objRS.MoveNext
Loop
%>
</select>
<font face="Tahoma">
<% end if %>
0
Comment
Question by:JCWright30
4 Comments
 

Expert Comment

by:grantrj
ID: 12195575
Hi,
I may be missing the point but instead of <option></option> could you have <option value=-1></option>?
This should hopefully ensure that the object is defined as I beleive that an option object is defined if it has a value....

Hope this helps
0
 

Author Comment

by:JCWright30
ID: 12196413
Here is the fix.  This works well and I wanted to post if for others having similar problems.

objRS.Open "tblJournalNames", objDC, 0, 1

If Not objRS.EOF Then
objRS.MoveFirst
%>

<script type="text/vbscript" language="vbscript">
dim pubArray()

function applytoLabel(a)
if a.SelectedIndex = 0 then
document.Form1.txtJournal.value = ""
document.Form1.txtAuthor.Value = ""
else
document.Form1.txtJournal.value = a.value
document.Form1.txtAuthor.Value = pubArray(a.SelectedIndex - 1)
end if
end function</script>
<select name="comboJournal" onChange="applytoLabel(this)">
<option></option>
<%
x = 0
Do While Not objRS.EOF
%>
<script language="vbscript">
ReDim Preserve pubArray(<%= x %>)
pubArray(<%= x %>) = "<%= objRs.Fields("Pub_Code").Value %>"
</script>
<option value="<%= objRS.Fields("Journal_Name") %>"><%= objRS.Fields("Journal_Name") %></option>
<%
x = x + 1
objRS.MoveNext
Loop
%>
</select>
<font face="Tahoma">
<% end if %>
0
 

Accepted Solution

by:
modulo earned 0 total points
ID: 12554197
PAQed with points refunded (250)

modulo
Community Support Moderator
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Learn by example how to specify CSS selectors for Selenium WebDriver test automation software.
Envision that you are chipping away at another e-business site with a team of pundit developers and designers. Everything seems, by all accounts, to be going easily.
Viewers will get an overview of the benefits and risks of using Bitcoin to accept payments. What Bitcoin is: Legality: Risks: Benefits: Which businesses are best suited?: Other things you should know: How to get started:
Any person in technology especially those working for big companies should at least know about the basics of web accessibility. Believe it or not there are even laws in place that require businesses to provide such means for the disabled and aging p…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

20 Experts available now in Live!

Get 1:1 Help Now