OnChange problem
Jeg har en side med to dropdown menuer hvor den en skal skifte udfra hvad der er valgt i den først.Jeg har nedenstående kode:
<% sql = "SELECT * FROM Toj WHERE ID =" & ID
sqlTT = "SELECT * FROM TojType"
sqlTS = "SELECT * FROM TojStorrelse"
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open Application( "DBPATH2" )
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rsTT = Server.CreateObject("ADODB.RecordSet")
Set rsTS = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, conn, 3,3
rsTT.Open sqlTT, conn, 3,3
rsTS.Open sqlTS, conn, 3,3
if rs.bof then
else %>
<form name="ret" action="default.asp?target=DoRet" method="POST">
<input type="hidden" name="id" value="<%= rs.Fields("ID")%>">
<table border="0" width="300" cellspacing="1" cellpadding="4">
<tr>
<td>Tøj type:</td>
<td> </td>
<td>
<select size="1" name="TojModel" size="1">
<option selected>Vælg tøj model</option>
<% rsTT.MoveFirst
do while not rsTT.EOF %>
<option value="<%=rsTT.Fields("TypeNr") %>"><%= rsTT.Fields("Type") %></option>
<% rsTT.MoveNext
loop %>
</select>
</td>
</tr>
<tr>
<td></td>
<td></td>
<td>
<select name="Str" size="1">
<option selected>Vælg størrelse</option>
<% rsTS.MoveFirst
do while not rsTS.EOF %>
<option value="<%=rsTS.Fields("Storrelse") %>"><%= rsTS.Fields("Storrelse") %></option>
<% rsTS.MoveNext
loop %>
</select>
</td>
</tr>
<tr>
<td>Udleveret:</td>
<td> </td>
<td><%= rs.Fields("Udlev") %></td>
</tr>
<tr>
<td>Bestilt:</td>
<td> </td>
<td>
<input type="text" name="Bestilling" size="3">
</td>
</tr>
<tr>
<td>Leveret</td>
<td> </td>
<td>
<input type="text" name="Leveret" size="3"></td>
</tr>
<tr>
<td>Restordre</td>
<td> </td>
<td><%= rs.Fields("RestOrder") %></td>
</tr>
</table>
<p><input type="submit" value="Ret post" name="submit"></p>
</form>
<% rs.Close
rsTT.Close
rsTS.Close
set rs = nothing
set rsTT = nothing
set rsTS = nothing
conn.Close
set conn = nothing
end if %>
