<% Set objMessage = CreateObject("CDO.Message") if Request.Form("propertytype1") <> "" Then dim strMailBody dim strRet 'property buyers details starts here strMailBody = "" strMailBody = strMailBody & "" strMailBody = strMailBody & "" dim radbtn1 if Request.Form("rd1")<> "" then radbtn1="Buy" strMailBody=strMailBody & "" end if dim radbtn2 if Request.Form("rd2")<> "" then radbtn2="Rent / Lease" strMailBody=strMailBody & "" end if dim radbtn3 if Request.Form("rd3")<> "" then radbtn3="PG" strMailBody=strMailBody & "" end if strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "
I am looking for property!
Transcation Type"& radbtn1 & ""& radbtn2 & ""& radbtn3 & "
Type of Property"& Trim(Request.Form("propertytype1")) & "
City"& Trim(Request.Form("city1")) & "
Locality"& Trim(Request.Form("locality1")) & "
Budget"& Trim(Request.Form("budget1")) & "
Minimum Bedroom"& Trim(Request.Form("bedroom1")) & "
Name"& Trim(Request.Form("name1")) & "
E-mail"& Trim(Request.Form("email1")) & "
Phone"& Trim(Request.Form("phone1")) & "
" 'property buyers details ends here strRet = SendMail("vtstravels2012@gmail.com", "Real Estate", strMailBody) If(strRet = "") then Response.Redirect("realestate.asp") Else Response.Write(strRet) End if end if if Request.Form("propertytype2") <> "" Then 'Property Owners details starts here strMailBody = "" strMailBody = strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "" strMailBody=strMailBody & "
Owner- I want to sell my Property!
Property Type"& Trim(Request.Form("propertytype2")) & "
Name of the owner"& Trim(Request.Form("owner")) & "
Mobile"& Trim(Request.Form("mobile")) & "
E-mail"& Trim(Request.Form("email")) & "
City"& Trim(Request.Form("city")) & "
Property Locality"& Trim(Request.Form("locality")) & "
Category"& Trim(Request.Form("category")) & "
Address"& Trim(Request.Form("address")) & "
Bed Rooms"& Trim(Request.Form("bedrooms")) & "
Bath Rooms"& Trim(Request.Form("bathrooms")) & "
Facing"& Trim(Request.Form("facing")) & "
Property Age"& Trim(Request.Form("propage")) & "
Property Description"& Trim(Request.Form("propdesc")) & "
Price"& Trim(Request.Form("price")) & "
" 'Property Owners details ends here strRet = SendMail("vtstravels2012@gmail.com", "Real Estate", strMailBody) If(strRet = "") then Response.Redirect("realestate.asp") Else Response.Write(strRet) End if end if function SendMail(toAddr, subjectText, bodyText) dim mailer dim cdoMessage, cdoConfig 'Assume all will go well. SendMail = "" 'Configure the message. set cdoMessage = Server.CreateObject("CDO.Message") set cdoConfig = Server.CreateObject("CDO.Configuration") cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net" cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 cdoConfig.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "vtstravels2012@gmail.com" cdoConfig.Fields.Update set cdoMessage.Configuration = cdoConfig 'Create the email. 'cdoMessage.From = ADMIN_USERNAME & " <" & ADMIN_EMAIL & ">" cdoMessage.From = "info@venkateshwaratravels.in" cdoMessage.To = toAddr cdoMessage.Subject = subjectText cdoMessage.HTMLBody = bodyText 'Send it. on error resume next cdoMessage.Send 'If an error occurred, return the error description. if Err.Number <> 0 then SendMail = Err.Description end if 'Clean up. set cdoMessage = Nothing set cdoConfig = Nothing end function %>

Dear Customer Accept For Credit Card, Debit Card, Net Banking, Cash Deposit More Information Please Call: 9880821926

Real Estate - 90199 95524, 98868 43719

Buying & Selling, Rental, Lease Sites, Houses, Flats, Residential & Commercial Space

 

2 BHK Residential House for Rent in JP Nagar (Mob:9019995524) 1 BHK Residential House for Rent in Jaya Nagar (Mob:9019995524)
Rent : Rs. 10,000 Floor : 2
Bedroom : 2           Facing : East
Bathroom : 1        Parking : 1 two wheeler
Rent : Rs. 6,500 Floor : Ground
Bedroom : 1     Facing : West
Bathroom : 1       Parking : No
 
1 BHK Residential House for Rent in JP Nagar (Mob:9019995524) 3 BHK Residential House for Rent in BTM Layout (Mob:9019995524)
Rent : Rs.7,000 Floor : 2
Bedroom : 1           Facing : North
Bathroom : 1        Parking : 1 two wheeler
Rent : Rs. 20,000 Floor : 1
Bedroom : 3     Facing : South
Bathroom : 2       Parking : Car

 

 

Transcation Type
Buy
Rent / Lease
 PG
Type of Property

City
Locality
Budget
 
Minimum Bedroom
Name
E-mail
Phone