ras2000 eller andre..
Som opfølgning påhttp://www.eksperten.dk/spm/158904 & http://www.eksperten.dk/spm/180996
så har jeg dette script samt dropdownz. Her kan jeg vælge Først Amt dernæst Bynavn. Jeg har så tilføjet endnu et felt (type) som skal vælges før Amt.
Hvordan får jeg det indsat??
<script type="text/javascript">
str = "";
var bynavne=new Array()
bynavne["ingen"]=new Array("vælg et amt først");
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("mindb.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
set rs1 = Server.CreateObject("ADODB.Recordset")
sql = "SELECT amt, by FROM firma GROUP BY amt, by ORDER BY amt "
rs.Open sql, Conn, 1, 1
sql1 = "SELECT amt FROM firma GROUP BY amt"
rs1.Open sql1, Conn, 1, 1
a = 0
do while not rs1.eof
a = a + 1
rs1.movenext%>
str<%=a-1%> = "";
<%
loop
a = 0
test = ""
do while not rs.eof
if test <> rs(0) then
a = a + 1
%>
bynavne["<%=rs(0)%>"]=new Array();
<%
end if%>
bynavne["<%=rs(0)%>"][bynavne["<%=rs(0)%>"].length] = "<%=rs(1)%>";
<%
test = rs(0)
rs.movenext
loop
%>
function fillStates(opt){
s=document.f.states.options
s.length=bynavne[opt].length
for(i=0;i<s.length;i++){
s[i].value=bynavne[opt][i]
s[i].text=bynavne[opt][i]
}
document.f.states.selectedIndex=0
}
</script>
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="text" >
<tr>
<td>
<p>Find din lokale.<br><br>
Vælg Deres amt.</p>
</td>
</tr>
<tr>
<td>
<FORM action=resultat.asp name=f target="main">
<select name=countries onchange="fillStates(this.options[this.selectedIndex].value)">
<option value="ingen">vælg et amt først</option>
<%
rs1.movefirst
do while not rs1.eof%>
<option value="<%=rs1(0)%>"><%=rs1(0)%></option>
<%
rs1.movenext
loop
%>
</select>
<br>
<select name=states>
<option></option>
<option></option>
<option></option>
<option></option>
<option></option>
</select>
<input type="submit" value="Søg">
</form>
</td>
</tr>
</table>
