%
if request("Submit") ="Submit" then
f_name=request.Form("name")
e_mail=request.Form("email")
phone=request.Form("phone")
location_area=request.Form("location_area")
property_wish=request.Form("property_wish")
property_type=request.Form("property_type")
area=request.Form("area")
majorment=request.Form("majorment")
location=request.Form("location")
expected_value=request.Form("expected_value")
query=request.Form("query")
hear=request.Form("hear")
Body_Text = "hi,
Name: " & f_name & "
Email: " & e_mail & "
Phone: " & phone & "
Location Area: " & location_area & "
Property Wish: " & property_wish & "
Property Type: " & property_type & "
Area: " & area & "
Measurement: " & majorment & "
Location: " & location & "
Expected Value: " & expected_value & "
Query; " & query & "
How to hear about us: " & hear
Subject ="Registration"
fromWho=e_mail & "(" & f_name & l_name & ")"
toWho="query@ayam.in"
Dim objCDO
Dim objConf
Dim objFields
'Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
'Set objConf = Server.CreateObject("CDO.Configuration")
'Set objFields = objConf.Fields
'objFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 25
'objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.net4india.com"
'objFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'objFields.Update
'Set objCDO.Configuration = objConf
objCDO.From ="query@ayam.in"
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.HTMLBody = Body_Text
'response.end
objCDO.Send
Set ObjCDO = Nothing
'Set objConf = Nothing
Set objFields = Nothing
response.redirect("thanks.htm")
end if
%>
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||