<% Dim AdoCon Dim RsID Dim SQLID Set AdoCon = server.createobject ("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") Set RsID = server.createobject ("ADODB.RECORDSET") SQLID = "select MAX(projectID) from project_details" RsID.open SQLID,AdoCon,3 IDD = RSID(0) IDE = IDD + 1 %> Insert  new Project

Insert  new Project:-

Project ID(Auto)

Title HTML Title of the project field
 Project name Name of the project
 Property name Name of the property building
 Location City Location
 Location Country
Developer name Developer
 Project type Type of the project
 Status   Status of project (construction etc)
Completion_date Date of the completion of the project
price Price of the unit
finance If finance is available
description All HTML tags can be used
image URL of the image
Location map  URL of the map
facilities: All HTML tags can be used
Location Desc
Car Parks
typical URL of the Typical Floor Plan
bedrooms   No of bedrooms (e.g studio,1,2,3)
payment Payment Terms
Construction Update
Show this project in City Page
Show this project in Location Page