<%
clientname=Request.Form("clientname")
last_wk_done=Request.Form("last_wk_done")
to_be_done=Request.Form("to_be_done")
pendingwith=Request.Form("pendingwith")
date1=Request.Form("date1")
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 "emp",Connect,2,2
	rs.AddNew
	rs("client") = clientname
	rs("last_wk_done") = last_wk_done
	rs("to_be_done") = to_be_done
	rs("pendingwith") = pendingwith
	rs("date") = cdate(date1)
	rs("uname") = Session("UserName")
    rs.Update
    if err.number <> 0 then
	    Response.Redirect "addwork.asp?err="+err.Description 
	else
		Response.Redirect "addwork.asp?err=added"
	end if

%>