Property Enquiry | Future Homes

<% Subjc = request.querystring("Subj") Subjc = "Resale : " & Subjc PropertyID = request.querystring("projID") '-------------------- Dim ProID Dim AdoCon Dim RsProject Dim SQLProj Dim RsPrc Dim SQLPrc '--------Get The Project Name--------------------------------- ProID = request.querystring("projID") '------------------------------------------------------------ '------Create Connection----------------------------------- Set AdoCon = server.createobject("ADODB.CONNECTION") AdoCon.Open "Driver={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & server.mappath("/DB/fh.mdb") 'AdoCon.Open "dd" Set RsProject = server.createobject("ADODB.RECORDSET") '--------------- SQL Statements ------------------- SQLProj = "select * from project_details WHERE projectID=" & proID '---------------------------------------------------------------- RsProject.Open SQLProj,AdoCon,3,3 '------------------------- Set Rsmenu = server.createobject("ADODB.RECORDSET") ProjList = RsProject("project_name") DontDisplayme = RsProject("property_name") SQLProjList = "select projectID,project_name,property_name from project_details WHERE project_name='" & ProjList & "' AND property_name <> '" & DontDisplayme & "'" '---------------------------------------------------------------- Rsmenu.Open SQLProjList,AdoCon,3,3 %> Property Enquiry | Future Homes

	Mandatory fields are marked with * sign
	Date
	Enquired Property
	Name	*
	City
	Country	*
	Phone
	email	*
	Mobile
	Looking for No of bedrooms
	Comments	Enter Description here
	More Information

	Would you like our property consultant to call you Preferred time
	Are you Planning to Visit Dubai in future if yes the date would be .
	Are you salaried or self employed:
	Are you looking for finance: