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

You are not authorised User. Please login again

<% else %>

Welcome <%=Session("UserName")%> Home || Add Work || Edit / Remove Events || Logout <% today=date() 'Response.Write today dim strCon set Connect=Server.CreateObject("ADODB.connection") strcon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _ & Server.MapPath("database/db.mdb") _ & ";User ID=;" Connect.ConnectionString = strCon if Connect.State=1 then Connect.Close 'Connect.Mode=3 Connect.open set rs = Server.CreateObject("ADODB.Recordset") Sql="select * from emp"' where uname='" & Session("UserName") & "' Order By date ASC" on error resume next rs.Open SQL,Connect,3,1,1 while not rs.EOF response.write("") 'response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") %> <%rs.Movenext wend %> Client Name Last Work Done To Be Done by Pending With Date User " & rs("client") & " Delete " & rs("last_wk_done") & " " & rs("to_be_done") & " " & rs("pendingwith") & " " & rs("date") & " " & rs("uname") & "

<% end if 'for Session %>