<% //-- process request for e-mail dim msg, content if Request.QueryString("action") = "PROCESS" Then if Replace(Request.Form("email"), "@", "") = Request.Form("email") Or Replace(Request.Form("email"), ".", "") = Request.Form("email") Then msg = "

The e-mail address is not valid.

" end if if msg = "" then content = "You have been sent the following link by your friend " & Request.Form("myName") & "\n\n" & Request.Form("pageLink") title = "Link of interest from " & Request.Form("myName") dim objMail,strBody,cdoConfig,sch sch = "http://schemas.microsoft.com/cdo/configuration/" Set ObjMail = Server.CreateObject("cdo.message") Set cdoConfig = CreateObject("CDO.Configuration") With cdoConfig.Fields .Item(sch & "sendusing") = 2 ' cdoSendUsingPort .Item(sch & "smtpserver") = "127.0.0.1" .update End With ObjMail.TextBody = content ObjMail.Subject = title ObjMail.From = "info@applaudrecruitment.co.uk" ObjMail.To = Request.Form("email") set ObjMail.Configuration = cdoConfig objMail.send %> <% end if end if if Request.QueryString("action") <> "PROCESS" Or msg <> "" then %> <% end if %>