<%
Dim AdoCon
Dim RsID
Dim RsP
Dim SQLP
Dim IDL
Dim pt
Dim SQLID
Dim IDD
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(propID) from ListedProperties"
RsID.open SQLID,AdoCon,3
IDD = RsID(0)
IDL = IDD + 1
' ****************************************************
' Change the value of the variable below to the pathname
' of a directory with write permissions, for example "C:\Inetpub\wwwroot"
Dim uploadsDirVar
uploadsDirVar = pt
' ****************************************************
%>
List your property | Future Homes Dubai