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