%
dim look_for
%>
|
<%
look_for = Request.Form("look_for")
if Request.QueryString("submitted") = "yes" then
%>
email |
author |
login |
pass |
In/Active |
<%
set tigCON = Server.CreateObject("ADODB.Connection")
tigCON.Open(DSN)
query = "select id, login, pass, name, email, active " & _
"from mods_login where " & _
"(login like '%" & look_for & "%') or " & _
"(pass like '%" & look_for & "%') or " & _
"(name like '%" & look_for & "%') or " & _
"(email like '%" & look_for & "%')" & _
"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
%>
|