<% 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 = "EDUTECH EXPO 2008 - Recommend A Colleague" objMessage.HTMLBody = "Dear " & txtFriendsName &",

Your friend "& txtName &" recommends you to visit EDUTECH Expo 2008 Site,

Please Visit :-
http://www.oite.com/edutech/" objMessage.fields.update objMessage.Send Response.write "Thank you for Recommending a colleague..." set objMessage = nothing set objConfig = nothing %>