Salut a tous,

J'ai un ptit souci pour régler ma page de contact ...je ne vois pas les modifs a faire...
si vous pouvez m'aider...merci d'avance !!!


voici la page contact.php
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
<?php
//-----------------Getting data sent by flash---------------------
foreach ($_POST as $key => $value){
 
        if ($key != 'mail_to' && $key != 'smtp_server' && $key != 'smtp_port' && $key != 'mail_from' && $key != 'mail_subject' && $key != 'plain_text'){
 
            $mail_body .= '<b>'.str_replace('_',' ',$key).'</b>:<br/>';
 
            $mail_body .= ''.stripslashes($value).'<br/>';
        }
}
//-----------------------------------------------------------------
 
 
 
$message = '<html><body>'.$mail_body.'</body></html>'; //  mail body
 
//------------if plain text is set to true removing html tags------
if ($_POST['plain_text']=='true') {
 
    $message = str_replace('<br/>',"\r\n", $message);
 
    $message = strip_tags($message);
 
//------------------------------------------------------------------
} else {
//----otherwise composing message headers---------------------------
    $headers  = 'MIME-Version: 1.0' . "\r\n";
 
    $headers .= 'Content-type: text/html; charset=iso-8859-1' . "\r\n";
//------------------------------------------------------------------
}
 
//------------setting conf data-------------------------------------
$to = $_POST['mail_to'];
 
$from = $_POST['mail_from'];
 
$subject = $_POST['mail_subject'];
 
$smtp_server = $_POST['smtp_server'];
 
$smtp_port = $_POST['smtp_port'];
//------------------------------------------------------------------
 
//---------setting header info--------------------------------------
$headers .= 'To: '.$to. "\r\n";
 
$headers .= 'From: Site visitor ' .$from. "\r\n";
//------------------------------------------------------------------
 
 
if (mail($to, $subject, $message, $headers)){ // sending mail
 
    print('&mail=1');  //succes
 
} else {
 
    print('&mail=0');//failure
 
}
 
?>
et contact.asp
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
Function RemoveHTML( strText )
        Dim RegEx
        Set RegEx = New RegExp
        RegEx.Pattern = "<[^>]*>"
        RegEx.Global = True
        RemoveHTML = RegEx.Replace(strText, "")
    End Function
'---------------------------------------------
 
'------defining script vars-------------------
   Dim mailObj, mailCfg, myBody, fld 
 
    Dim RegEx 
    set RegEx = New RegExp
'--------------------------------------------
 
'------getting data sent by flash (filtering configuration data)------------
   For Each fld in Request.Form
      If Request.Form(fld) <> "" and _
      fld <> "mail_to" and _
      fld <> "smtp_server" and _
      fld <> "smtp_port" and _
      fld <> "plain_text" and _
      fld <> "mail_from" and _
      fld <> "mail_subject" Then
         myBody = myBody & vbCRLF & "   <b>" & fld & "</b> :<br/> " & Trim(Request.Form(fld)) & "<br/>"
      End If
   Next
'---------------------------------------------------------------------------
 
'----------setting conf data------------------------------------------------
    On Error Resume Next
        Set myMail = CreateObject("CDO.Message") 
        myMail.Subject = Request.Form("mail_subject")
        myMail.From =Request.Form("mail_from")
        myMail.To = Request.Form("mail_to")
 
'--------if plain text is set to true removing html---------------------------------------        
        if Request.Form("plain_text") = "true" then 
 
            myMail.TextBody = RemoveHTML(myBody)
 
'-------otherwise composing message body--------------------------------------------------            
            else myMail.HTMLBody = "<html><body>" & myBody & "</body></html>"
 
        end if
'----------setting configuration params for smtp----------------------------------------------------------------------------------
        myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
        myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = Request.Form("smtp_server")
        myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = Request.Form("smtp_port")
        myMail.Configuration.Fields.Update 
'---------------------------------------------------------------------------------------------------------------------------------        
        myMail.Send '---------------sending message
 
   If Err = 0 Then
   Response.Write("&mail=1") 'if there the message is sent return 1 to flash
   Else
   Response.Write("&mail=0") 'otherwise return 0
   End If
 
%>
--------------------------------------------------------------------------