Ayuda con ASPEmail por favor ...:(

[redmax]

Hola a todos.
Necesito un gran favor amigos.
En esta pagina tengo un formulario:

http://grupoinfocus.com.ar/turismo_l...ontactenos.htm

Los formularios los proceso con el muy conocido FromMail.pl pero, el servidor que contrato esta gente no acepta procesos para archivos *.pl
Me dijeron que los formularios los debo configurar para que sean procesados con un objeto llamado ASPEmail de la compañia Persits (ustedes lo deben conocer seguramente).
Hasta aca no habria problema ya que en "action" le tendria que poner en vez de FormMail.pl el nombre del archivo *.asp para que procese mis formularios (ej. aspemail.asp).
El tema se complica ya que no tengo, como existe para el FormMail.pl, un archivo de base que pueda modificar de acuerdo a lo que yo necesito.
Tengo una mezcla de cosas en la cabeza que no entiendo nada.
Lo que necesito hacer es:
.Enviar los datos de los campos que se encuentran en el formulario a una determinada direccion de correo.
.Redirigir al usuario, una vez presionado enviar, a una pagina llamada mgracias.html.

Creo que el archivo aspemail.asp que procese el formulario podria ser algo asi?:

<%
'--Declaro las variables que voy a usar
Dim nombre, empresa, domicilio, telefono, fax, email, consulta, subscripcion

'--Inicializamos estas variables con los datos recogidos del formulario
nombre = request("nombre")
empresa = request("empresa")
domicilio = request("domicilio")
telefono = request("telefono")
fax = request("fax")
email = request("email")
consulta = request("consulta")
'--Que es lo que pongo entre las comillas luego de request?
subscripcion = request("subscripcion")
'--De las misma manera proceso los checkbox?

'--Creo el objeto Mail
Set Mail = Server.CreateObject("Persits.MailSender")

'--Establezco sus propiedades
'--Para referenciar al servidor SMTP
Mail.Host = "xxx.xxx.xxx.xxx"

'--Para referenciar el E-mail del remitente
Mail.From = Mail.EncodeHeader(correo)
'--Mail.Encoder permite introducir caracteres extendidos (tildes, eñes) en la cabecera del mensaje

'--Para referenciar el nombre identificativo del remitente
Mail.FromName = Mail.EncodeHeader(nombre)
'--Van entre comillas correo y nombre?

'--Para referenciar la dirección de correo a la que se enviarán los datos del formulario
Mail.AddAddress "[email protected]"

'--Para referenciar el asunto del mensaje
Mail.Subject = "Mensaje de " & Mail.EncodeHeader(nombre)
'--Que tengo que poner en (nombre)?

'--Para referenciar el contenido de la sugerencia a enviar se incluye delante del texto una referencia al remitente
Mail.Body = "De: " & nombre & Chr(13) & Chr(10) & _
texto & ""
'--Y esto para que sirve?

'--Para admitir caracteres extendidos (tildes, eñes) en el cuerpo del mensaje
Mail.ContentTransferEncoding = "Quoted-Printable"

'--Envio el mensaje y establezco la rutina de control de errores
On Error Resume Next
Mail.Send
If Err <> 0 Then
'--Si se Produce un error, cargamos su referencia en la variable mensaje
mensaje = "Error: " & Err.Description
else
'--En caso de realizar el envío de forma exitosa, así lo referenciamos
mensaje = "enviado"
End If
'--Esto de la rutina de control para que sirve?

'--Borramos el objeto Mail para liberar recursos
Set Mail = Nothing

'--Redirigimos el navegador hacia una página Html que nos informe en pantalla sobre el éxito/fracaso del envío y permita enlazar con la página principal de nuestra web
txt = "resultado.asp?mensaje="&mensaje
Response.redirect txt
%>
'--Como coloco la direccion de la pagina a la que quiero redireccionar al usuario una vez que haya presionado el boton enviar?

Dos dudas importantes que se me presentan tambien son:
.debo colocar en el directorio raiz un archivo llamado global.asa (o algo asi)?, es un archivo standard?, de donde lo saco?
.tengo que utilizar algo asi & VBNEWLINE?, para que y donde lo pongo?

Perdonenme por tanto baruyo pero necesito por favor que alguien me tire una linea para salir de este pozo .

Saludos a todos y desde ya muchas gracias .

Redmax./

[titipower]

Aqui tienes una pagina que te aclarará cosas:
http://www.arsys.es/soporte/programacion/comaspmail.htm

Un saludo.

[redmax]

Hola. Arme este archivo para procesar los formulario con ASP pero no me funciona. Por que creen que puede ser?. A continuacion tambien coloco el archivo global.asa.
Gracias a todos los que me puedan dar una mano.
ARCHIVO *.ASP:
<%
Dim nombre, empresa, domicilio, telefono, fax, email, testimonio
nombre = request("nombre")
empresa = request("empresa")
domicilio = request("domicilio")
telefono = request("telefono")
fax = request("fax")
email = request("email")
testimonio = request("testimonio")
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "correo.easymail.net.uy"
Mail.From = Mail.EncodeHeader(email)
Mail.FromName = Mail.EncodeHeader(nombre)
Mail.AddAddress "[email protected]"
Mail.Subject = "Mensaje de " & Mail.EncodeHeader(nombre)
Mail.Body = "De: " & nombre & Chr(13) & Chr(10) & _
"Empresa: " & empresa & Chr(13) & Chr(10) & _
"Domicilio: " & domicilio & Chr(13) & Chr(10) & _
"Telefono:" & telefono & Chr(13) & Chr(10) & _
"Fax: " & fax & Chr(13) & Chr(10) & _
"Email: " & email & Chr(13) & Chr(10) & _
"Tesimonio: " & testimonio & ""
Mail.ContentTransferEncoding = "Quoted-Printable"

On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Ha ocurrido un error: " & Err.Description
End If
Set Mail = Nothing
Response.redirect = ./mgracias.htm
%>

ARCHIVO GLOBAL.ASA:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>

Sub Session_OnStart
Set Session("arrTo") = Server.CreateObject("Scripting.Dictionary")
Set Session("arrCC") = Server.CreateObject("Scripting.Dictionary")
Set Session("arrBCC") = Server.CreateObject("Scripting.Dictionary")
Set Session("arrFiles") = Server.CreateObject("Scripting.Dictionary")
Session("Count") = 0 ' to generate unique keys for the dictionaries
end sub

Sub Session_OnEnd

end sub

</SCRIPT>

Gracias y saludos a todos.

Redmax./