Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/06/2010, 14:09
lixarkd
 
Fecha de Ingreso: junio-2010
Mensajes: 1
Antigüedad: 13 años, 11 meses
Puntos: 0
Exclamación ayuda con php contacto pagina web

hola soy nuevo y este mi primer post aqui, espero que sea el lugar indicado para postear

tengo un problema con un php, he leido y he visto tutoriales en español de como hacerlo ( que desde la pagina que tengo puedan los usuarios mandarme un mail) pero la programacion la hacen en español :S

y tengo un scrip`pero esta en ingles y la verdad es que venia con la pagina como default por que la pagina es en flash y bueno obviamente el scrip en php esta hecho para esa pagina en flash y no logro entenderlo como para poder modificarlo y agregarle los datos de manera correcta....

por favor una ayuda o pistas o quisas links para poder solucionar mi problem :)

ha y bueno si es que me he equivocado de foro, o me he equibocado de seccion
mil disculpas por favor

aquie esta el codigo en php

<?
Error_Reporting(E_ALL & ~E_NOTICE);

while ($request = current($_REQUEST)) {
if (key($_REQUEST)!='recipient') {
$pre_array=split ("&777&", $request);
$post_vars[key($_REQUEST)][0]=$pre_array[0];
$post_vars[key($_REQUEST)][1]=$pre_array[1];
}
next($_REQUEST);
}



reset($post_vars);


$subject="From ".$post_vars['your_name'][0] ;
$headers= "From: ".$post_vars['your_email'][0] ."\n";
$headers.='Content-type: text/html; charset=iso-8859-1';
$message='';
while ($mess = current($post_vars)) {
if ((key($post_vars)!="i") && (key($post_vars)!="your_email") && (key($post_vars)!="your_name")) {

$message.="<strong>".$mess[1]."</strong>&nbsp;&nbsp;&nbsp;".$mess[0]."<br>";
}
next($post_vars);
}

mail($_REQUEST['recipient'], $subject, "
<html>
<head>
<title>Contact letter</title>
</head>
<body>
<br>
".$message."
</body>
</html>" , $headers);
echo ("Tu Mensaje a Sido Enviado Exitosamente!");

?>
<script>
resizeTo(300, 300);
</script>


y tambien estaba este en ASP

<%
for i=1 to 7
message=Request("message")
next
message=message + Request("message")
smtpServer = "enter your SMTP SERVER HERE"
smtpPort = 25


name = Request("Your_Name:")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request("Your_Email:")
myMail.To = Request("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & message & "</body></html>"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = smtpServer
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = smtpPort
myMail.Configuration.Fields.Update
myMail.Send

%>


de ante mano muchas gracias :D