<% Dim strDomainName, strActivateCodeLink, strMailBody, strMailSubject strDomainName = "http://"&Request.Servervariables("Server_name") strActivateCodeLink = "http://"&Request.Servervariables("Server_name")&LEFT(Request.Servervariables("URL"),InstrRev(Request.Servervariables("URL"),"/"))&"activer.asp" strMailSubject = "Activation de votre compte." Set MyMail = Server.CreateObject("CDONTS.NewMail") MyMail.From = "Support@"&Request.Servervariables("Server_name") MyMail.To = strEmail MyMail.Subject = strMailSubject strMailBody = strMailSubject & vbCrlf & vbCrlf _ & "Cliquez sur "&strActivateCodeLink & vbCrlf _ & "et renseignez les informations ci-dessous" & vbCrlf & vbCrlf & vbCrlf _ & "---------------------------------------" & vbCrlf _ & "Code d'activation =" & strActivateCode & vbCrlf _ & "Identifiant =" & strLoginName & vbCrlf _ & "Mot de passe =" & strChoosePassword & vbCrlf _ & "---------------------------------------" & vbCrlf & vbCrlf & vbCrlf _ & "Merci" & vbCrlf & vbCrlf _ & "Support@"&Request.Servervariables("Server_name") & vbCrlf & vbCrlf MyMail.Body = strMailBody MyMail.Importance = 1 MyMail.Send %> <% ' enable to see allvariables are working as expected correct 'response.Write strMailBody %>