Dynamicly filling drop down

JAdkins · June 18th, 2007, 06:10 PM

I have 2 drop down boxes on a page (or need to have 2) I am filling the forst one when the page loads from a table in my DB I want the secound box to be empty until a selection is made from the first box then based on the record number from the DB i will fill the second box from a differnt table in the DB
What i have done so far is opend the DB at the open of the page, then I create the first box when needed in the Html portion of my page...

<Tr><TD>Show Location</TD><TD><SELECT NAME="ShowProp">
<% While not objRS.EOF
Response.write "<Option>" & objRS("PropertyName")
objRS.MoveNext
Wend
%>
</option></SELECT></TD>

This part is working fine Im jsut not sure how to use the OnChange event to read from the record set again to get the record ID and then use that to pull the information from a differnt record set. The only way I have come up with doing it so far is to just wrtie vbscript in the Onchance event that reopens the tables and then do a search on the DB from there to match the prop name then get the record id then get the luist i need from the other table and I am hoping there is a better way to do this.. Hopefuly I have explained this well enought any help would be wounderful
-Jim

mat41 · June 18th, 2007, 06:54 PM

Put this in your select tag:
onchange="postAndReload();"

This is the head of your doc between <script> tags:
  function postAndReload(whichLevel)
  {
     //do any JS you want here, then post the form
     formName.submit();
  }

Now in the top of your page somewhere detect if the form has been posted. If you have placed the id of the record you wish to query with in your option tag (it doesnt look like you have, you need a value inside each option tag. Also you should place </option> tags inside your loop) use it to get you new results.

Change you loop to something like:
<Tr>
<TD>Show Location</TD>
<TD>
<% if not objRS.Eof then %>
        <SELECT NAME="ShowProp">
<% While not objRS.EOF %>
           <Option value="<%= objRS("uniqueID") %>"><%= objRS("PropertyName") %></option>
<% objRS.MoveNext
        Wend
     else
        response.write "no records found"
     end if %>
        </SELECT></TD>

Wind is your friend
Matt

JAdkins · June 21st, 2007, 01:29 PM

Thank you for your help. Im not useing JS i am useing VBscript but you pointed me where I needed to go. The thing I am running into with this now is when i repost the form all my text boxes and drop downs are coming back blank I am trying to refill them like

<TR><td>Guest Name</TD><TD><INPUT type="text" NAME="GuestName" VALUE="<% Request.form("GuestName")%>"></TD>
but they are still coming up blank and I am not sure why I am not getign any errors returned they just arnt filling in. This may seem like a very basicv issue but I am Very New to ASP if you have any ideas on this please share them.

Thank you very much for the help so far

Jim

JAdkins · June 21st, 2007, 03:36 PM

Ok so after reading what I posted I see what i did wrong... Thanks again for your help

misskaos · June 26th, 2007, 09:54 AM

Quote:

quote:Originally posted by JAdkins
Ok so after reading what I posted I see what i did wrong... Thanks again for your help

Try this

<HTML>
<HEAD>
<script language="VBScript">
Sub PopulateSecondDropDown
Dim TheForm
Set TheForm=Document.forms("YourFormName")
TheForm.SecondDropDown.value=""
TheForm.action="YourPageName.asp"
TheForm.submit
End Sub
</script>

<Tr>
<TD>Show Location</TD>
<TD>
<%if not objRS.Eof then%>
<SELECT NAME="ShowProp" onchange="PopulateSecondDropDown();">
<%While not objRS.EOF%>
<option value="<%=objRS("uniqueID")%>"><%=objRS("PropertyN ame")%>
</option>

<%
objRS.MoveNext
Wend
%>
</SELECT>

<%
else
response.write "no records found"
end if
%>
</TD>
<%
dim RS
dim count
Dim objConn

set ObjConn = server.CreateObject("adodb.Connection")
ObjConn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dB.mdb")

SelectedProp = Request.Form("ShowProp")
set RS = server.createObject("adodb.recordset")
SQL = "SELECT * from TABLENAME where recID = '" & SelectedProp & "'"
RS.open SQL,ObjConn
if not RS.EOF then
%>

<TD>SHOW OTHER RECORDS [DROP DOWN]</TD>
<TD>
<SELECT NAME="ShowOtherRecords">

<%While not RS.EOF%>

<option value="<%=RS("uniqueID")%>"><%=objRS("OtherColumnN ame")%>
</option>
</SELECT>

<%
else
response.write "No value obtained from first drop down."
end if
%>

</TD>
</TR>

T.B.
misskaos99@yahoo.com