<% Dim userName userName = Request.Form("userName") if userName <> "" then Set myMail = CreateObject("CDO.Message") myMail.To = "adt_mailbox@mcd.com" myMail.From = "adt_mailbox@mcd.com" myMail.Subject = "Training: " & userName myMail.textBody = userName & " has completed the Lotus Notes 6.5 Training" myMail.Send end if %>