%
Clemail = request.form("TXTemail")
Phone = request.form("TXTphone")
Proptype = request.form("PropertyType")
Clcountry = request.form("country")
Clcity = request.form("city")
Pbudg = request.form("TXTbdg")
Pbudg = (Replace(Pbudg,",",""))
'response.write Pbudg
'response.end
comm = request.form("PropComments")
ReqDate = request.form("TXtdte")
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")
SQLEN ="INSERT INTO requirements(email,phone,PropType,country,city,budget,PropComments,Reqdate) VALUES('" & Clemail &_
"','"& Phone &_
"','" & Proptype &_
"','" & Clcountry &_
"','" & Clcity &_
"'," & Pbudg &_
",'" & comm &_
"','" & ReqDate & "')"
'response.write SQLEN
'response.end
RsEnq.Open SQLEN, AdoCon
%>
Post property requirements | Future Homes Dubai
|
|
This website and all content is copyright© - futurehomesdubai.com66
All rights reserved. Please read our Privacy Policy |
|