Visst.. skickar all kod jag skrivit hittills på den sidan!
Mvh Lena
<HTML>
<HEAD>
<TITLE>Avancerad sökning</TITLE>
</HEAD>
<BODY>
<table>
<tr>
<td width="2%">
</td>
<td>
<font face="tahoma" size="4" color="000000">
<b>Avancerad sökning</b><br><br>
<font face="tahoma" size="2" color="000000">
<b>Län</b>
<%
dim stugdatabas
dim rs
dim sql
set stugdatabas = server.createobject("ADODB.connection")
stugdatabas.open "DSN=stugknuten"
sql = "select * from lan order by län"
set rs = stugdatabas.Execute(sql)
%>
<form method="post" action="avsok.asp" name="Form1">
<select name="lan" onChange="document.Form1.submit()">
<option value="0">Alla län</option>
<%
do until rs.eof
%\>
\<option value="\<%=rs("lan_id")%\>"\>\<%=rs("län")%\>\</option\>
\<%
rs.movenext
loop
%></select>
<%
lanNr = Request.Form("lan")
if lanNr <> "" then
sql = "select * from v_orter_i_lan where lan_id = " & lanNr & " order by ortnamn"
else
sql = "select * from v_orter_i_lan where 1 = 2"
end if
set rs = stugdatabas.Execute(sql)
%>
</form>
<b>Ort</b> (OBS! Du måste välja län först!)
<form method="post" action="lista.asp" name="Form2">
<select name="ortnamn" onChange="document.Form2.submit()">
<%
%\>
\<option value="0"\>Alla orter\</option\>
<%
do until rs.eof
%\>
\<option value="\<%=rs("ortnamn")%\>"\>\<%=rs("ortnamn")%\>\</option\>
\<%
rs.movenext
loop
%></select>
</form>
<%
%>
<%
ort = Request.Form("ortnamn")
if ort=0 then
sql = "select * from v_grundlaggande"
else
sql = "select * from v_grundlaggande where ortnamn = " & ort
end if
set rs = stugdatabas.Execute(sql)
%>
<b>Pris per dag</b>
<form method="post" action="avsok.asp" name="Form3">
<select name="pris" onChange="document.Form3.submit()">
<option value="0">Oväsentligt</option>
<option value="max200">Max 200 kr</option>
<option value="max300">Max 300 kr</option>
<option value="max400">Max 400 kr</option>
<option value="max500">Max 500 kr</option>
<option value="max600">Max 600 kr</option>
</select>
</form>
<b>Antal bäddar</b>
<form method="post" action="avsok.asp" name="Form4">
<select name="badd" onChange="document.Form4.submit()">
<option value="0">Oväsentligt</option>
<option value="12">1-2 st.</option>
<option value="34">3-4 st.</option>
<option value="56">5-6 st.</option>
<option value="78">7-8 st.</option>
<option value="9">9 st. och fler</option>
</select>
</form>
<INPUT TYPE="checkbox" NAME="handikapp" value="6"> <b>Handikapp anpassad stuga</b><br><br>
<%if request.form("handikapp") = "6" then
facID=6
end if
%>
<INPUT TYPE="checkbox" NAME="hundar" value="4"> <b>Hundar är välkomna</b>
<%if request.form("hundar") = "4" then
facID=4
end if
%>
<%sql = "select * from stugor"
set rs = stugdatabas.Execute(sql)%>
<a href="stugor.asp?stugid=8&innehavareid=3">länk</a>
<br><br>
<input type="submit" value="Sök!">
</form>
</td>
<td width="2%">
</td>
</tr>
</table>
</BODY>
</HTML>