Lien Flash et formulaire php et asp

kristoch Messages postés 8 Statut Membre -  
zeboss74 Messages postés 825 Statut Membre -
Bonjour à tous,
Bien qu’amateur, j’ai réussi à créer un site (portfolio) en flash, mais il me reste juste un problème avec un formulaire que je n’arrive pas à résoudre, Dreamwaever restant complètement obscur pour moi hi ! hi ! hi !
Quelqu’un peut-il m’aider à corriger mes scripts pour que mon formulaire email fonctionne.
(Si vous avez besoin d'autres infos pour m'aider, pas de souci...)

J’explique :
Tout mon site est fait dans Flash, avec, à l’intérieur un formulaire classique d’envoi de mail.
Sur le bouton d’envoi du mail (donc dans Flash) il y a cet ActionScript :

on (release) {
for (i=1; i<_parent.fields_descriptions.length; i++) {
this[_parent.fields_descriptions[i][2]]=_parent[_parent.fields_descriptions[i][1]];
_parent.reset_txt(_parent["t"+i], _parent.fields_descriptions[i][1], _parent.fields_descriptions[i][2]);
}
this.recipient=_parent.rec.text;
i=undefined;
getURL("contact.php"+_parent.serv.text, "_blank", "POST");
}

Mon fichier Flash final (main_v8.swf) est placé dans un fichier Dreamwaever qui s’appelle index.html.
Et enfin, deux fichiers php et asp.
Le fichier contact.php avec ce code :

<?
$subject="from".$_GET['your_name'];
$headers= "From:".$_GET['your_email']."\n";
$headers.='Content-type: text/html; charset=iso-8859-1';
mail($_GET['recipient'], $subject, "
<html>
<head>
<title>Contact letter</title>
</head>
<body>

<br>
".$_GET['message']."
</body>
</html>" , $headers);
echo ("Votre message a été envoyé avec succès - Your message was successfully sent!");
?>
<script>
resizeTo(300, 300)
//window.close()
</script>

et le fichier contact.asp avec ce code :

<%
Set reg = New RegExp
reg.Pattern = "^[A-Za-z0-9\._\-]+@([A-Za-z0-9\._\-]+\.)+[A-Za-z0-9\._\-]+$"
Set m = reg.Execute(Request.QueryString("contact@mon adressemail"))

if m.count > 0 then
smtpServer = "swapper.loc"
smtpPort = 25

name = Request.QueryString("your_name")
Set myMail = CreateObject("CDO.Message")
myMail.Subject = "from " & name
myMail.From = Request.QueryString("your_email")
myMail.To = Request.QueryString("recipient")
myMail.HTMLBody = "<html><head><title>Contact letter</title></head><body><br>" & Request.QueryString("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
Response.Write("Votre message a été envoyé - Your email was sent")
else
Response.Write("Votre message est invalide - Invalid email")
End if

%>
<script>
resizeTo(300, 300)
//window.close()
</script>


(Si vous avez besoin d'autres infos pour m'aider, pas de souci...) Merci.
kristoch
A voir également:

6 réponses

zeboss74 Messages postés 825 Statut Membre 112
 
Ce n'est pas parce que tu possèdes un mac qu'il faut poster un sujet dans le forum mac sans raison
0
kristoch Messages postés 8 Statut Membre
 
d'abord c'est pas sans raison, j'ai un problème, et ensuite si c'est pas posté au bon endroit, merci de me dire où je dois le poster au lieu de m'agresser.
Toutes mes excuses pour le dérangement.
0
zeboss74 Messages postés 825 Statut Membre 112
 
Tu devrais le mettre dans programmation ou webmastering
0
kristoch Messages postés 8 Statut Membre
 
ok merci pour l'info. encore toutes mes excuses.
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
kristoch Messages postés 8 Statut Membre
 
je ne trouve pas où supprimer cette intervention ? vous pouvez me la supprimer ? merci.
0
zeboss74 Messages postés 825 Statut Membre 112
 
Il faut que tu cliques sur le pt d'exclamation jaune, et que tu le signales aux mpodos, mais ne les embete pas pour ça tant pis laisse le, mais ne fais pas d'ereurs à l'avenir si possible
0