Søg
Avatar billede want2learn Nybegynder
08. april 2006 - 18:46 Der er 5 kommentarer og
1 løsning

lang form select kode

kan denne kode laves mindre men hvor den gør det samme !??

Kode:

Response.Write("<br><select name=""nummer"">")
      If strNummer = 1 Then
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 2 Then
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 3 Then
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 4 Then
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 5 Then
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 6 Then
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 7 Then
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 8 Then
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 21 Then
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 22 Then
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 23 Then
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""24"">Ad hoc medarbejder")
      ElseIf strNummer = 24 Then
        Response.Write("<option value=""24"">Ad hoc medarbejder")
        Response.Write("<option value=""1"">Klub Formand")
        Response.Write("<option value=""2"">Næstformand")
        Response.Write("<option value=""3"">Kasserer")
        Response.Write("<option value=""4"">Kampfordeler")
        Response.Write("<option value=""5"">Sekretær")
        Response.Write("<option value=""6"">Senior Rep.")
        Response.Write("<option value=""7"">Ungdoms Rep.")
        Response.Write("<option value=""8"">Arrangementer")
        Response.Write("<option value=""21"">Ungdoms formand")
        Response.Write("<option value=""22"">11- mands koordinator")
        Response.Write("<option value=""23"">5- & 7- mands koordinator")
      End If
      Response.Write("</select>")
Avatar billede eagleeye Praktikant
08. april 2006 - 20:04 #1
Skal koden "selecte" den som er aktiv, eller skal det den stå øverst i listen som har vist?


      Response.Write("<br><select name=""nummer"">")
      If strNummer = 1 Then sel = " selected "
      Response.Write("<option value=""1"" "& sel &">Klub Formand")
      sel="" : If strNummer = 2 Then sel = " selected "
      Response.Write("<option value=""2"" "& sel &">Næstformand")
      sel="" : If strNummer = 3 Then sel = " selected "
      Response.Write("<option value=""3"" "& sel &">Kasserer")
      sel="" : If strNummer = 4 Then sel = " selected "
      Response.Write("<option value=""4"" "& sel &">Kampfordeler")
      sel="" : If strNummer = 5 Then sel = " selected "
      Response.Write("<option value=""5"" "& sel &">Sekretær")
      sel="" : If strNummer = 6 Then sel = " selected "
      Response.Write("<option value=""6"" "& sel &">Senior Rep.")
      sel="" : If strNummer = 7 Then sel = " selected "
      Response.Write("<option value=""7"" "& sel &">Ungdoms Rep.")
      sel="" : If strNummer = 8 Then sel = " selected "
      Response.Write("<option value=""8"" "& sel &">Arrangementer")
      sel="" : If strNummer = 21 Then sel = " selected "
      Response.Write("<option value=""21"" "& sel &">Ungdoms formand")
      sel="" : If strNummer = 22 Then sel = " selected "
      Response.Write("<option value=""22"" "& sel &">11- mands koordinator")
      sel="" : If strNummer = 23 Then sel = " selected "
      Response.Write("<option value=""23"" "& sel &">5- & 7- mands koordinator")
      sel="" : If strNummer = 24 Then sel = " selected "
      Response.Write("<option value=""24"" "& sel &">Ad hoc medarbejder")
      Response.Write("</select>")
Avatar billede want2learn Nybegynder
08. april 2006 - 20:27 #2
det er hvis man vil ændre en person status så på siden så kommer der frem hvad personen er så hvis man klikker på en bruger som er Kasserer så skal den vise kasserer først og alle de andre valg efter da kassereren evt kan skifte job til ungdoms formand.

håber du forstår hvad det er jeg vil.
Avatar billede eagleeye Praktikant
08. april 2006 - 20:36 #3
Med det kode jeg har vist vil den vægle den type man er. Ved at sætte "selected" ind i option feltet. Hvis man er "kassereren" vil den være valgt og stå synligt når man ser på select boken. Men hvis man trykker på at vælge en ny vil "kassereren" ikke stå overst i listen men som nr 3 fra toppen.

