 |
<%
dim look_for
look_for = Request.Form("look_for")
if Request.QueryString("submitted") = "yes" then
%>
| email |
name |
login |
pass |
Un/Archive |
<%
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "select id, email, name, login, pass, active "
query = query & "from beta_mappers where "
query = query & "(email like '%" & look_for & "%') or "
query = query & "(name like '%" & look_for & "%') or "
query = query & "(login like '%" & look_for & "%') or "
query = query & "(pass like '%" & look_for & "%')"
query = query & "order by active"
'Response.Write("Query = [" & query & "]
")
set tigRS = tigCON.Execute(query)
if (tigRS.EOF) then
%>
Nothing in the database matches your search, try again?
<%
end if
dim id
do while not tigRS.EOF
id = tigRS("id")
%>
| <%=tigRS("email")%> |
<%=tigRS("name")%> |
<%=tigRS("login")%> |
<%=tigRS("pass")%> |
<% if tigRS("active") then %>
active |
<% else %>
Not active |
<% end if %>
<%
tigRS.MoveNext
loop
tigRS.close
tigCON.close
%>
<%
end if
%>
|