funktion med if i et form felt

Hvad med at lave et array med texter ??

laver lige en test.

//akj

prøv noget a'la

for x=1 to 21
    if x = 1 then text = "Cerebrum"
    if x = 2 then text = "Nogetandet"
    IF x = 1 then
        Response.Write("<option value=" & x & " selected>" & text & "</option>")
    else
        Response.Write("<option value=" & x & " >" & text & "</option>")
    end if
    IF x = 2 then
        Response.Write("<option value=" & x & " selected>" & text & "</option>")
    else
        Response.Write("<option value=" & x & " >" & text & "</option>")
    end if
next

øh det var den her der skulle ha været postet

for x=1 to 21
    if x = 1 then text = "Cerebrum"
    if x = 2 then text = "Nogetandet"
    Response.Write("<option value=" & x & " selected>" & text & "</option>")
next

-> cesil
Det gør vist ikke koden mindre, så vidt jeg kan se.
:-) k_l

-> cesil
sendte vist på samme tid - ser lige på det
:-) k_l

:-)
Beklager, du fik den forkerte version

som dk_akj skriver: lav en array

<%
atext = Array(_
    "første",_
    "andet",_
    "tredie"_
)
index = 0
%>
<option value="<%=index%>"><%=atext(index)%></option>

Vil foreslå du gemmer alle teksterne i et array
arraynavn(1) = 'Cerebrum'
...
arraynavn(21) = 'Det sidste'

så lave et gennemløb

for i = 1 to 21
  if i = under    // Teksten skal være default (SELECTED)
    Response.Write("<OPTION VALUE=" & i & " SELECTED>" & arraynavn(i) & "<OPTION>"
  else            // Teksten skal ikke være default
    Response.Write("<OPTION VALUE=" & i & ">" & arraynavn(i) & "<OPTION>"
  end if
next

Ups... det skulle have været et svar :-)

Vil foreslå du gemmer alle teksterne i et array
arraynavn(1) = 'Cerebrum'
...
arraynavn(21) = 'Det sidste'

så lave et gennemløb

for i = 1 to 21
  if i = under    // Teksten skal være default (SELECTED)
    Response.Write("<OPTION VALUE=" & i & " SELECTED>" & arraynavn(i) & "<OPTION>"
  else            // Teksten skal ikke være default
    Response.Write("<OPTION VALUE=" & i & ">" & arraynavn(i) & "<OPTION>"
  end if
next

Nåh, telefonen ringede lige :-)
Her er mit bud.


//akj

<form action="default.asp" method="post" name="form1" id="form1">
<select name="sel">

<%
ret = request.form("sel")

dim myarr()

redim myarr(5)

myarr(1) = "test1"
myarr(2) = "test2"
myarr(3) = "test3"
myarr(4) = "test4"
myarr(5) = "test5"

For i = 1 to ubound(myarr)
if i = cint(ret) then
    sel = " selected"
else
    sel = ""
end if

response.write "<option value='" & i &     "' " & sel  & " >" & myarr(i) & "</option>" & vbcrlf
next
%>
</select>
<input type=submit>
</form>

Fedt med så meget hjælp. Er ved at gå lidt kold - så jeg kigger lidt på det i eftermiddag.

:-)) karsten_larsen

Så lykkedes det.

Funktion kom til at se sådan ud - for dem som kan bruge noget sådan i generel form

<% Function Objekt (nummer, vaerdi)

    Omraader = "Vælg, emne1, emne2, emne3, Andet"
    arrOmraader = Split(Omraader,",")
   
    Response.Write("<select class='input' name='objekt_navn" & nummer &"'>")
    for d = 0 to ubound(arrOmraader)
          if d = CInt(vaerdi) then 
            Response.Write("<option value='" & d & "' selected>" & arrOmraader(d) & "</option>")
          else           
            Response.Write("<option value='" & d & "'>" & arrOmraader(d) & "</option>")
          end if
    next
    Response.Write("</select>")
    end function
%>


Pointgivelse: jeg brugte lidt fra begge derfor denne fordeling
dk_akj 40p.
mickeyboy 20p.

:-)) k_l