<% 'ON ERROR RESUME NEXT IDD = request.querystring("IDE") '--------Initiliasing 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("/DB/fh.mdb") Set RsSearch = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLSearch = "select * from typeNprice where projectID=" & IDD '---------------------------------------------------------------- RsSearch.Open SQLSearch,AdoCon,3,3 %> Edit price
 

Edit price

 View All projects
<%do while not RsSearch.eof%> <%RsSearch.movenext%> <%loop%>
Type BR Price view floorplan typical Floorplan floorno sqft Edit
<%=RsSearch("typeName")%> <%=RsSearch("bedroom")%> <%=RsSearch("priceAED")%> <%=RsSearch("pview")%> <%=RsSearch("floorplan")%> <%=RsSearch("typical")%> <%=RsSearch("floorno")%> <%=RsSearch("sqft")%> &PID=<%=IDD%>">Edit