|
|
|
|
 |
|
|
|
|
<%
sqlString = "Select Full, Title, Phone, Name, LevelEmp " & _
"From qryClk " &_
"Where name like '%" & searchfor & "%' " &_
"or Title Like '%" & searchfor & "%' " &_
"Or Phone Like '%" & searchfor & "%' " &_
"Or Full Like '%" & searchfor & "%' " &_
"Order by LevelEmp, Name "
'response.write sqlstring
'Set RS = con.Execute(sqlstring)
'if notrs.eof and searchfor <> "" Then
Set rsMbrs = Server.CreateObject("ADODB.Recordset")
rsMbrs.Open sqlString , cnn1, adOpenForwardOnly, adLockReadOnly, adCmdText
if not rsMbrs.eof and searchfor <> "" Then
%>
| Name |
Title |
Phone |
<%
Do While Not rsMbrs.EOF
%>
| <%=Server.HTMLEncode(rsMbrs.Fields(0).Value)%> |
<%=Server.HTMLEncode(rsMbrs.Fields(1).Value)%> |
<%=Server.HTMLEncode(rsMbrs.Fields(2).Value)%> |
<%
rsMbrs.MoveNext
loop
rsMbrs.Close
Set rsMbrs = Nothing
cnn1.Close
Set cnn1 = Nothing
%>
<%
ELSE
%>
You may search the Clerk's Directory one of three ways.
For example enter the name John in the search box then click search.
A listing of all employees with the name of John or Johnson will appear in the list.
|
| |
