---
title: "Listbox/Dropdown HJÄÄÄLLLPP"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/103600-listbox-dropdown-hjääälllpp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mimmie"
published: "2004-05-14T07:58:57.000Z"
updated: "2004-05-14T12:42:07.000Z"
replies: 8
views: 320
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/asp/103600-listbox-dropdown-hjääälllpp"
---

# Listbox/Dropdown HJÄÄÄLLLPP

## #1 — mimmie, 2004-05-14T07:58Z

Jag har en aspsida med två listboxar. Värdena i boxarna hämtas från en access databas. Innehållet i den andra listboxen är beroende av vad man valt i den första. Hur gör jag för att den första listboxen ska behålla värdet man valt när den andra listboxen laddas???   Finns det någon som kan hjälpa mej???

set conkategori= server.createObject("ADODB.connection") 
  conkategori.open "europadb3" 
  SQL = "SELECT kategorier.\* FROM Kategorier" 
  Set rs = conkategori.Execute(sql,,1)%\> \<font color="#FF0000"\> \</font\>\</font\> 
         \<select name="Kategori" style="font-size:9px; height:18px;" size=1 onChange="if (this.options\[this.selectedIndex\].value != '') {top.location.href=this.options\[this.selectedIndex\].value};"\>
           \<option value=""\>-Välj kategori-\</option\>
           \<%  
    Do While Not rs.EOF  
    '\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
    ' Raden nedanför, DENNA_SIDAN.ASP = denna sidan som koden körs i  
  response.write "\<option  value='Nykursplan.ASP?kategori=" & rs("kategoriid") & "'" 
If Request.QueryString("kategori") = rs("kategoriid") Then 
Response.Write "selected" 
End if 
Response.Write "\>"  
 
response.write rs("kategorinamn")  
response.write "\</option\>"  
rs.MoveNext  
Loop  

   
    conkategori.Close  
    Set conkategori= Nothing  
   
   
  %\> 
         \</select\>
         \<%
If Request.QueryString("kategori") \<\> "" Then
%\> \</h6\> 
    \</td\>  
    \</tr\>  
    \<tr\>  
     \<td colspan="3" height="17"\>\<font size="2"\>V&auml;lj programgrupp\<b\>\<font size="2" color="#FF0000"\>\*\</font\>\</b\>\</font\>\</td\>  
    \</tr\>  
    \<tr\>  
     \<td colspan="3" height="55"\> \<%  
    set conprogram= server.createObject("ADODB.connection")  
    conprogram.open "europadb3"  
    '\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
    ' Lagt till kriteria (WHERE) på din SQL, modda den så att den stämmer med din tabell  
    '\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*  
    SQL1 = "SELECT program.\* FROM program WHERE program.kategoriID = " & Request.QueryString("kategori") 
                         
  kat=request.querystring("kategori") 
  if kat\<\> "" then 
  session("kat")=kat 
  end if 
   
   Set rs1 = conprogram.Execute(sql1,,1)  
    %\> 
       \<select name="Program" style="font-size:9px; height:18px;" size=1\>

\<option value=""\>-Välj program-\</option\>
         \<%   
    Do While Not rs1.EOF  
    response.write "\<option value='" & rs1("programid") & "'\>"  
    response.write rs1("programnamn")  
    response.write "\</option\>"  
    rs1.MoveNext  
    Loop  
     
    conprogram.Close  
    Set conprogram= Nothing  
  

    %\>

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

## #2 — m_soderlund, 2004-05-14T08:32Z

1\. Välkommen till wF! (har inte välkomnat dig än)
2\. Tråden är felpostad, ska finnas i ASP, VBScript-forumet.
3\. Använd gärna kod-taggen.

```
set conkategori= server.createObject("ADODB.connection") 
conkategori.open "europadb3" 
SQL = "SELECT kategorier.* FROM Kategorier" 
Set rs = conkategori.Execute(sql,,1)%> <font color="#FF0000"> </font></font> 
<select name="Kategori" style="font-size:9px; height:18px;" size=1 onChange="if (this.options[this.selectedIndex].value != '') {top.location.href=this.options[this.selectedIndex].value};">
<option value="">-Välj kategori-</option>
<% 
Do While Not rs.EOF 
'********************* 
' Raden nedanför, DENNA_SIDAN.ASP = denna sidan som koden körs i 
response.write "<option value='Nykursplan.ASP?kategori=" & rs("kategoriid") & "'" 
If Request.QueryString("kategori") = rs("kategoriid") Then 
Response.Write "selected" 
End if 
Response.Write ">" 

response.write rs("kategorinamn") 
response.write "</option>" 
rs.MoveNext 
Loop 

conkategori.Close 
Set conkategori= Nothing 

%> 
</select>
<%
If Request.QueryString("kategori") <> "" Then
%> </h6> 
</td> 
</tr> 
<tr> 
<td colspan="3" height="17"><font size="2">Välj programgrupp<b><font size="2" color="#FF0000">*</font></b></font></td> 
</tr> 
<tr> 
<td colspan="3" height="55"> <% 
set conprogram= server.createObject("ADODB.connection") 
conprogram.open "europadb3" 
'****************** 
' Lagt till kriteria (WHERE) på din SQL, modda den så att den stämmer med din tabell 
'****************** 
SQL1 = "SELECT program.* FROM program WHERE program.kategoriID = " & Request.QueryString("kategori") 

kat=request.querystring("kategori") 
if kat<> "" then 
session("kat")=kat 
end if 

Set rs1 = conprogram.Execute(sql1,,1) 
%> 
<select name="Program" style="font-size:9px; height:18px;" size=1>

<option value="">-Välj program-</option>
<% 
Do While Not rs1.EOF 
response.write "<option value='" & rs1("programid") & "'>" 
response.write rs1("programnamn") 
response.write "</option>" 
rs1.MoveNext 
Loop 

conprogram.Close 
Set conprogram= Nothing 

%>
```

