Ver Mensaje Individual
  #1 (permalink)  
Antiguo 27/08/2003, 10:40
Avatar de hechizero
hechizero
 
Fecha de Ingreso: marzo-2002
Mensajes: 50
Antigüedad: 22 años
Puntos: 0
FLash + Formulario email

hjola, tengo un problema, yo utilizo flash y tecnologia ASP, pero me han cambiado de host y no permite asp sino php, y me gustaria saber si alguien me ayudaria a cambiar el codigo para que fuese compatible con php

Esto es lo que tengo en el boton enviar de flash, cada campo tiene una variable

on (release) {
loadVariablesNum("mail.php 0, "POST");
gotoAndPlay(10);
}


Y necesitaria un archivo php llamado mail.php que incluyese esto mismo que tengo en codigo asp

<%
Set Mailer = Server.CreateObject ("SMTPsvg.Mailer")
Mailer.FromName = Request.FORM("nombre")
Mailer.FromAddress = Request.FORM("email")
Mailer.Subject = "SOLICITUD DE INFORMACION"
Mailer.RemoteHost = "correoms.acens.net"
Mailer.AddRecipient "Webmaster", "[email protected]"



strMsgHeader = "SOLICITUD DE INFORMACION" & vbCrLf & "**************************" & vbCrLf
strMsgFooter = vbCrLf & ""

strBody = strBody & "<font face='Verdana, Arial, Helvetica, sans-serif' size='2' color='#555555'>"
strMsgInfo = strMsgInfo & "Nombre= " & Request.FORM("nombre") & vbCrLf
strMsgInfo = strMsgInfo & "Empresa= " & Request.FORM("empresa") & vbCrLf
strMsgInfo = strMsgInfo & "Actividad= " & Request.FORM("actividad") & vbCrLf
strMsgInfo = strMsgInfo & "Direccion= " & Request.FORM("direccion") & vbCrLf
strMsgInfo = strMsgInfo & "C.Postal= " & Request.FORM("cp") & vbCrLf
strMsgInfo = strMsgInfo & "Ciudad= " & Request.FORM("ciudad") & vbCrLf
strMsgInfo = strMsgInfo & "Provincia= " & Request.FORM("provincia") & vbCrLf
strMsgInfo = strMsgInfo & "Telefono= " & Request.FORM("telefono") & vbCrLf
strMsgInfo = strMsgInfo & "Email= " & Request.FORM("email") & vbCrLf
strMsgInfo = strMsgInfo & "Comentario= " & Request.FORM("comentario") & chr(10)
strBody = strBody & "</font>"





Mailer.BodyText = strMsgHeader & strMsgInfo & strMsgFooter

if Mailer.SendMail then


' Message send failure
Response.Write ("An error has occurred.")
' Send error message
Response.Write ("The error was " & Mailer.Response)
end if

%>



Uno de mis principales problemas es que no se que poner en el comando mailhost, ya que antes trabajaba con aces, pero ahora con tu-host no tienen ASP.


Muchas gracias