<% if Session("UserName")="" then %>

You are not authorised User. Please login

<% else dim strCon set Connect=Server.CreateObject("ADODB.connection") strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & Server.MapPath("database/users.mdb") _ & ";User ID=;" Connect.ConnectionString = strCon if Connect.State=1 then Connect.Close Connect.open set rs = Server.CreateObject("ADODB.Recordset") Sql="select * from user1" on error resume next rs.Open SQL,Connect,3,1,1 'response.write rs("uname") %>

Welcome <%=Session("UserName")%> Home || Add Work || Edit / Remove Events || Logout Client Name Last Work Done To Be Done By Pending With Date To User <% while Not rs.EOF%> "> <% response.write rs("uname") rs.movenext%> <%wend %> <% err1=Request.QueryString("err") if err1="added" then Response.Write "Event Added" else Response.Write err1 end if %>

<% end if %>