Valg i drop down

lytter lige med

<ole>

<html>
<head>
<script language="JavaScript"><!--

function mySelect() {
    document.minForm.minSelect.options['1'].selected = true;
}

// -->
</script>

</head>
<body onload=mySelect();>

<form name="minForm">
<select name=minSelect>
<option value=1>et
<option value=2>to
<option value=3>tre
</select>
</form>

</body>
</html>

/Vh
</bole>

...eller bør jeg svare 'Nej' til 'Kan i gennemskue hvad jeg mener....?' ...? ;-)

Det kunne selvfølgelig også være noget à la det her, du mener:

<html>
<head>
<script language="JavaScript"><!--

function mySelect() {
    document.minForm.minSelect.options['1'].value = "5";
}

// -->
</script>

</head>
<body onload=mySelect();>

<form name="minForm">
<select name=minSelect onchange=alert(this.options[selectedIndex].value);>
<option value=1>et
<option value=2>to
<option value=3>tre
</select>
</form>

</body>
</html>

Du kan dog ikke 'se' den værdi, du sætter ved 'onload', men du kan checke, at du har sat den ved 'onchange' på selve select-box'en.
Skal det også kunne ses, skal select-box'en skrives dynamisk ud.
/Vh

OK, det var næsten hvad jeg mente - men ikke helt.

Jeg har nuppet et script her fra;

http://developer.irt.org/script/1046.htm

...og det virker fint. Men jeg ville gerne kunne sige, at box nr. 1 skal have en bestemt værdi, og ligeså med 2 og 3.

Det gør jo unægteligt tingene lidt mere besværlige, men der er nu 100 point mere i det.

Pleeeeeaasse..!

OK, du kan gøre sådan, siden vi taler om ASP, og jeg går derfor ud fra at du henter det hele fra en DB:

set Mydict = CreateObject("Scripting.Dictionary")

set rs = conn.execute("select tal, tekst from Mydb")

(der er tale om et tal og en streng, eller hvad?)

While Not rs.eof

mydict.add cint(rs("tal")), cstr(rs("tekst"))
rs.movenext
wend

rs.close
set rs = nothing

MyDropDown = "<select name='MySelector' OnChange='EtEllerAndet()'>"

For each Val in Mydict.Keys

MyDropDown = MyDropDown & "<option value='" & Val & "' "

If val = request.querystring("whatever") Then

MyDropDown = MyDropDown & "selected "

End If

MyDropDown = MyDropDown & ">" & Mydict(Val) & VbCrLf

Next

MyDropDown = MyDropDown & '</select>'

set Mydict = nothing

Prøv at kigge på linket ( http://developer.irt.org/script/1046.htm ) om kom med nogle bud

lukket

1