aaaahhh, bueno, el script que mandas hace un ciclo para recorrer todos los elementos de un formulario, en donde aparentemente se manda tambien la dirección del Host (llamado smtp), basta con sacarlo del for.
Código:
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
cuerpo = ""
for i = 1 to request.form.count
nombre = request.form.key(i)
valor = request.form.item(i)
select case nombre
case "asunto" Mailer.Subject = valor
case "para" Mailer.AddRecipient valor,valor
case "envio_correcto" envio_correcto = valor
case "envio_erroneo" envio_erroneo = valor
case else cuerpo = cuerpo & nombre & " = " & valor & vbcrlf
end select
Next
Mailer.RemoteHost = 123.32.23.10
Mailer.FromName = "Juan Perez"
Mailer.FromAddress = "[email protected]"
Mailer.AddRecipient AddRecipient1,AddRecipient2
Mailer.BodyText = cuerpo
Mailer.charset = 2
Si lo deseas, elimina el ciclo y obten directamente los parámetros por su nombre:
Mailer.FromName = Request.Form("From")
o si es por GET y no por POST
Mailer.FromName = Request.QueryString("From")
o si "te vale" el método
Mailer.FromName = Request("From")
Esto, claro, si tienes un campo de formulario llamdo "From" que se mande a tu página
Saludos