Återkommer med svar när jag fått överblick över koden. :)

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

## #3 — m_soderlund, 2004-05-14T08:37Z

```
If Request.QueryString("kategori") = rs("kategoriid") Then 
Response.Write "selected" 
End if
```

ska vara

```
If Request.QueryString("kategori") = rs("kategoriid") Then 
Response.Write " selected" 
End if
```

tror jag.

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

## #4 — mimmie, 2004-05-14T08:52Z

funkar ej.... :-(
<http://www.europaformedlaren.com/auktion/nykursplan.asp>

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

## #5 — m_soderlund, 2004-05-14T09:06Z

Byt ut

```
<select name="Kategori" style="font-size:9px; height:18px;" size=1 onChange="if (this.options[this.selectedIndex].value != '') {top.location.href=this.options[this.selectedIndex].value};">
```

mot

```
<select name="Kategori" style="font-size:9px; height:18px;" size=1 onChange="if (this.options[this.selectedIndex].value != '') {top.location.href='Nykurs.asp?kategori=' + this.options[this.selectedIndex].value};">
```

Sen byter du ut

```
response.write "<option value='Nykursplan.ASP?kategori=" & rs("kategoriid") & "'"
```

i din ASP-kod mot

```
response.write "<option value=""" & rs("kategoriid") & """
```

Sen ska allt funger tror jag.

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

## #6 — mimmie, 2004-05-14T09:23Z

> **m_soderlund skrev:**
>
> Byt ut
>
> ```
> <select name="Kategori" style="font-size:9px; height:18px;" size=1 onChange="if (this.options[this.selectedIndex].value != '') {top.location.href=this.options[this.selectedIndex].value};">
> ```
>
> mot
>
> ```
> <select name="Kategori" style="font-size:9px; height:18px;" size=1 onChange="if (this.options[this.selectedIndex].value != '') {top.location.href='Nykurs.asp?kategori=' + this.options[this.selectedIndex].value};">
> ```
>
> Sen byter du ut
>
> ```
> response.write "<option value='Nykursplan.ASP?kategori=" & rs("kategoriid") & "'"
> ```
>
> i din ASP-kod mot
>
> ```
> response.write "<option value=""" & rs("kategoriid") & """
> ```
>
> Sen ska allt funger tror jag.

Funkar inte !!!
Sidan kan inte visas

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

## #7 — m_soderlund, 2004-05-14T11:48Z

Verktyg--\>Internet-alternativ--\>Avancerat-fliken och avbocka "Visa egna HTTP-felmeddelanden" är bra att känna till (IE). Denna gång var det mitt fel.

```
response.write "<option value=""" & rs("kategoriid") & """
```

ska vara

```
response.write "<option value=""" & rs("kategoriid") & """>"
```

 :r

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

## #8 — rollo, 2004-05-14T12:34Z

ohoj, vet inte om det är detta du är ute efter eller inte, men här kommer hur jag väljer i en drop-down

```
<%
	SQL = "SELECT * FROM db_kb_h"
	Set DataConn = Server.CreateObject("ADODB.Connection")
	DataConn.Open Application("koppling")
    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set a8 = Server.CreateObject("ADODB.Recordset")
	cmdTemp.CommandText = SQL
    Set cmdTemp.ActiveConnection = DataConn
    a8.Open cmdTemp, , 1, 1
    
    
%>
		<SELECT id=select2 name=t_id>
<% Do until a8.EOF%>
		<%if a8("id") = a63("t_id") then%>
		<OPTION value="<%=a8("id")%>" selected> <%=a8("falt01")%> </OPTION>
		<%else%>
		<OPTION value="<%=a8("id")%>"> <%=a8("falt01")%> </OPTION>
		<%end if%>

<%
a8.MoveNext
Loop	
%>
```

Jag gör en sökning i databasen, sedan loopar jag ut resultatet i en drop-down och jag har med mig ett id från förra sökningen.

Vi träff på detta id skriver jag SELECTED i OPTION-taggen

Hoppas det kan hjälpa dig!

rollo

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

## #9 — Palle, 2004-05-14T12:42Z

<http://www.webforum.nu/showthread.php?s=&postid=728440#post728440>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/103600-listbox-dropdown-hjääälllpp