Solved

OnChange Event for DropDown List

Posted on 2004-09-27
4
1,146 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

What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

Join & Write a Comment

"In order to have an organized way for empathy mapping, we rely on a psychological model and trying to model it in a simple way, so we will split the board to three section for each persona and a scenario and try to see what those personas would Do,…
Get to know the ins and outs of building a web-based ERP system for your enterprise. Development timeline, technology, and costs outlined.
This tutorial walks through the best practices in adding a local business to Google Maps including how to properly search for duplicates, marker placement, and inputing business details. Login to your Google Account, then search for "Google Mapmaker…
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…

746 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

13 Experts available now in Live!

Get 1:1 Help Now