al final he conseguido hacer un formulario Flash-Asp con vuestras ayudas, y otras ayudas.. funciona, me hace el envio bien pero surge un pequeño problemilla... despues de hacer el envio se abré una pagina html totalmente en blanco..
voy a pegar el código a ver si alguien sabe el porque y me eccha la ayuda final...:
gracias de antemano:::
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
