<% Dim AdoCon Dim RsEnq Dim SQLEN set AdoCon = server.createobject("ADODB.CONNECTION") set RsEnq = server.createobject("ADODB.RECORDSET") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") set RsID = server.createobject("ADODB.RECORDSET") SQLID = "select MAX(ID) from invest" RsID.Open SQLID, AdoCon Dim IDD IDD= RsID(0) IDD = IDD + 1 response.write IDD %> New Page 1
 Add a new plot for sale    
       
Type of plot    
Name    
Title(HTML)    
Heading    
Location    
Plot Area    
BUA    
Floors    
Price    
Parking    
Description    
Flag    
Image