<%
'PID =request.querystring("IDE")
PID = request.form("TXTID")
ptype = request.form("TXTtype")
Pbed = request.form("TXTbed")
pPrice = request.form("TXTprice")
Pview = request.form("TXTview")
Pfloorplanurl = request.form("TXTfloorplan")
Ptypical = request.form("TXTtypical")
Pfloorno = request.form("TXTfloorno")
Psqft = request.form("TXTsqft")
If PID="" Then
response.write "please enter the details"
Else
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("/DB/fh.mdb")
Set RsP = server.createobject ("ADODB.RECORDSET")
Set Rsd = server.createobject ("ADODB.RECORDSET")
Set Rspath = server.createobject ("ADODB.RECORDSET")
'SQLPath = "select * from project_details where projectID=" &
SQLPP = "Select * from typeNprice Where projectID=" & PID
'SQLP = "insert into typeNprice values(" & PID & ",'" & ptype & "','" & Pbed & "','" & pPrice & "','" & Pview & "','" & Pfloorplanurl & "','" & Ptypical & "','" & Pfloorno & "','" & Psqft & "')"
SQLP = "insert into typeNprice (projectID,typeName,bedroom,priceAED,pview,floorplan,typical,floorno,sqft)" &_
"values(" & PID & ",'" & ptype & "','" & Pbed & "','" & pPrice & "','" & Pview & "','" & Pfloorplanurl & "','" & Ptypical & "','" & Pfloorno & "','" & Psqft & "')"
response.write SQLP
'response.end
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 "PriceGBP:"
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