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ä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
%\>