<% '----Get the Id for the property---------- PROJC = request.querystring("PRID") OPdecision = request.form("TXTdec") response.write OPdecision '----------Initialize variables---------- Dim AdoCon Dim RsSearch Dim SQLProj Dim RsPrc Dim SQLPrc '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("../fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- if OPdecision = "ACT" then SQL = "update ListedProperties set ActiveStatus ='" & "y" & "' WHERE propID =" & PROJC else if OPdecision = "INV" then SQL = "update ListedProperties set ListASInvestment ='Yes',flag='b' WHERE propID =" & PROJC else if OPdecision ="DEL" then SQL = "delete from ListedProperties WHERE propID =" & PROJC end if end if end if response.write SQL RsSearch.Open SQL,AdoCon,3,3 response.redirect "adminlistedproperties.asp?DKEY=ALL" %> New Page 1