<% 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 = "India Show 2008 - Recommend A Colleague" objMessage.TextBody = "FriendsEmail = " & txtFriendsEmail & " , FriendsName = " & txtFriendsName & ", Your Name = "& txtName & ", Your Email =" & txtEmail 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 %>