<% IDE = request.querystring("ID") Assignee = request.form("EnquiryAssign") Dte = request.form("AssignedDte") Acomm = request.form("TXTAssigncomments") response.write Acomm 'response.end Dim AdoCon Dim RsP Dim SQLP Set AdoCon = server.createobject ("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsP = server.createobject ("ADODB.RECORDSET") SQLP = "Update enquiries set assignedto='" & Assignee &"',assignDate='" & Dte & "',assigcomments='" & Acomm & "' where EnquiryID=" & IDE response.write SQLP RsP.open SQLP,AdoCon,3,3 response.redirect "adminviewenquiry.asp" %> Assign Enquiry