

อันนี้่เป็นรูป database ครับ
ส่วนอันนี้เป็น url
http://student.nu.ac.th/ice/thaicar
คือจะให้เลือกจากตัวเลือก เช่น สีรถ แล้วใส่ ว่้า สีขาว ให้มันแสดงเรียกจาก database
อัีนนี้เป็น code เก่าครับที่ทำไว้แล้ว
<form id="form1" name="form1" method="post" action="result.asp">
<div align="center">ค้นหาจาก
<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>กรุณากรอก Keyword เพื่อค้นหา<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
%>
ไม่มีข้อมูลในตาราง !
<%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>
ขอบคุณครับ