<% '***************************************************************************** ' Send Mail Procedure (by CDO) updated 2006/04/02 '***************************************************************************** sub SendMail(fromName,fromAddress,toName,toAddress,subject,body) dim host dim mailer Set mailer = Server.CreateObject("CDO.Message") if err.number<> 0 then Session("mailerror") = "mail error: " & toAddress exit sub end if mailer.To = toAddress mailer.From = fromAddress mailer.Subject = subject mailer.TextBody = body mailer.BodyPart.Charset = "iso-2022-jp" mailer.BodyPart.ContentTransferEncoding = "7bit" mailer.Send set mailer=nothing end sub %>