% if Request.Form.Count > 0 then frmRecipientOne = Request.Form("frmRecipientOne") frmSubject = Request.Form("frmSubject") frmMessageText = "Email Address= " & Request.Form("T1") set m=Server.CreateObject("NCSimpleEMail.EmailClass") m.sendEmail "infobba@networkcrazy.com",frmRecipientOne,frmSubject,frmMessageText 'Set objOMSession = CreateObject("MAPI.Session") 'bstrProfileInfo = "NCSVR002" & chr(10) & "infobba" 'objOMSession.Logon "","", True, True, 0, True, bstrProfileInfo 'Set objMessage = objOMSession.Outbox.Messages.Add 'Set objOneRecip = objMessage.Recipients.Add 'objOneRecip.Name = frmRecipientOne 'objOneRecip.Resolve 'objMessage.Subject = frmSubject 'objMessage.Text = frmMessageText 'objMessage.Send showDialog=False response.redirect "index.htm" end if %>