este es el codigo completo :
<%@ Language=VBScript %>
<%
Dim nombre, domicilio, email, empresa ,index
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "de cliente"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"correo@domino"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "Nombre " + " : " & Request.form("nom") & VbCrLf
Mailer.Bodytext = Cuerpo & "Domicilio " + " : " & Request.form("domicili") & VbCrLf
Mailer.Bodytext = Cuerpo & "email " + " : " & Request.form("email") & VbCrLf
Mailer.Bodytext = Cuerpo & "PRODUCTO " & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.sendmail
set Mailer = nothing
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "EMPRESA"
Mailer.FromAddress = "postmaster@dominio"
Mailer.AddRecipient"empresa","correo"
Mailer.Subject = "PEDIDO"
Mailer.ContentType = "text/html"
Mailer.charset = 2
Mailer.RemoteHost = "smtpMail.activeisp.com"
Cuerpo = "<HTML><BODY bgColor=""#FFFF80""><body style=""font-family: Century Gothic""><br><TABLE cellSpacing=""0"" cellPadding=""2"" width=""800"" align=""center"" bgColor=""#FFFF80"" border=""0""><TR><TD Align=""Center""></BODY></HTML>"
Mailer.BodyText = Cuerpo
Mailer.Bodytext = Cuerpo & "PEDIDO" & VbCrLf & VbCrLf
Mailer.Bodytext = Cuerpo & "ENCARGO " & VbCrLf
Mailer.Bodytext = Cuerpo & "ENTREGA " & VbCrLf
Mailer.Bodytext = Cuerpo & " .............................. " & vbCrLf
Mailer.Bodytext = Cuerpo & " : " & vbCrLf & Request.form("select1") & VbCrLf
Mailer.Bodytext = Cuerpo & " ........................... " & vbCrLf
Mailer.sendmail
if Mailer.SendMail then
response.write ("OK")
else
response.write ("NO OK.")+ Mailer.Response
end if
%>