<% AdminEmail ="Thai Industry Administrator" Set Mailer = server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = AdminEmail Mailer.FromAddress = "network@thai-industry.net" Mailer.RemoteHost = "mail.thai-industry.net" Mailer.AddRecipient "suthat", "krailart@mail.com" Mailer.Subject = "Welcome to Thai Industry Network" Mailer.BodyText = "Dear " & VbCrLf & VbCrLf & VbCrLf &_ "Welcome to Thai Industry Member" & VbCrLf & VbCrLf &_ "User Name " & VbCrLf & VbCrLf &_ "Password " & VbCrLf & VbCrLf &_ "First Name " & VbCrLf & VbCrLf &_ "Last Name " & VbCrLf & VbCrLf &_ "Email Address " & VbCrLf & VbCrLf &_ "Company Name " & VbCrLf & VbCrLf &_ "Country " & VbCrLf & VbCrLf &_ "Please Login again and CHANGE your PASSWORD in 7 days " & VbCrLf & VbCrLf &_ "Sincerely," & VbCrLf & VbCrLf Mailer.sendMail %>