<SELECT> Combo Box population 1

[TudorSmith]

Hi

I am creating a page to allow "Edit Details"

When the page opens, I retrieve the record details from the table...one of which is an ID reference called SiteID

When the page loads, it displays the Site Details in a <SELECT> combo box (There are 6 sites to choose from)

Everything is working fine, but what I want is for the Combo Box to automatically be selected on the value of the record I am retrieving.

So, if I retrieve the recordset and the SiteID = 3 (London) and the List of possible options is: "Bristol", "Edinburgh", "London", "Glasgow", "Liverpool" then at the moment the user sees "Bristol" in the combo box, but this is wrong, because the record for the retrived value should be "London"

Is there a way to populate the <SELECT> list first, then make it display the actual value for the record I'm retrieving?

Thanks

Tudor

birklea ~©¿©~ <><
Dim objJedi as Jedi.Knight
Set objJedi[skyWalker].Aniken = FatherOf(useThe.Force(objJedi[skyWalker].luke))

 

[TudorSmith]

Here is my code:

<%Dim strSiteName
  strSiteName = ilookup(objconn, "SiteName", "tblSite","SiteID = " & rst("SiteID"))%>

<TD><select name="SELECTSite" style="width: 200px;" onChange="NewValue()">
<% Dim rstSite
   Set rstSite = objConn.Execute("SELECT SiteName FROM tblSite ORDER BY 1 ASC")
   Do Until rstSite.EOF %>
      <option value="<%=rstSite("SiteName")%>"><%=rstSite("SiteName")%></option>
   <%  rstSite.movenext
   Loop
   rstSite.close%>
</select></TD>

birklea ~©¿©~ <><
Dim objJedi as Jedi.Knight
Set objJedi[skyWalker].Aniken = FatherOf(useThe.Force(objJedi[skyWalker].luke))

 

[gpzcrasher]

You can use the 'Selected' attrbute on the option tag to preselect i.e.

<select>
<option>Bristol</option>
<option>Edinburgh</option>
<option selected>London</option>
<option>Glasgow</option>
<option>Liverpool</option>
</select>

This would preselect london for you.

You would have to change your code to pick up the selected site and check if the site from the table matches the selected.


--------------------------------
Codito, ergo sum

 

[mattygriff]

Add the changes in red below. Simply creating a variable which increments as each <OPTION> is added enables you to compare that variable with the value of your SiteID variable.

<%Dim strSiteName
  strSiteName = ilookup(objconn, "SiteName", "tblSite","SiteID = " & rst("SiteID"))%>

<TD><select name="SELECTSite" style="width: 200px;" onChange="NewValue()">
<% Dim rstSite[COLOR=red], intSelSite[/color]
   Set rstSite = objConn.Execute("SELECT SiteName FROM tblSite ORDER BY 1 ASC")
[COLOR=red]   set intSelSite = 1[/color]
   Do Until rstSite.EOF %>
      <option value="<%=rstSite("SiteName")%>"><%=rstSite("SiteName")
[COLOR=red]if intSelSite = SiteID then response.write " selected"[/color]
%></option>
   <%  rstSite.movenext
[COLOR=red]   intSelSite = intSelSite + 1[/color]
   Loop
   rstSite.close%>
</select></TD>