<%@ Language=VBScript
%>
<%
'------------ mera code start----------
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("future.mdb")
'AdoCon.Open "dd"
Set RsID = server.createobject ("ADODB.RECORDSET")
SQLID = "select MAX(propID) from listedProp"
RsID.open SQLID,AdoCon,3
IDD = RsID(0)
IDL = IDD + 1
'-----------------mera code end------------
' ****************************************************
' 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 | DUBAI DEVELOPERS