<%
IDL = request.querystring("ID")
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 * from ListedProperties where propID=" & IDL
RsID.open SQLID,AdoCon,3
' ****************************************************
' 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
Please
change
the details below and press the save changes button
<%else%>
