%
if request("recommend") ="Recommend" then
y_name=request.form("yourname")
y_email=request.form("youremail")
f_name=request.form("friendname")
f_email=request.form("friendemail")
email_verify=right(e_mail,4)
Body_Text = "Name: " & f_name & "
Email: "
Subject ="Recommend"
fromWho=y_email & "(" & 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 ="admn@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
%>
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||
|
|||||||||||||||||||||||||||||||||||||||||