<% 'PID =request.querystring("IDE") PID = request.form("TXTID") ptype = request.form("TXTtype") Pbed = request.form("TXTbed") Price = request.form("TXTprice") Pview= request.form("TXTview") Pfloorplanurl = request.form("TXTfloorplan") '--------- common connections------ Dim AdoCon Dim RsP Dim Rsd Dim SQLP Dim SQLPP Set AdoCon = server.createobject ("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("../fh.mdb") Set Rsnames = server.createobject ("ADODB.RECORDSET") SQLnames = "select projectID,property_name from project_details" Rsnames.open SQLnames,AdoCon,3,3 If PID="" Then response.write "please enter the details" Else Set RsP = server.createobject ("ADODB.RECORDSET") Set Rsd = server.createobject ("ADODB.RECORDSET") SQLPP = "Select * from typeNprice Where projectID=" & PID SQLP = "insert into typeNprice values(" & PID &_ ",'" & ptype &_ "','" & Pbed &_ "','" & Price &_ "','" & Pview &_ "','" & Pfloorplanurl & "')" RsP.open SQLP,AdoCon,3,3 'response.write SQLPP Rsd.open SQLPP,AdoCon,3,3 if Rsd.recordcount > 0 then Do while not Rsd.Eof response.write "Type:" response.write "   " response.write Rsd(1) response.write "      " response.write "Bedroom:" response.write Rsd(2) response.write "   " response.write "PriceAED:" response.write "   " response.write Rsd(3) response.write "      " response.write "Views:" response.write Rsd(4) response.write "   " response.write "FloorPlan Image:" response.write "   " response.write Rsd(5) response.write "
" Rsd.MoveNext Loop End If End if %> Project Saved

Please select the project

ID Type Bed Price Views Floorplan