<form method="post">
<p>Keyword :
<input size=40 name="keyword" type="text" >
<select name="search_for" id="search_for">
<option value="fname">First Name</option>
<option value="lname">Last Name</option>
<option value="address">Address</option>
</select>
<br><br>
Lotfan noe search ra entekhab konid
<br><br>
Natije bayad ba kalameye jostejoo kamelan yeki bashad <input name="search_type" type="radio" value="1" checked>
<br>
Vojoodeh kalameye jostejo dar har ghesmate natije <input name="search_type" type="radio" value=2>
<br><br>
<input type="hidden" name="task" value=2>
<input type="submit" name="Submit" value="Submit">
</p>
</form>
<%
if request.form("task")="2" then
accessdb="db1"
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
keyword=request.form("keyword")
search_type=request.form("search_type")
Select case request.form("search_for")
case "fname"
if search_type=1 then
sql = "select * from main where fname ='"& keyword & "'"
else
sql = "select * from main where fname like '%%"& keyword & "%%'"
end if
case "lname"
if search_type=1 then
sql = "select * from main where lname ='"& keyword & "'"
else
sql = "select * from main where lname like '%%"& keyword & "%%'"
end if
case "address"
if search_type=1 then
sql = "select * from main where address ='"& keyword & "'"
else
sql = "select * from main where address like '%%"& keyword & "%%'"
end if
end select
rs.Open sql, cn
if rs.eof then
%>No Matches Found<%
else
%>
<table width=100% border="1">
<tr>
<td><span class="style7">Id</span></td>
<td><span class="style7">First Name</span></td>
<td><span class="style7">Last Name</span></td>
<td><span class="style7">Address</span></td>
</tr>
<%
do while not rs.eof
%>
<TR bgColor=#eeeeee>
<TD align=right class="style3"><div align="center"><%=rs("id")%></div></TD>
<TD align=right class="style3"><div align="center"><%=rs("fname")%></div></TD>
<TD align=right class="style3"><div align="center"><%=rs("lname")%></div></TD>
<TD align=right class="style3"><div align="center"><%=rs("address")%></div></TD>
</tr>
<%
rs.movenext
loop
%></table><%
end if
end if
%>
