---
title: "Behålla värdet i listbox Hläälp"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/103605-behålla-värdet-i-listbox-hläälp"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "mimmie"
published: "2004-05-14T08:21:18.000Z"
updated: "2004-05-14T08:21:18.000Z"
replies: 0
views: 192
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/103605-behålla-värdet-i-listbox-hläälp"
---

# Behålla värdet i listbox Hläälp

## #1 — mimmie, 2004-05-14T08:21Z

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/103605

---

Tråden på webben: https://www.webforum.nu/amne/asp/103605-behålla-värdet-i-listbox-hläälp