<%
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
%>