Can I set up a data-driven menu box to have a default value?

Question

I'm working on building a little webpage that lets user's
update one column.
So, for this column.. I have setup a drop-down box giving
choices (from a table).
I'd like for the box's "default" selected value to be the one
that is already choosen in the table...
How can I get this to bind?
Example: Each row need to get tagged as "lost", "won", or
"unsure".
I need these three choices to be in the drop-down (easy -
already done).
But if there is already a value of "won" for that column,
then I want the drop-down to say "won" as it's default.
Any ideas?
Thanks so much!!!

Answer 1

It looks like that VBScript already has this capability built
in.
<%If (Not
isNull((rsContact.Fields.Item("ContactNumber").Value))) Then
If
(CStr(rsNumber.Fields.Item("Number").Value) =
CStr((rsContact.Fields.Item("ContactNumber").Value))) Then
Response.Write("selected=""selected""") :
Response.Write("")%>
><%=(rsNumber.Fields.Item("Number").Value)%></option>
This markup is comparing the current value of the data from
the
rsNumber.Fields.Item("Number") recordset to the value of the
data from the
rsContact.Fields.Item("ContactNumber") recordset, and if they
are the same,
it is writing the selected attribute to the field -
Response.Write("selected=""selected"""). Is this not working?
Murray --- ICQ 71997575
Adobe Community Expert
(If you *MUST* email me, don't LAUGH when you do so!)
==================
http://www.projectseven.com/go
- DW FAQs, Tutorials & Resources
http://www.dwfaq.com - DW FAQs,
Tutorials & Resources
==================
"simp1eton" <[email protected]> wrote in
message
news:gbg6fd$1ts$[email protected]..
> Awesome, thanks!
> How do I fit it into the code of my list/menu?
>
>
>
> <select name="contactNumberMenu<%=counter%>"
> id="contactNumberMenu<%=counter%>">
> <%
> While (NOT rsNumber.EOF)
> %>
> <%
> rsNumber.MoveNext()
> Wend
> If (rsNumber.CursorType > 0) Then
> rsNumber.MoveFirst
> Else
> rsNumber.Requery
> End If
> %><%
> While (NOT rsNumber.EOF)
> %><option
value="<%=(rsNumber.Fields.Item("Number").Value)%>" <%If
(Not
> isNull((rsContact.Fields.Item("ContactNumber").Value)))
Then If
> (CStr(rsNumber.Fields.Item("Number").Value) =
> CStr((rsContact.Fields.Item("ContactNumber").Value)))
Then
> Response.Write("selected=""selected""") :
Response.Write("")%>
>><%=(rsNumber.Fields.Item("Number").Value)%></option>
> <%
> rsNumber.MoveNext()
> Wend
> If (rsNumber.CursorType > 0) Then
> rsNumber.MoveFirst
> Else
> rsNumber.Requery
> End If
> %>
> </select>
>