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./