UPS, var en tand for hurtig til at acceptere, for på den nye måde, har jeg satdig nogle select bokse ovenover, som så er i den første form, men hvis man så skriver Maxpris, og så væger en af disse, sletter de maxprisen fra feltet, hvordan kan dette undgåes?
Hele koden er her... :
<html>
<---Åbener her databse forbindelsen--->
<body>
<p align=\"center\"><font size=\"6\">Søgesiden</font><br>
</p>
<div align=\"center\"><center>
<table border=\"1\">
<tr>
<td bgcolor=\"#2908FF\" style=\"color:FFFFFF\" p align=\"center\">
<form name=\"form1\" action=\"<%=request.serverVariables(\"SCRIPT_NAME\")%>\" method=\"post\">
<font size=\"6\">1. </font>Type <select onChange=\"document.form1.submit()\" name=\"TYPE\" size=\"1\">
<option>Vælg Type her
<option value=\"a\"<%if request(\"type\") = \"a\" then response.write \"selected\" %>>Hårde hvidevarer</option>
<option value=\"b\"<%if request(\"type\") = \"b\" then response.write \"selected\" %>>Belysning</option>
<option value=\"c\"<%if request(\"type\") = \"c\" then response.write \"selected\" %>>El-apparater</option>
<option value=\"d\"<%if request(\"type\") = \"d\" then response.write \"selected\" %>>El artikler</option>
</select></td>
<%
if request(\"TYPE\")= \"a\" then
ValgtMax=\"\"
Response.write \"<tr bgcolor=#2908FF style=color:FFFFFF p align=center><td><font size=6>2. </font>Kategori \"
Response.write \"<form name=\'form1\' action=\'\" & request.serverVariables(\"SCRIPT_NAME\") & \"\' method=\'post\'>\"
response.write \"<select onChange=\'document.form1.submit()\' name=\'kategorivalgt\' size=\'1\'>\"
Response.write \"<option>Vælg Type</option>\"
SQL = \"SELECT * FROM emne LEFT OUTER JOIN kategori ON kategori.emnenr = emne.emnenr WHERE emne.typenr=1\"
set database = con.execute(SQL)
while not database.eof
if not(isnull(database(\"kategori\"))) then
response.write \"<option value=\'\" & database(\"kategori\") & \"\'\"
if request(\"kategorivalgt\") = database(\"kategori\") then response.write \"selected\"
response.write \">\" & database(\"kategori\") & \"</option>\"
else
response.write \"<option value=\'\" & database(\"emne\") & \"\'\"
if request(\"kategorivalgt\") = database(\"emne\") then response.write \"selected\"
response.write \">\" & database(\"emne\") & \"</option>\"
end if
database.movenext
wend
Response.write \"</select></td>\"
if request(\"kategorivalgt\") <> \"\" then
response.write \"</tr><tr><td bgcolor=#2908FF style=color:FFFFFF p align=center colspan=2>Her udfyldes kun de kriterier man ønsker opfyldt<br><font size=6>3. </font>\"
Response.write \"<form name=\'form1\' action=\'\" & request.serverVariables(\"SCRIPT_NAME\") & \"\' method=\'post\'>\"
ValgtMax=Request.Form(\"maxpris\")
response.write \"Mærke <select onChange=\'document.form1.submit()\' name=\'maerke\' size=\'1\'>\"
response.write \"<option value=\'Alle\'>Alle</option>\"
ValgtKategori=Request.Form(\"kategorivalgt\")
SQL = \"SELECT DISTINCT Fabrikatnavn, Fabrikatnr, Fabrikat FROM \" & ValgtKategori & \" INNER JOIN fabrikat ON fabrikat.Fabrikatnr = \" & ValgtKategori & \".Fabrikat Order By Fabrikatnavn\"
set database = con.execute(SQL)
while not database.eof
response.write \"<option value=\'\" & database(\"fabrikatnavn\") & \"\'\"
if request(\"maerke\") = database(\"fabrikatnavn\") then response.write \"selected\"
response.write \">\" & database(\"fabrikatnavn\") & \"</option>\"
database.movenext
wend
response.write \"</select> \"
Response.write \"<form name=\'form1\' action=\'\" & request.serverVariables(\"SCRIPT_NAME\") & \"\' method=\'post\'>\"
ValgtMax=Request.Form(\"maxpris\")
response.write \"Energi klasse <select onChange=\'document.form1.submit()\' name=\'Energi\' size=\'1\'>\"
response.write \"<option value=\'Alle\'>Alle</option>\"
SQL = \"SELECT DISTINCT Energiklasse FROM \" & ValgtKategori & \" Order By Energiklasse\"
set database = con.execute(SQL)
while not database.eof
response.write \"<option value=\'\" & database(\"Energiklasse\") & \"\'\"
if request(\"energi\") = database(\"Energiklasse\") then response.write \"selected\"
response.write \">\" & database(\"Energiklasse\") & \"</option>\"
database.movenext
wend
response.write \"</select> \"
ValgtMaerke=Request.Form(\"maerke\")
ValgtEnergi=Request.Form(\"energi\")
response.write \"</form>\"
response.write \"<form action=\'result.asp?ValgtKategori=\" & ValgtKategori & \"&ValgtMaerke=\" & ValgtMaerke & \"&ValgtEnergi=\" & ValgtEnergi & \"&ValgtMax=\" & Request.Form(\"maxpris\") & \"\' method=\'post\'>\"
response.write \"Max pris <input type=\'text\' size=\'6\' name=\'maxpris\' value=\'\" & ValgtMax & \"\'> \"
response.Write \"<input type=\'submit\' value=\'Søg\'>\"
response.write \"<BR><BR><font size=2>Der må i \"\"Max pris\"\" <u>KUN</u> skrives Heltal (Eks. 3500)</font>\"
response.write \"</form></td></tr>\"
else
\' her sker ikke noget
end if
end if
%>
</table>
</center></div>
</body>
</html>
