Código:
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'configuracion de las variables
Mailer.FromAddress = Session("FromAddress")
Mailer.RemoteHost = "smtpmail.activeisp.com"
Mailer.AddRecipient "Petición de Información a Daugen", "[email protected]"
Mailer.Subject = Session("Subject")
Mailer.BodyText = "<b>Razón Social:</b> " & Session("razonsocial")
Mailer.BodyText = "Apellidos: " & Session("apellidos")
Mailer.BodyText = "Nombre: " & Session("nombre")
Mailer.BodyText = "Dirección: " & Session("direccion")
Mailer.BodyText = "Código Postal: " & Session("cp")
Mailer.BodyText = "Localidad: " & Session("localidad")
Mailer.BodyText = "Provincia: " & Session("provincia")
Mailer.BodyText = "Pais: " & Session("pais")
Mailer.BodyText = "Teléfono: " & Session("telefono")
Mailer.BodyText = "Fax: " & Session("fax")
Mailer.BodyText = "Consulta: " & Session("consulta")
Mailer.BodyText = ""
revisa ademas si debes concatenar el info del .BodyText..