<% dim txtName,txtEmail, txtFriendsName, txtFriendsEmail txtName=request.form("txtName") txtEmail=request.form("txtEmail") txtFriendsName=request.form("txtFriendsName") txtFriendsEmail=request.form("txtFriendsEmail") set objMessage = createobject("cdo.message") set objConfig = createobject("cdo.configuration") ' Setting the SMTP Server Set Flds = objConfig.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.update Set objMessage.Configuration = objConfig objMessage.To = txtFriendsEmail objMessage.BCC = "mehul@oite.com" objMessage.From = txtEmail objMessage.Subject = "Oman Travel Market 2008 - Recommend A Colleague" objMessage.TextBody = "Dear " & txtFriendsName &" Your friend "& txtName &" recommends you to visit Oman Travel Market Exhibition Site,
Please Visit :-
http://www.oite.com/indiashow/index.asp" objMessage.fields.update objMessage.Send Response.write "Thank you for Recommending a colleague..." Response.write "
" & txtFriendsEmail & "
" & txtFriendsName & "
" & txtName & "
" & txtEmail set objMessage = nothing set objConfig = nothing %>