Passage de ASP vers PHP

Version imprimable

Bonjours ...
Un de mes serveur bascule en PHP
pour envoyer des ajouts a ma mailing liste, j'avais ce code qui marchait bien.
Qui pourrait me le transcrire en PHP ? 8O
J'avoues que ça me servira de modéle pour les autre ASP que j'ais à transcrire :oops:

Code:

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
 
<%
 Dim Email
 Dim objMail
 Dim NomdeDomaine ' Nom de domaine de la mailing-liste.
 Dim AdminEmail          ' Adresse Email de l'administrateur.
 Dim MailingAdresse      ' Adresse Email de votre mailing-Liste.
 ' Variable à modifier pour adapter ce code à votre mailing-liste.  
 ' ---------------------------------------------------------------
        NomdeDomaine   = "wwwwwwwwww.com"
        AdminEmail     = <a href="mailto:xxx@xxx.com">xxx@xxx.com</a>
        MailingAdresse = "<a href="mailto:mailing@xxxx.com">mailing@xxxx.com</a>"
 ' ---------------------------------------------------------------
 Email = Request.Form("Email")
 If Email<>"" then
  Set objMail = Server.CreateObject("Persits.MailSender")
                objMail.Host = "10.0.0.198"
  objMail.FromName = Trim(NomdeDomaine)
  objMail.From = Trim(AdminEmail)
  objMail.AddAddress "listserv@" & Trim(NomdeDomaine), "listserv@" & Trim(NomdeDomaine)
                objMail.Subject = "JOIN " & MailingAdresse & "," & Trim(Email)
  objMail.Body = "JOIN " & MailingAdresse & "," & Trim(Email)& ", " & vbCRLF
  If objMail.Send <>0 Then
                        response.redirect("wmailinsok.htm")
  Else
                        response.redirect("wmailinserr.htm")
  End if
  set objmail = nothing
 Else
                 response.redirect("wmailinserr.htm")
 End if
                 response.redirect("wmailinserr.htm")
%>

C'est surtout la gestion du résultat (erreurs ou ok) qui me péoccupe

Encore merci :D

26/04/2006, 17h09
tthierry
>Email = Request.Form("Email")<

si passage du formulaire en get :
Code:

1 2 $email=$_GET['Email'];
si en post :
Code:

1 2 $email=$_POST['Email']
>If Email<>"" then<
Code:

1 2 3 4 5 6 7 if ($email != "") { //envoi du mail } else { //pas ok }
envoyer un mail :
Code:

1 2 mail(param1,param2,...);
>If objMail.Send <>0 Then<
Code:

1 2 3 4 5 6 7 if (mail(xxxxxx)) { //ok } else { //pas ok }
avec des vieux souvenir et pas en vb...

pour la fonction mail je te laisse voir ça :
http://fr3.php.net/manual/fr/ref.mail.php
http://fr3.php.net/manual/fr/function.mail.php
26/04/2006, 17h15
FoxLeRenard
Citation:
Envoyé par tthierry

>Email = Request.Form("Email")<

si passage du formulaire en get :

Code:

1 2 $email=$_GET['Email'];

si en post :

Code:

1 2 $email=$_POST['Email']

>If Email<>"" then<

Code:

1 2 3 4 5 6 7 if ($email != "") { //envoi du mail } else { //pas ok }

envoyer un mail :

Code:

1 2 mail(param1,param2,...);

>If objMail.Send <>0 Then<

Code:

1 2 3 4 5 6 7 if (mail(xxxxxx)) { //ok } else { //pas ok }

avec des vieux souvenir et pas en vb...

pour la fonction mail je te laisse voir ça :
http://fr3.php.net/manual/fr/ref.mail.php
http://fr3.php.net/manual/fr/function.mail.php
Ok et mille mercis ça devrait marcher :D