---
title: "Få värde att vara kvar som standard"
type: "forum-thread"
url: "https://www.webforum.nu/amne/javascript/90384-få-värde-att-vara-kvar-som-standard"
topic: "JavaScript"
topic_url: "https://www.webforum.nu/amne/javascript"
author: "brw"
published: "2003-11-14T08:03:06.000Z"
updated: "2003-11-14T12:41:39.000Z"
replies: 4
views: 205
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/javascript/90384-få-värde-att-vara-kvar-som-standard"
---

# Få värde att vara kvar som standard

## #1 — brw, 2003-11-14T08:03Z

Hej!

JAg kör följande kod men jag vill att när jag valt i huvudgruppen så skall Choose name finnas kvar med värde 0 för att man ska kunna skicka utan att välja name... om man bara vill lista på en grupp.. som det är nu så försvinner den och listar bara namnen..

hur fasiken fixar man det?

såhär ser koden ut.

```
<%
Set rsX = Server.CreateObject("ADODB.Recordset")

sQuery = "SELECT grupp.gruppnamn, users.name, " & _
    "grupp.Id AS gID, users.Id AS uID " & _
    "FROM users INNER JOIN grupp " & _
    "ON users.gruppid = grupp.Id " & _
	 "ORDER BY grupp.gruppnamn, users.name"

rsX.Open sQuery, Connection, adOpenForwardOnly, adLockReadOnly, adCmdText

If rsX.EOF Then
    Response.Write "Inga grupper.<BR>"
Else

    ' write the group listbox...

    Response.Write "<SELECT NAME=""group"" class=""formular"" ONCHANGE=""groupselected(this);"" >"
    Response.Write "<OPTION VALUE=0>Choose group</OPTION>"

    ' write the entry code for the javascript...

    sJavaScript = "function groupselected(elem){" & vbCrlf & _
        "for (var i = document.f1.names." & _
        "options.length; i >= 0; i--){" & vbCrlf & _
        "document.f1.names.options[i] = null;" & _
        vbCrlf

    ' loop through the recordset...

    Do Until rsX.EOF

        ' is this a new bransch?
        If sLastbransch <> rsX("gruppnamn") Then

            ' if so, add an entry to the first listbox
            sLastbransch = rsX("gruppnamn")
            Response.Write "<OPTION VALUE=" & rsX("gID") & _
                ">" & sLastbransch & "</OPTION>"

            ' and add a new section to the javascript...
            sJavaScript = sJavaScript & "}" & vbCrlf & _
                "if (elem.options[elem.selectedIndex].value==" & _
                rsX("gID") & "){" & vbCrlf
        End If

        ' and add a new nameline to the javascript...
        
        'sJavaScript = sJavaScript & _

        'sJavaScript = sJavaScript & _
		 '"document.f1.names.options[document.f1.names.options.length] = new Option('Choose name','0');" & _
		 ' vbCrlf

 
        
        sJavaScript = sJavaScript & _
            "document.f1.names.options[document." & _
            "f1.names.options.length] = new Option('" & _
            rsX("name") & "','" & rsX("uID") & "');" & _
            vbCrlf
        rsX.MoveNext
    Loop

    ' finish the group listbox...
    Response.Write "</SELECT>"

    ' create the kategori listbox...

    Response.Write "&nbsp;&nbsp;&nbsp;<SELECT NAME=""names"" class=""formular"">"
    Response.Write "<OPTION>Choose name</OPTION>"
    Response.Write "</SELECT>"

    ' put the last line on the javascript and write it out...
    sJavaScript = sJavaScript & vbCrlf & "}" & vbCrlf & "}" & vbCrlf

    Response.Write "<SCR" & "IPT LANGUAGE=""JavaScript"">" & vbCrlf
    Response.Write sJavaScript & vbCrlf & "</SCR" & "IPT>" & vbCrlf
End If
rsX.Close
Set rsX = Nothing
%>
```

Permalänk: https://www.webforum.nu/p/90384

## #2 — Jesper T, 2003-11-14T08:41Z

Om frågan gäller javascript är det  lättare om du klistrar in källkoden i stället, annars så blir det lite virrvarrigt.

Permalänk: https://www.webforum.nu/p/1205211

## #3 — brw, 2003-11-14T11:41Z

Nu så har vi resultatet så blir det lite lättare att se hur det skall se ut...

```

        <form method="post" action="list_cases.asp" name="f1" class="form">

<SELECT NAME="group" class="formular" ONCHANGE="groupselected(this);" ><OPTION VALUE=0>Choose group</OPTION><OPTION VALUE=1>Administrators</OPTION><OPTION VALUE=2>IMS</OPTION></SELECT>&nbsp;&nbsp;&nbsp;<SELECT NAME="names" class="formular"><OPTION>Choose name</OPTION></SELECT><SCRIPT LANGUAGE="JavaScript">
function groupselected(elem){
for (var i = document.f1.names.options.length; i >= 0; i--){
document.f1.names.options[i] = null;
}
if (elem.options[elem.selectedIndex].value==1){
document.f1.names.options[document.f1.names.options.length] = new Option('Administrator','1');
document.f1.names.options[document.f1.names.options.length] = new Option('andreas','2');
document.f1.names.options[document.f1.names.options.length] = new Option('anna','3');
}
if (elem.options[elem.selectedIndex].value==2){
document.f1.names.options[document.f1.names.options.length] = new Option('kent','4');

}
}
</SCRIPT>

</form>
```

Det jag vill är att den även ska skriva ut för varje 
\<OPTION VALUE=0\>Choose name\</OPTION\>

så att man kan gå vidare utan att välja ett namn... nu blir det automatiskt den som står överst i listan som blir markerad eftersom det inte finns något "blankval"

Permalänk: https://www.webforum.nu/p/1205296

## #4 — Jesper T, 2003-11-14T11:52Z

I din kåd så har du en bortkommenterad rad där det står:

```
'sJavaScript = sJavaScript & _
		 '"document.f1.names.options[document.f1.names.options.length] = new Option('Choose name','0');" & _
		 ' vbCrlf
```

 Vad händer om du tar bort kommentartecknet/na?

Permalänk: https://www.webforum.nu/p/1205301

## #5 — brw, 2003-11-14T12:41Z

det är bara jag som har provat lite... då får jag totalt error...

Nu löste jag det... det saknades ett VBCRLF

Permalänk: https://www.webforum.nu/p/1205326

---

Tråden på webben: https://www.webforum.nu/amne/javascript/90384-få-värde-att-vara-kvar-som-standard