alguien me puede ayudar, pasar un formulario ejemplo, un link donde exista un formulario ejemplo o lo pueda descargar, o simplemente el código ASP de un formulario con 5 campos + 1 de respuesta si ha sido enviado o ha habido fallo??? + el codigo que hay que ponerle al boton flash de envio. Gracias a todos
Actualmente tengo esto....: funciona pero se carga una pagina html en blanco que no deseo, y en flash no recibo el mensaje de que el envio ha sido correcto...
documento asp:
<%
Dim strEmail, strNombre, strempresa, strAsunto, strtelefono, Mail
strEmail = request.form("email")
strNombre = request.form("nom")
strAsunto = request.form("mensaje")
strempresa = request.form("empresa")
strtelefono = request.form("contacto")
Dim ConfigNamespace
Dim imsg
Dim iConf
Dim Flds
ConfigNamespace = "http://schemas.microsoft.com/cdo/configuration/"
Set imsg = CreateObject("cdo.message")
Set iConf = CreateObject("cdo.configuration")
Set Flds = iConf.Fields
With Flds
.Item(ConfigNamespace & "sendusing") = 2
.Item(ConfigNamespace & "smtpserver") = "xxxxxxxxxx"
.Item(ConfigNamespace & "smtpserverport") = xx
.Item(ConfigNamespace & "smtpconnectiontimeout") = xxx
.Item(ConfigNamespace & "sendusername") = "jordi.gutierrez"
.Item(ConfigNamespace & "sendpassword") = "xxxxxxxxxx"
.Item(ConfigNamespace & "smtpauthenticate") = 1
.Update
End With
With imsg
Set .Configuration = iConf
.To = "[email protected]"
.From = "[email protected]"
.Subject = "Asunto.Text"
.HTMLBody = "nombre: " & strNombre & "<br>email: " & strEmail & "<br>asunto: " & strAsunto & "<br>empresa: " & strempresa & "<br>telefono: " & strtelefono
.Fields.Update
.Send
End With
%>
PD: donde aparecen x son datos que prefiero mantenerlos en el anonimato.
codigo boton flash de envio:
on (release) {loadVariablesNum("formulario01.asp",this, "POST");
}
saludos y gracias de nuevo
(just kidding)
