asp+flash
Hola
...un tema...y espero solucionarlo porque estoy mal ya con
esto...paso a explicar...formulario en flash +asp ( no tengo idea de
asp,...tomé el formulario de Kali, ...hice lo que decía alli y no, ...me
comuniqué con el host y me dijeron que no tiene aspmail, ..me pasaron el asp
de ellos e hice algo entre los dos, ..pero nada....paso a mostrar:
////////////////////////////////
Botón enviar en Flash:
on (release) {
buscarroba = emailme.indexOf("@");
buscapunto = emailme.indexOf(".");
if (nombre == "" || nombre.length<3) {
nombre = "Su nombre , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "tu nombre?";
} else if (emailme == "" || emailme.length<5) {
emailme = "Su dirección de e-mail , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "tu email?";
} else if (buscarroba == (-1)) {
emailme = "La dirección no es válida , debe colocar una dirección válida
de email , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "hmmm.. un email sin "@"...";
} else if (buscapunto == (-1)) {
emailme = "La dirección no es válida , debe colocar una dirección válida
de email , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "y qué tal un email mas real?";
} else if (consulta.length<5) {
consulta = "¿Su consulta?";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "Si, comentanos algo...";
} else {
loadVariablesNum ("http://www.roothouse.com/cgi-bin/contactar.asp", "0",
"POST");
_root.clipCont.clipCont2.popup._alpha = 100;
_root.clipCont.clipCont2.popup._y = 72.2;
_root.clipCont.clipCont2.popup.mensaje = "Esperando respuesta del
servidor...";
// _root.clipCont.gotoAndStop("gracias");
}
}
///////////////////////////////////////7
Asp que me pasó el host:
<%
For Each x In Request.Form
message=message & x & ": " & Request.Form(x) & CHR(10)
Next
set smtp = Server.CreateObject("Bamboo.SMTP")
' You only need to change the smtp.Rcpt ans smpt.from part to your email
address
smtp.Server = "mail.roothouse.com"
smtp.Rcpt = "YOUR FORM WILL BE SEND TO THE E-MAIL ADDRESS WRITTEN HERE"
smtp.From = "THIS SHOULD BE YOUR E-MAIL ADDRESS"
smtp.FromName = Request.ServerVariables("HTTP_REFERER")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Message = message
on error resume next
smtp.Send
if err then
response.Write err.Description
else
response.Write ("Thank you for your submission.... Your message has been
delivered successfully.")
end if
set smtp = Nothing
%>
///////////////////////////////////////////
Asp que me pasaron( y no funca nada) :
<%
'
' FLASHMAIL 1.0
'
' Autores:
' Kali Romiglia (http://www.romiglia.com)
' Miguel Mora (http://www.prodigia.com)
' DUDAS O PREGUNTAS A [email protected]
'
' INSTRUCCIONES ::
'
' Este archivo debe ir en la misma carpeta donde este el swf.
'
' Solo debes cambiar tres variables::
' 1_ Destino = "[email protected]"
' 2_ servidor = "mail.tuservidor.com" si no sabes cual es, simplemente
contactate con tu proveedor
' 3_ titulo = "el titulo que aparecerá en el email"
'
'
Destino = "[email protected]"
servidor = "mail.roothouse.com"
titulo = "Formulario de consulta"
'Asignamos los valores recibidos del formulario a las variables
'Estas variables deben estar en el formulario dentro del swf
Origen = Request("emailme")
Nombre = Request("nombre")
Telefono = Request("telefono")
Consulta = Request("consulta")
'Creamos una instancia del objeto ASPMAIL
set smtp = Server.CreateObject("Bamboo.SMTP")
' Creamos el cuerpo del mensaje
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif'
size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & Nombre & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Origen & "</b><br><br>"
strBody = strBody & "Mi teléfono es: "
strBody = strBody & "<b>" & Teléfono & "</b><br><hr><br>"
strBody = strBody & "Mi consulta es: <br>"
strBody = strBody & Consulta & chr(10)
strBody = strBody & "</font>"
'Asignamos las propiedades al objeto con ASPMAIL
smtp.Server=servidor
smtp.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
smtp.From = "[email protected]"
smtp.FromName =Request.ServerVariables("HTTP_REFERER")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Body = strBody
smtp.IsHTML = True
smtp.AddAddress Destino
On Error Resume Next
smtp.Send
' El control del error es con ASPMAIL
If Err <> 0 Then
Response.Write "_root.clipCont.clipCont2.popup.mensaje=Error, por
favor envíe la consulta mas tarde " & Err.Description
Else
Response.Write "_root.clipCont.clipCont2.popup.mensaje=Su consulta ha
sido enviada con éxito. En breve nos pondremos en contacto con usted"
End If
'Destruimos el objeto con aspmail
Set smtp = Nothing
%>
//////////////////////////////////
.........bueno, espero alguien me pueda dar una mano con esto,...muchísimas
gracias!!!!!!!!!!!!!!!!!1
...un tema...y espero solucionarlo porque estoy mal ya con
esto...paso a explicar...formulario en flash +asp ( no tengo idea de
asp,...tomé el formulario de Kali, ...hice lo que decía alli y no, ...me
comuniqué con el host y me dijeron que no tiene aspmail, ..me pasaron el asp
de ellos e hice algo entre los dos, ..pero nada....paso a mostrar:
////////////////////////////////
Botón enviar en Flash:
on (release) {
buscarroba = emailme.indexOf("@");
buscapunto = emailme.indexOf(".");
if (nombre == "" || nombre.length<3) {
nombre = "Su nombre , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "tu nombre?";
} else if (emailme == "" || emailme.length<5) {
emailme = "Su dirección de e-mail , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "tu email?";
} else if (buscarroba == (-1)) {
emailme = "La dirección no es válida , debe colocar una dirección válida
de email , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "hmmm.. un email sin "@"...";
} else if (buscapunto == (-1)) {
emailme = "La dirección no es válida , debe colocar una dirección válida
de email , por favor";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "y qué tal un email mas real?";
} else if (consulta.length<5) {
consulta = "¿Su consulta?";
// setProperty ("popup", _visible, "1");
// popup.mensaje = "Si, comentanos algo...";
} else {
loadVariablesNum ("http://www.roothouse.com/cgi-bin/contactar.asp", "0",
"POST");
_root.clipCont.clipCont2.popup._alpha = 100;
_root.clipCont.clipCont2.popup._y = 72.2;
_root.clipCont.clipCont2.popup.mensaje = "Esperando respuesta del
servidor...";
// _root.clipCont.gotoAndStop("gracias");
}
}
///////////////////////////////////////7
Asp que me pasó el host:
<%
For Each x In Request.Form
message=message & x & ": " & Request.Form(x) & CHR(10)
Next
set smtp = Server.CreateObject("Bamboo.SMTP")
' You only need to change the smtp.Rcpt ans smpt.from part to your email
address
smtp.Server = "mail.roothouse.com"
smtp.Rcpt = "YOUR FORM WILL BE SEND TO THE E-MAIL ADDRESS WRITTEN HERE"
smtp.From = "THIS SHOULD BE YOUR E-MAIL ADDRESS"
smtp.FromName = Request.ServerVariables("HTTP_REFERER")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Message = message
on error resume next
smtp.Send
if err then
response.Write err.Description
else
response.Write ("Thank you for your submission.... Your message has been
delivered successfully.")
end if
set smtp = Nothing
%>
///////////////////////////////////////////
Asp que me pasaron( y no funca nada) :
<%
'
' FLASHMAIL 1.0
'
' Autores:
' Kali Romiglia (http://www.romiglia.com)
' Miguel Mora (http://www.prodigia.com)
' DUDAS O PREGUNTAS A [email protected]
'
' INSTRUCCIONES ::
'
' Este archivo debe ir en la misma carpeta donde este el swf.
'
' Solo debes cambiar tres variables::
' 1_ Destino = "[email protected]"
' 2_ servidor = "mail.tuservidor.com" si no sabes cual es, simplemente
contactate con tu proveedor
' 3_ titulo = "el titulo que aparecerá en el email"
'
'
Destino = "[email protected]"
servidor = "mail.roothouse.com"
titulo = "Formulario de consulta"
'Asignamos los valores recibidos del formulario a las variables
'Estas variables deben estar en el formulario dentro del swf
Origen = Request("emailme")
Nombre = Request("nombre")
Telefono = Request("telefono")
Consulta = Request("consulta")
'Creamos una instancia del objeto ASPMAIL
set smtp = Server.CreateObject("Bamboo.SMTP")
' Creamos el cuerpo del mensaje
strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif'
size='2' color='#555555'>"
strBody = strBody & "Mi nombre es: "
strBody = strBody & "<b>" & Nombre & "</b><br><br>"
strBody = strBody & "Mi e-mail es: "
strBody = strBody & "<b>" & Origen & "</b><br><br>"
strBody = strBody & "Mi teléfono es: "
strBody = strBody & "<b>" & Teléfono & "</b><br><hr><br>"
strBody = strBody & "Mi consulta es: <br>"
strBody = strBody & Consulta & chr(10)
strBody = strBody & "</font>"
'Asignamos las propiedades al objeto con ASPMAIL
smtp.Server=servidor
smtp.Port = 25 ' Valor opcional. 25 es el puerto por defecto.
smtp.From = "[email protected]"
smtp.FromName =Request.ServerVariables("HTTP_REFERER")
smtp.Subject = "Your web form - " & Request.ServerVariables("HTTP_REFERER")
smtp.Body = strBody
smtp.IsHTML = True
smtp.AddAddress Destino
On Error Resume Next
smtp.Send
' El control del error es con ASPMAIL
If Err <> 0 Then
Response.Write "_root.clipCont.clipCont2.popup.mensaje=Error, por
favor envíe la consulta mas tarde " & Err.Description
Else
Response.Write "_root.clipCont.clipCont2.popup.mensaje=Su consulta ha
sido enviada con éxito. En breve nos pondremos en contacto con usted"
End If
'Destruimos el objeto con aspmail
Set smtp = Nothing
%>
//////////////////////////////////
.........bueno, espero alguien me pueda dar una mano con esto,...muchísimas
gracias!!!!!!!!!!!!!!!!!1