Flashhilfe.de - Flash Community

Kontaktformular ...mal wieder

 


AntwortenRegistrieren Seite1  

Lovely#1
Benutzerbild von Lovely
Beiträge: 3
Registriert: Aug 2007

25.08.2007, 00:01

Ich...Anfänger (blutiger)...sehe keinen Wald zwischen den Bäumen. Was muss ich wo ausfüllen, damit mein Kontaktformular funzt?

PHP:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
<meta http-equiv="content-type" content="text/html;charset=utf-8">
<?
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 (
"Your message was successfully sent!");

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



ActionScript:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<meta http-equiv="content-type" content="text/html;charset=utf-8">
<%
   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
   
%>






AntwortenRegistrieren Seite1  

Schnellantwort

Du musst registriert sein, um diese Funktion nutzen zu können.

 
Ähnliche Beiträge zum Thema
Partner Webseiten: art-and-law.de  Mediengestalter.info   phpwelt.de   Scubacube.de  
Haftungsausschluss   Datenschutzerklärung   Impressum
© 1999-2020 Sebastian Wichmann - Flashhilfe.de