Så skal "kassereren" også være nr. 1 på listen når man vil vælge?
Avatar billede want2learn Nybegynder
08. april 2006 - 20:57 #4
smart jeg siger mange tak
Avatar billede Slettet bruger
09. april 2006 - 00:32 #5
Hejsa

Nu vil jeg så prøve at løse den opgave du rent faktisk stiller... selvom det ikke er ret mange linjer du sparer ved mit script...

- måske sådan her:
<html>
<body>
<%
strNummer = 3
    if strNummer = 1 then
    overst = "Klub Formand"
    elseif strNummer = 2 then
    overst = "Næstformand"
    elseif strNummer = 3 then
    overst = "Kasserer"
    elseif strNummer = 4 then
    overst = "Kampfordeler"
    elseif strNummer = 5 then
    overst = "Sekretær"
    elseif strNummer = 6 then
    overst = "Senior Rep."
    elseif strNummer = 7 then
    overst = "Ungdoms Rep."
    elseif strNummer = 8 then
    overst = "Arrangementer"
    elseif strNummer = 21 then
    overst = "Ungdoms formand"
    elseif strNummer = 22 then
    overst = "11- mands koordinator"
    elseif strNummer = 23 then
    overst = "5- & 7- mands koordinator"
    elseif strNummer = 24 then
    overst = "Ad hoc medarbejder"
    end if
%>
<br><select name="nummer">
<option value="<%=strNummer%>"><%=overst%></option>
<% if NOT strNummer = 1 then%>
<option value="<%=strNummer%>">Klub Formand</option>
<%
end if
if NOT strNummer = 2 then%>
<option value="<%=strNummer%>">Næstformand</option>
<%
end if
if NOT strNummer = 3 then%>
<option value="<%=strNummer%>">Kasserer</option>
<%
end if
if NOT strNummer = 4 then%>
<option value="<%=strNummer%>">Kampfordeler</option>
<%
end if
if NOT strNummer = 5 then%>
<option value="<%=strNummer%>">Sekretær</option>
<%
end if
if NOT strNummer = 6 then%>
<option value="<%=strNummer%>">Senior Rep.</option>
<%
end if
if NOT strNummer = 7 then%>
<option value="<%=strNummer%>">Ungdoms Rep.</option>
<%
end if
if NOT strNummer = 8 then%>
<option value="<%=strNummer%>">Arrangementer</option>
<%
end if
if NOT strNummer = 21 then%>
<option value="<%=strNummer%>">Ungdoms formand</option>
<%
end if
if NOT strNummer = 22 then%>
<option value="<%=strNummer%>">11- mands koordinator</option>
<%
end if
if NOT strNummer = 23 then%>
<option value="<%=strNummer%>">5- & 7- mands koordinator</option>
<%
end if
if NOT strNummer = 24 then%>
<option value="<%=strNummer%>">Ad hoc medarbejder</option>
<%end if%>
</select>
</body>
</html>

- i øvrigt vil jeg lige minde dig om at du skal huske at afslutte dine option-tags med "</option>" ud for hver option du laver!

\Dan
Avatar billede Slettet bruger
09. april 2006 - 00:34 #6
Værdien af "strNummer" som er sat til 3 i mit eksempel kan du selvfølgelig bare ændre eller måske helt undlade...

\Dan
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
28 min siden WWAN kort i bærbar Af Gamba i PC
I dag 15:46 DBA er ikke hvad det var Af ErikHg i Fri debat
I går 12:15 Totalslette bærbar med Linux Mint Af mort1 i Linux
I går 12:05 Safe Boot, er det et godt rep. værktøj? Af Uvanga i Windows
I går 11:36 strømforsyningstester Af dcedata1977 i PC
White papers
Flere white papers »