<% 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 & "" rs.Open SQL,Connect,3,1,1 connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" connstring = connstring & Server.MapPath("database/users.mdb") 'connstring = connstring & ";User ID=;" Set conn = Server.CreateObject("ADODB.Connection") conn.open connstring set rs1 = Server.createobject("ADODB.Recordset") rs1.LockType = 3 rs1.open "user1", conn rs1.MoveFirst %>

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

<% end if rs.close conn.close set rs=nothing set conn = nothing %>