<% textw= Request.Form("dsearch") %>
<% dtype= Request.Form("selectit") %>

<%
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
				   "Dbq= D:\content\users1\aviad\db\rishum.mdb;" & _
                                   "Uid=admin;" & _
                                   "Pwd=;"
Set tableRs=Server.CreateObject("ADODB.Recordset")
mySql= "Select * From table1 WHERE "&dtype&" LIKE('%"&textw&"%')"
tableRs.Open mySql, oConn,3,3
%>

<table border="1" cellpadding="4" bordercolor="black">
<tr>
<td background="panelpic/tab01.gif">ID</td>
<td background="panelpic/tab01.gif">שם משתמש</td>
<td background="panelpic/tab01.gif">סיסמה</td>
<td background="panelpic/tab01.gif">מין</td>
<td background="panelpic/tab01.gif">איימל</td>

<tr>
<% do until tableRs.eof %>
<tr>
<td background="panelpic/tab02.gif"><% =tableRs.fields("id") %></td>
<td background="panelpic/tab02.gif"><% =tableRs.fields("fname") %></td>
<td background="panelpic/tab02.gif"><% =tableRs.fields("dpass") %></td>
<td background="panelpic/tab02.gif"><% =tableRs.fields("sex") %></td>
<td background="panelpic/tab02.gif"><% =tableRs.fields("email") %></td>
</tr>
<%
tableRs.Movenext
loop
%>
</table>
<br>
מס' התוצאות:
<% =tableRs.recordcount %>

<%
oConn.Close
Set oConn= nothing
%>
<br>
<a href="http://users1.nofeehost.com/aviad//dpanel2.asp">חזור לדף ניהול המשתמשים</a>