Ok, nu virker mine drop down bokse. Jeg brugte onchange til det. Men når jeg
har valgt titel og derefter dato vil jeg gerne have titel stadig bliver
stående. I dette tilfælde slettes det der står i titel.
Kan det klares?
Tak
AHR
P.S Her er hele koden
----------------------------------------------------------------------------
--------------------------------------------------------------
<form name="form" method="get"
action="
http://localhost/bio/reservation.asp">
<select name = "titel" onchange="submit()">
<option>Film</option>
<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/bio/db/bio.mdb")
Conn.Open DSN
' SQL forespørgsel
strSQL = "Select Titel from Film"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Dim myTitel
myTitel = Request.QueryString("Titel")
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
%>
<option <% IF rs("Titel") = myTitel Then %>selected="selected"<% End If
%>><%= rs("titel") %></option>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
%>
</select>
</form>
<form name="form" method="get"
action="
http://localhost/bio/reservation.asp">
<select name = "dato" onchange="submit()">
<option>Dato</option>
<%
Dim titel
titel = Request.QueryString("titel") & ""
titel = Replace(titel, "'", "''")
strSQL = "Select Dato from Forrestilling where Titel ='" & _
titel & "'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
%>
<option <% IF rs("Dato") = myDato Then %>selected="selected"<% End If %>><%=
rs("Dato") %></option>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
%>
</select>
</form>
<form name="form" method="get"
action="
http://localhost/bio/reservation.asp">
<select name = "tid" onchange="submit()">
<option>Kl</option>
<%
Dim dato
dato = Request.QueryString("dato") & ""
dato = Replace(dato, "'", "''")
strSQL = "Select tid from Forrestilling where Dato ='" & _
dato & "'"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
' Gennemløb Recordset (rs) med en løkke
Do While Not rs.EOF
%>
<option <% IF rs("tid") = myTid Then %>selected="selected"<% End If %>><%=
rs("tid") %></option>
<%
' Gå til næste Record i rs
rs.MoveNext
' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop
%>
</select>
</form>
<%
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>