Selectbokse/opdatering med ASP
Nedenstående kode går ind på en side hvor man kan vælge:Dækbredde - Dækhøjde - Dæk størrelse og det virker også OK, men brugeren kan godt vælge en kombination så der ingen dæk i den størrelse findes, derfor kan man få siden til at opdatere når et punkt vælges?
F.eks vælger jeg dæk bredde på 185 - Så skal den automatisk under dækhøjde og dækstørrelse frasortere dem der ikke kan passe ind, når så dækhøjde vælges skal igen dækstørrelse frasortere de størrelser som ikke findes.
<html>
<head>
</head>
<body>
<%
' 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("log/db_daek.mdb")
Conn.Open DSN
SQLbreddeQuery = "SELECT DISTINCT bredde FROM tb_daek ORDER BY bredde"
SQLhojdeQuery = "SELECT DISTINCT hojde FROM tb_daek ORDER BY hojde"
SQLstorrelseQuery = "SELECT DISTINCT storrelse FROM tb_daek ORDER BY storrelse"
' --- DISTINCT fjerner alle dublikater --- '
Set RSbredde = Conn.Execute(SQLbreddeQuery)
Set RShojde = Conn.Execute(SQLhojdeQuery)
Set RSstorrelse = Conn.Execute(SQLstorrelseQuery)
%>
<table width="600">
<tr>
<td width="150" align="center">Vælg dækbredde</td>
<td width="150" align="center">Vælg dækhøjde</td>
<td width="150" align="center">Vælg dækstørrelse</td>
<td width="150"></td>
</tr>
<tr>
<td width="150" align="center">
<form method="POST" action="selected.asp">
<select name="bredde" width="100">
<%
Do While Not (RSbredde.BOF Or RSbredde.EOF)
%>
<option><%= RSbredde("bredde") %></option>
<%
RSbredde.MoveNext
Loop
%>
</select>
</td>
<td width="150" align="center">
<select name="hojde" width="100">
<%
Do While Not (RShojde.BOF Or RShojde.EOF)
' --- Looper bredderne igennem
%>
<option><%= RShojde("hojde") %></option>
<%
RShojde.MoveNext
Loop
%>
</select>
</td>
<td width="150" align="center">
<select name="storrelse" width="100">
<%
Do While Not (RSstorrelse.BOF Or RSstorrelse.EOF)
' --- Looper bredderne igennem
%>
<option><%= RSstorrelse("storrelse") %></option>
<%
RSstorrelse.MoveNext
Loop
%>
</select>
</td>
<td>
<input type="submit" value="Klik her"></td>
</td>
</tr>
</table>
<%
Conn.Close
Set Conn = Nothing
%>
</form>
</body>
</html>
MVh
Fibs
