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

You are not authorised User. Please login

<% else id=request.querystring("id") 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 id=" & id & "" on error resume next rs.Open SQL,Connect,3,1,1 %>

Welcome <%=Session("UserName")%> Home || Add Event || View / Remove Events || Change Password || Dairy Logout Client Name > "> Last Work Done <%=rs("last_wk_done")%> To Be Done <%=rs("to_be_done")%> Pending With "> Date " size="12" > <% err1=Request.QueryString("err") if err1="added" then Response.Write "Event Added" else Response.Write err1 end if %>

<% end if %>