<%
id=Request.Form("id")
client=Request.Form("clientname")
last=Request.Form("last_wk_done")
done=Request.Form("to_be_done")
pending=Request.Form("pendingwith")
date1=Request.Form("date1")
'Response.Write 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.Mode=3
	Connect.open
	set cmd=Server.CreateObject("ADODB.Command")
	set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * FROM emp WHERE id=" & id & "", Connect, 2, 2	
		  rs("client") = client
          rs("last_wk_done") = last
          rs("to_be_done") = done
		  rs("pendingwith") = pending
		  rs("date") = cdate(date1)
		  rs.Update       
        rs.Close
        Set rs = Nothing
	if error<>0 then
		Response.Redirect "modify.asp?err="&err.Description &"id="&id
	else
		Response.Redirect "view.asp?err=changed&id="&id
	end if

%>