<% if session("AdminLogin")="" then Response.Redirect "default.asp" %> <% if Request.Form.Count=0 then sql = "select LoginId, LoginName, Password1 from Logins Order by LoginName" set rs = server.CreateObject("adodb.recordset") msg = "" rs.open sql, con, 3, 3 if rs.RecordCount=0 then msg = "No Records Found" rs.Close if msg<>"" then %>

<%=SiteName%>		Home     Logout
	height=200 border=0 cellpadding=0 cellspacing=0> <%=msg%> Back

<% Response.End end if %>

<%=SiteName%>		Home     Logout
	"> <% rs.Open sql, con, 3, 3 sno = 0 while not rs.EOF sno = sno + 1 %> <% rs.MoveNext wend rs.Close set rs = nothing %> SNo Login Name Password   Delete <%=sno%> "> <%=rs("LoginName")%> <%=rs("Password1")%> ">Update "> Add New Login

<% else ids = split(Request.Form("ids"), ", ") for i = 0 to ubound(ids) if Request.Form("delete" + ids(i))="on" then sql = "delete from Logins where LoginId=" + ids(i) con.execute sql end if next Response.Redirect Request.ServerVariables("script_name") end if %>