Ändra söksats (Snabb fråga)

5 svar · 166 visningar · startad av Lazerzubb 15 apr. 2002

LazerzubbMedlem sedan mars 2000542 inlägg

Frågan15 apr. 2002 16:40#1

Jag har 2 "formfields"
Region och stad.
fråga:
Om man bara väljer region ska den visa alla som har samma värde (fältet "province")
Väljer man stad ska bara matchande städer visas.
Vad ska man ändra nedan?

SQL = "SELECT * From star WHERE (province LIKE '" & Request.Form("stad")& "%' OR city LIKE '" & Request.Form("resort")&_
 "%') AND price BETWEEN " & Request.Form("LPrice")& " AND " & Request.Form("HPrice")&_

Mvh Martin.

LarsGMedlem sedan dec. 200012 464 inlägg

15 apr. 2002 18:10#2

SQL = "SELECT * From star where price BETWEEN " & _
Request.Form("LPrice")& " AND " & Request.Form("HPrice")

if  Request.Form("stad") <> "" then
    sql = sql  & " and province LIKE '" & Request.Form("stad") & "%' "
end if
if Request.Form("resort") <> "" then
   sql  = sql & " and city LIKE '" & Request.Form("resort")& "%'"
end if

LazerzubbMedlem sedan mars 2000542 inlägg

15 apr. 2002 18:45#3

Thx, funkar inte riktigt, har säkert satt in koden konstigt

<%	Set Connect = Server.CreateObject("ADODB.Connection")
        Set RS    = Server.CreateObject("ADODB.Recordset")
	Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=mindb.mdb"
if  Request.Form("region") <> "" then
    sql = sql  & " and province LIKE '" & Request.Form("region") & "%' "
end if
if Request.Form("resort") <> "" then
   sql  = sql & " and city LIKE '" & Request.Form("resort")& "%'"
SQL = "SELECT * From star WHERE price BETWEEN " & Request.Form("LPrice")& " AND " & Request.Form("HPrice")&_
 " AND bedr BETWEEN " & Request.Form("beds")& " AND " & Request.Form("bedsh")&_
 " AND bathr BETWEEN " & Request.Form("baths")& " AND " & Request.Form("bathsh")&_
" AND htype IN (" & Request.Form("typ")&_
 ") AND term = '" & Request.Form("sale")&_
 "' ORDER BY price DESC"

RS.Open SQL, Connect, 3, 3

%>

LarsGMedlem sedan dec. 200012 464 inlägg

15 apr. 2002 18:58#4

<%	
Set Connect = Server.CreateObject("ADODB.Connection")
 Set RS    = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=mindb.mdb"

SQL = "SELECT * From star WHERE price BETWEEN " & Request.Form("LPrice")& " AND " & Request.Form("HPrice")&_
 " AND bedr BETWEEN " & Request.Form("beds")& " AND " & Request.Form("bedsh")&_
 " AND bathr BETWEEN " & Request.Form("baths")& " AND " & Request.Form("bathsh")&_
" AND htype IN (" & Request.Form("typ")&_
 ") AND term = '" & Request.Form("sale") & "'"
 
if  Request.Form("region") <> "" then
    sql = sql  & " and province LIKE '" & Request.Form("region") & "%' "
end if
if Request.Form("resort") <> "" then
   sql  = sql & " and city LIKE '" & Request.Form("resort")& "%'"
end if
SQL = sql & " ORDER BY price DESC"

RS.Open SQL, Connect, 3, 3

%>

LazerzubbMedlem sedan mars 2000542 inlägg

15 apr. 2002 19:29#5

Den skriver inte ut något :q
Men jag får inte felmeddelande.

LazerzubbMedlem sedan mars 2000542 inlägg

16 apr. 2002 14:36#6

Ok detta kanske hjälper

<%	
Set Connect = Server.CreateObject("ADODB.Connection")
Set RS    = Server.CreateObject("ADODB.Recordset")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=mindb.mdb"
If Request.Form("sale") <> "" Then
SQL = "SELECT * From star WHERE price BETWEEN " & Request.Form("LPrice")& " AND " & Request.Form("HPrice")&_
 " AND bedr BETWEEN " & Request.Form("beds")& " AND " & Request.Form("bedsh")&_
 " AND bathr BETWEEN " & Request.Form("baths")& " AND " & Request.Form("bathsh")&_
" AND htype IN (" & Request.Form("typ")&_
 ") AND term = '" & Request.Form("sale") & "'"
 
if  Request.Form("region") <> "" then
    sql = sql  & " and province LIKE '" & Request.Form("region") & "%' "
end if
if Request.Form("resort") <> "" then
   sql  = sql & " and city LIKE '" & Request.Form("resort")& "%'"
end if
SQL = sql & " ORDER BY price DESC"

RS.Open SQL, Connect, 3, 3

%>

<font size="2"> <font face="Verdana, Arial, Helvetica, sans-serif" color="#0968AE">Your 
      search returned
      <B><% Response.write RS.RecordCount %></B>
      results</font></font></td>
  </tr>
</table>
<%
if not rs.eof then
do until rs.eof
%>
<table width="57%" border="0" cellspacing="0" cellpadding="0" height="18">
  <tr> 
    <td width="17%">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
<%=rs("tpic")%>
    </td>
    <td width="27%"><font face="Verdana" size="1"><A HREF="detail.asp?id=<%=rs("ID")%>"><%=rs("City")%></A><BR><%=rs("Province")%></font></td>
    <td width="12%"><font face="Verdana" size="1"><%=rs("bedr")%></font></td>
    <td width="10%"><font face="Verdana" size="1"><%=rs("bathr")%></font></td>
    <td width="14%"><font face="Verdana" size="1"><%=rs("htype")%></font></td>
    <td width="20%"><font face="Verdana" size="1">&nbsp;&euro;<% Response.Write FormatNumber(rs("price"), 0, -1, -1) %></font></td>
  </tr>
</table>
      
<table width="57%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td><img src="line.gif" width="560" height="1"></td>
  </tr>
</table>
<br>
<%rs.movenext
loop
end if
else
%>
Hittade inget. 
<%
end if

rs.close
set rs=Nothing
Connect.close
set connect=nothing

%>