<%@ Language=VBScript %> <% if request("B1") = "Submit" then Dim objCDOSYSCon Set objCDOSYSMail = Server.CreateObject("CDO.Message") Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration") 'Out going SMTP server objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "www.belanis.com" 'SMTP port objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 8025 objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Timeout objCDOSYSCon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 objCDOSYSCon.Fields.Update Set objCDOSYSMail.Configuration = objCDOSYSCon 'Who the e-mail is from objCDOSYSMail.From = "webmaster@belanis.com" 'Who the e-mail is sent to objCDOSYSMail.To = "marketing@belanis.com" 'The subject of the e-mail objCDOSYSMail.Subject = "Enquiry from a Buyer." 'Set the e-mail body format (HTMLBody=HTML TextBody=Plain) objCDOSYSMail.HTMLBody = "" & "Name: " & request("name") _ & "
" & "Occupation: " & request("Occupation") _ & "
" & "Address: " & request("address") _ & "
" & "Office Phone: " & request("phone_office") _ & "
" & "Residance Phone: " & request("Res_Phone") _ & "
" & "Mobile No: " & request("mobile") _ & "
" & "Fax No: " & request("fax") _ & "
" & "Email: " & request("eml") _ & "
" & "Preferred Location: " & request("PrefLocation") _ & "
" & "Location Name:" & request("LocName") _ & "
" & "Price Range Between:" & request("MinPrice") & " and " & request("MaxPrice") _ & "
" & "No of Bedrooms :" & request("NoBedroom") _ & "
" & "Total Sqft Area Between:" & request("MinSqft") & " and " & request("MaxSqft") _ & "
" & "General Comments :" & request("otherinfo") _ & "" objCDOSYSMail.Send Set objCDOSYSMail = Nothing Set objCDOSYSCon = Nothing If Err <> 0 Then Response.Write Err.Description End If set obj = Nothing response.clear response.redirect "accepted.htm" response.end end if %> Please fill up your land buying requirements here                                                                                                                                                                               
Give details of your requirement
Name :    
Occupation :    
Address :    
Phone No. (Office) :    
Phone No. (Res.) :    
Mobile No. :    
Fax No. :    
E-Mail ID :    
Preference of Location :    
Any Other Location :    
Price range between     
(in Lacs) :   		     and   
No. Of Bedrooms :    
 Total Area in Sq.ft.     between :        and   
Other Information :    
Please fill up all the form fields