คำถาม ASP ครับช่วยหน่อย

[Azsumi]

อันนี้่เป็นรูป database ครับ
ส่วนอันนี้เป็น url

โค้ด เลือก ขยาย

http://student.nu.ac.th/ice/thaicar
คือจะให้เลือกจากตัวเลือก เช่น สีรถ แล้วใส่ ว่้า สีขาว ให้มันแสดงเรียกจาก database
อัีนนี้เป็น code เก่าครับที่ทำไว้แล้ว

โค้ด เลือก ขยาย

<form id="form1" name="form1" method="post" action="result.asp">
                                            <div align="center">&#3588;&#3657;&#3609;&#3627;&#3634;&#3592;&#3634;&#3585;
                                                <select name="listmenu" id="listmenu">
                                                  <option value="name">ชื่อรถ</option>
                                                  <option value="type">ประเภทรถ</option>
                                                  <option value="color">สีรถ</option>
                                                  <option value="price">ราคา</option>
                                                  <option value="date">จำนวนวันที่เช่า</option>
                                                  <option value="amount">จำนวนรถที่ว่างให้เช่า</option>
                                                </select>
                                                <input name="keyword" type="text" id="keyword" value="<%=Request.Form("keyword")%>" />
                                                <input name="Submit2" type="submit" id="Submit2" value="ค้นหา" />
                                            </div>
                                            <label>
                                            <div align="center"></div>
                                            </label>
                                            <div align="center"><br />
                                                <%
if Request.Form("keyword")=""   then
Response.write("<br>&#3585;&#3619;&#3640;&#3603;&#3634;&#3585;&#3619;&#3629;&#3585; Keyword &#3648;&#3614;&#3639;&#3656;&#3629;&#3588;&#3657;&#3609;&#3627;&#3634;<hr>")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database/thaicar.mdb"),"" , ""
sql ="Select * From thaicar where   name  like '%"&Request.Form("keyword")&"%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>
                                              &#3652;&#3617;&#3656;&#3617;&#3637;&#3586;&#3657;&#3629;&#3617;&#3641;&#3621;&#3651;&#3609;&#3605;&#3634;&#3619;&#3634;&#3591; !
                                              <%Else%>
                                            </div>
                                            <table width="100%" border="1">
                                              <tr bgcolor="Silver">
                                                <td>เลขทะเบียนรถ</td>
                                                <td>ชื่อรถ</td>
                                                <td>ประเภทรถ</td>
                                                <td>สีรถ</td>
                                                <td>ราคาเช่า/วัน</td>
                                                <td>จำนวนรถที่ว่าง</td>
                                                <td>จำนวนวันที่ให้เช่า</td>
                                              </tr>
                                              <% While Not Rs.EOF%>
                                              <tr>
                                                <td><%= Rs("Id")%></td>
                                                <td><%= Rs("name")%></td>
                                                <td><%= Rs("type")%></td>
                                                <td><%= Rs("color")%></td>
                                                <td><%= Rs("price")%> บาท </td>
                                                <td><%= Rs("amount")%> คัน </td>
                                                <td><%= Rs("date")%> วัน </td>
                                              </tr>
                                              <% Rs.MoveNext
Wend
Rs.Close
Conn.Close
End If
%>
                                            </table>
                                            <%
end if
%>
                                        </form>
ขอบคุณครับ

[Azsumi]

ขุดหน่อยงับ 

[Azsumi]

ช่วยหน่อยครับ 

[chapicha]

ให้ทำการ check ค่าของ listmenu ด้วยครับ
ตอนนี้ท่าน check แต่ค่าของ keyword แค่อย่างเดียว

ถ้า listmenu ส่งค่้า color มาก็ให้  sql = .... where color = xxxx
แต่ถ้า listmenu ส่งค่า price มาก็ให้ sql  = ... where price = xxxx
ถ้า listmenu ส่งค่้า amount มาก็ให้  sql = .... where amount = xxxx

จากนั้นก็ค่อย connect database แล้วเอา sql ด้านบนไปเรียกข้อมูลจาก database อีกที

[Azsumi]

ให้ทำการ check ค่าของ listmenu ด้วยครับ
ตอนนี้ท่าน check แต่ค่าของ keyword แค่อย่างเดียว

ถ้า listmenu ส่งค่้า color มาก็ให้  sql = .... where color = xxxx
แต่ถ้า listmenu ส่งค่า price มาก็ให้ sql  = ... where price = xxxx
ถ้า listmenu ส่งค่้า amount มาก็ให้  sql = .... where amount = xxxx

จากนั้นก็ค่อย connect database แล้วเอา sql ด้านบนไปเรียกข้อมูลจาก database อีกที

ทำไงครับ
ช่วยดูcodeนี้ที

โค้ด เลือก ขยาย

              <form id="form1" name="form1" method="post" action="index.asp">
                            <div align="center">&#3588;&#3657;&#3609;&#3627;&#3634;&#3592;&#3634;&#3585;
                                <select name="fields">
                                  <option value="name">ชื่อรถ</option>
                                  <option value="type">ประเภทรถ</option>
                                  <option value="color">สีรถ</option>
                                  <option value="price">ราคา</option>
                                  <option value="date">จำนวนวันที่เช่า</option>
                                  <option value="amount">จำนวนรถที่ว่างให้เช่า</option>
                                </select>
                                <input name="keyword" type="text" id="keyword" value="<%=Request.Form("keyword")%>" />
                                <input name="Submit2" type="submit" id="Submit2" value="ค้นหา" />
                            </div>
                            <label>
                            <div align="center"></div>
                            </label>
                            <div align="center"><br />
                                <%
keyword=Request.Form("keyword")
if Request.Form("keyword")=""   then
Response.write("<br>&#3585;&#3619;&#3640;&#3603;&#3634;&#3585;&#3619;&#3629;&#3585; Keyword &#3648;&#3614;&#3639;&#3656;&#3629;&#3588;&#3657;&#3609;&#3627;&#3634;<hr>")
else
Set Conn=Server.Createobject("ADODB.Connection")
Conn.Open "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("database/thaicar.mdb"),"" , ""
sql ="Select * From thaicar where  name like '%"&keyword&"%'"
Set Rs = Conn.Execute(sql)
If Rs.EOF Then
%>

[mars]

sql ="Select * From thaicar where  " & fields & " like '%"&keyword&"%'"

[Azsumi]

sql ="Select * From thaicar where  " & fields & " like '%"&keyword&"%'"

ขอบคุณครับได้เลย