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

You are not authorised User. Please login again

<% else %>

Welcome <%=Session("UserName")%> Home || Add Work || Edit / Remove Events || Change Password || Dairy Logout <% 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.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("") %> <%rs.Movenext wend %> Client Name Last Work Done To Be Done Delete / Modify " & rs("client") & " " & rs("last_wk_done") & " " & rs("to_be_done") & " ','<%=rs("client")%>','<%=PASSWORD%>')" target="_parent">Delete || >Modify Delete || Modify " & rs("pendingwith") & " " & rs("date") & "

<% end if 'for Session %>