"Usynlig" dropdown menu
HejsaHar et lille problem med en kontakt side.
Jeg her en dropdown menu på min kontakt side, hvor der er et punkt, som hedder køb af mobil. Nu vil jeg gerne ha det sådan at når man vælger køb af mobil, så kommer der en ny dropdown box op, med de forskellige mobiler der er til salg.
Har lavet en del, men det virker ikke helt efter princippet !!
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>kontakt</title>
</head>
<body>
<p align="center">Kontakt
</p>
<form method="POST" action="kontakt_send.asp">
<table border="0" width="100%" id="table1">
<tr>
<td>Navn :</td>
<td><input type="text" name="navn" size="20"></td>
</tr>
<tr>
<td>Email :</td>
<td><input type="text" name="email" size="20"></td>
</tr>
<tr>
<td>Angående :</td>
<td><select size="1" name="ang">
<option value="Køb af mobil">Køb af mobil</option>
<option value="">Salg af mobil</option>
<option value="Angående mobil">Angående mobil</option>
<option value="Andet">Andet</option>
<option selected>----VÆLG HER----</option>
</select>
<div>
<form name="dropDownForm">
<select name="dropdownmenu" size=1 onChange="goToURL(this.form)">
<option selected value="">Kategorier
<%
Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=d:\web\localuser\pivskid.dk\database\mobilsalg.mdb"
strSQL = "SELECT * FROM produkter ORDER BY id"
Set rs = conn.Execute(strSQL)
do while not rs.EOF
%>
<option value="<%=rs("navn")%>"><%=rs("navn")%>
<%
rs.movenext
loop
RS.Close
conn.Close
Set conn = nothing
Set strSQL = nothing
%>
</select>
</div>
</td>
</tr>
<tr>
<td>Besked :</td>
<td><textarea rows="8" name="besked" cols="36"></textarea></td>
</tr>
</table>
<p><input type="submit" value="Send" name="B1"> <input type="reset" value="Nulstil" name="B2"></p>
</form>
</body>
</form>
</html>
