%
if request("Submit") ="Submit" then
f_name=request.Form("name")
e_mail=request.Form("email")
phone=request.Form("phone")
company_name=request.Form("company_name")
address=request.Form("address")
city=request.Form("city")
query=request.Form("query")
hear=request.Form("profession")
Body_Text = "hi,
Name: " & f_name & "
email: " & e_mail & "
Phone: " & phone & "
company_name : " & company & "
address: " & address & "
city: " & city & "
query: " & query & "
profession: " & hear
Subject ="Registration"
fromWho=e_mail & "(" & f_name & l_name & ")"
toWho="query@ayam.in"
Dim objCDO
Dim objConf
Dim objFields
Set objCDO = Server.CreateObject("CDO.Message")
objCDO.From ="query@ayam.in"
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.HTMLBody = Body_Text
objCDO.Send
Set ObjCDO = Nothing
Set objFields = Nothing
response.redirect("thanks.htm")
end if
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||||||||