suite changement hebergeur GANDI / 1and1

**jp77100** · 23/05/2011, 22h58

bonsoir
voila ayant été obligé de changer d'hebergeur certaines parties du site ne fonctionne plus.
Exemple : confirmation commande et envoie par email de mot de passe perdu pour etre plus clair
la partie mots de passe perdu qui envoyait les emails chez GANDI etait :

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
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
 
<% email=request.form("email") %>
 
<% if email="" then %>
<script language="javascript">
alert('E-mail Illegal');
history.back();
</script>
<%end if%>
 
<% 
Set Conn = Server.CreateObject("ADODB.Connection")
FilePath = Server.MapPath("/db/********.mdb")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & FilePath & ";" 
%>
 
<% sql3 = "select * from client WHERE EMAIL='"&email&"' " %>
<% Set RSLOGIN2=Conn.execute(sql3) %>
 
 
<%if not RSLOGIN2.eof then%>
<%valemail= email & " : vos identifiants ont été envoyés par email." %>
<% 
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.RemoteHost = "mrelay.perfora.net" ' Serveur pour expédition avec Asp Mail
Mail.From = email ' Adresse de l'expéditeur
Mail.FromName = "*****Un ******" ' Nom de l'expéditeur
Mail.AddAddress email, "CLients **********"
Mail.AddReplyTo "*******@******.com"
Mail.Subject = "IDENTIFIANTS : Oubli de votre mot de passe"
Mail.Body = "Vos identifiants ********** " & Chr(13) & Chr(10) & _
"Login : " & RSLOGIN2("LOGIN") & Chr(13) & Chr(10) & _
"Pass : " & RSLOGIN2("PASS") & Chr(13) & Chr(10) & _
"Bonne Visite."
 
On Error Resume Next
Mail.Send
If Err <> 0 Then
Response.Write "Erreur: " & Err.Description
End If
 %>
<%else%>
<%valemail= email & " : vos identifiants sont introuvables." %>
<%end if%>

J'ai changé la partie du serveur mais impossible de faire expédier l'email, les champs ne fonctionne plus, apparemment la syntaxe est différente. Par contre apparemment la connection a la base fonctionne.

Autre probleme sur un autre fichier la confirmation de commande et là je me retrouve sur les 2 fichiers avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim mySmartMail
	Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

sur plusieurs lignes, je ne sais comment modifier cette partie.
Si une personne charitable pouvait me donner un coup de main, cela serais sympas, car je butte complètement.
Je peux expedier pour etre plus clair les fichiers
Merci d'avance de votre aide a tous.

**kaiser59** · 25/05/2011, 10h57

Salut,

L'hébergement n'a rien à voir dans ton problème ce que tu dois par contre savoir c'est si l'hébergeur que tu as choisi utilise aussi AspSmartMail ? Si oui, as tu créer le webmail en question ?

Enfin pour ton code des mots de passe perdu... Est ce que tu arrives à bien te connecter à ta BDD, Est ce le même Access, Sql Server 2kxx etc... ?

**jp77100** · 25/05/2011, 11h15

Envoyé par kaiser59

Salut,

L'hébergement n'a rien à voir dans ton problème ce que tu dois par contre savoir c'est si l'hébergeur que tu as choisi utilise aussi AspSmartMail ? Si oui, as tu créer le webmail en question ?

Enfin pour ton code des mots de passe perdu... Est ce que tu arrives à bien te connecter à ta BDD, Est ce le même Access, Sql Server 2kxx etc... ?

Bonjour
ce matin j'ai trouvé un script qui me permet de savoir ce qui est installé, et ben non pas de AspSmartMail juste CDOmessage, ASPmail et ASPQmail, je suis donc dans une impasse car n'etant pas programmeur je ne sais comment faire.
Pour me mot de passe perdu, oui je me connecte car si je met une mauvaise adresse email la reponse est "votre Email : vos identifiants sont introuvables." si je mets l'email correct je recois ceci :

Le site Web ne peut pas afficher la page
HTTP 500
Causes les plus probables :
•Le site Web est en cours de maintenance.
•Le site Web présente une erreur de programmation.

Essayez la chose suivante :
Actualisez la page.

Aller à la page précédente.

je ne comprends plus rien
merci de ton aide qui me sera bien utile.

**roro06** · 25/05/2011, 11h27

Bonjour

Tu n'as pas d'autre choix que de réécrire la partie d'envoi de mail, en utilisant un des composants dont tu disposes. ASPmail a l'air pas mal, et tu as tout ce qu'il faut dans la doc pour, normalement, t'en sortir.

**jp77100** · 25/05/2011, 11h38

Envoyé par roro06

Bonjour

Tu n'as pas d'autre choix que de réécrire la partie d'envoi de mail, en utilisant un des composants dont tu disposes. ASPmail a l'air pas mal, et tu as tout ce qu'il faut dans la doc pour, normalement, t'en sortir.

Merci de ta réponse rapide
Mon probleme est qu'avec ça :

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
'Envoie Email'
 
 On error resume next
 
	Dim mySmartMail
	Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
 
'	Mail Server
'	***********
	 mySmartMail.Server = "localhost"
 
	mySmartMail.ContentType = "text/html"
 
 
'	From
'	****
	mySmartMail.SenderName = nom
	mySmartMail.SenderAddress = email
 
'	To
'	**
	mySmartMail.Recipients.Add "admin@truc.com", "truc.com"
 
'	Parameter
'	*********
	mySmartMail.Priority = 1
 
 
'	Message
'	*******
	mySmartMail.Subject = "COMMANDE truc.com Numero : "&numcommande
	mySmartMail.Body =  "<table border=1 bordercolor=black cellpadding=2 cellspacing=2 width=600><tr><td><font face=Arial size=2>Référence de la commande :" & numcommande &"<br><br>Référence de la commande interne :"& numinterne &"<br>Société :"& intitule &"<br>Nom :"& nom &"<br>Prénom :"& prenom &"<br>adresse :"& adresse &"<br>cp :"& cp &"<br>ville :"& ville &"<br>tel :"& tel &"<br>email :"& email &"</font></td><td><font face=Arial size=2>ADRESSE de LIVRAISON<br><br>intitule :"& int2 &"<br>Nom :"& nom2 &"<br>Prénom :"& prenom2 &"<br>adresse :"& adresse2 &"<br>cp :"& cp2 &"<br>ville :"& ville2 &"<br>tel :"& tel2 &"<br><br></font></td></tr></table><br><br>"

La seule chose que je sais c'est que pour 1and1 je dois mettre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.RemoteHost = "mrelay.perfora.net" ' Serveur pour expédition avec Asp Mail

Et l'autre partie étant :

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
'   ACCUSE RECEPTION	
'	Mail Server
'	***********'
	 mySmartMail.Server = "localhost"
 
	mySmartMail.ContentType = "text/plain"
 
'	From'
'	****'
	mySmartMail.SenderName = "truc.com"
	mySmartMail.SenderAddress = "admin@truc.com"
 
'	To'
'	**'
	mySmartMail.Recipients.Add email , nom
 
'	Parameter'
'	*********'
	mySmartMail.Priority = 1	
 
 
'	Message'
'	*******'
	mySmartMail.Subject = "Confirmation de commande truc.com"
	mySmartMail.Body =  "Cher client," & _

Je n'arrive pas a m'en sortir, si une personne pouvais me dnner un exemple pour réécrire cela serait super, car je n'y arriverais jamais seul.
Merci de ton aide
Cordialement
Jean philippe

**jp77100** · 27/05/2011, 10h48

bonjour a tous

la partie mot de passe fonctionne enfin il me manquais juste :
Mail.AddRecipient "MOn site", Request.Form("email")
Afin de prendre l'adresse email
Merci de votre aide de ce coté.

Par contre l'autre partie confirmation de commande dur dur

En esperant un petit coup demain

A bientot

**jp77100** · 27/05/2011, 12h22

Envoyé par roro06

Bonjour

Tu n'as pas d'autre choix que de réécrire la partie d'envoi de mail, en utilisant un des composants dont tu disposes. ASPmail a l'air pas mal, et tu as tout ce qu'il faut dans la doc pour, normalement, t'en sortir.

bonjour roro

Bon ben meme avec la doc rien a faire j'ai essayer pour confirmation commande et accusé de reception.
Si tu avais un petit moment pour me donner un coup de main a savoie que mon herbergeur est 1ans1 avec aspnet et que j'ai ce code a modifier

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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
'Envoie Email'
 
 On error resume next
 
	Dim mySmartMail
	Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")
 
'	Mail Server
'	***********
	 mySmartMail.Server = "localhost"
 
	mySmartMail.ContentType = "text/html"
 
 
'	From
'	****
	mySmartMail.SenderName = nom
	mySmartMail.SenderAddress = email
 
'	To
'	**
	mySmartMail.Recipients.Add "admin@truc.com", "truc.com"
 
'	Parameter
'	*********
	mySmartMail.Priority = 1
 
 
'	Message
'	*******
	mySmartMail.Subject = "COMMANDE truc.com Numero : "&numcommande
	mySmartMail.Body =  "<table border=1 bordercolor=black cellpadding=2 cellspacing=2 width=600><tr><td><font face=Arial size=2>Référence de la commande :" & numcommande &"<br><br>Référence de la commande interne :"& numinterne &"<br>Société :"& intitule &"<br>Nom :"& nom &"<br>Prénom :"& prenom &"<br>adresse :"& adresse &"<br>cp :"& cp &"<br>ville :"& ville &"<br>tel :"& tel &"<br>email :"& email &"</font></td><td><font face=Arial size=2>ADRESSE de LIVRAISON<br><br>intitule :"& int2 &"<br>Nom :"& nom2 &"<br>Prénom :"& prenom2 &"<br>adresse :"& adresse2 &"<br>cp :"& cp2 &"<br>ville :"& ville2 &"<br>tel :"& tel2 &"<br><br></font></td></tr></table><br><br>"
 
 
 
 
	SQL3b="SELECT * FROM details WHERE Num = '"&numcommande&"' order by Ligne"
    Set Rscom = conn.Execute(SQL3b)
 
	if not Rscom.eof then
		mySmartMail.Body = mySmartMail.Body + "<table border=1 bordercolor=black cellpadding=1 cellspacing=1 width=600><tr><td align=center bgcolor=#CCCCCC><font face=Arial  size=1><b>Ref</b></font></td><td align=center width=60 bgcolor=#CCCCCC><font face=Arial  size=1><b>Qte</b></font></td><td align=center width=80 bgcolor=#CCCCCC><font face=Arial  size=1><b>Prix</b></font></td><td align=center width=100 bgcolor=#CCCCCC><font face=Arial  size=1><b>Catégorie</b></font></td><td align=center width=100 bgcolor=#CCCCCC><font face=Arial  size=1><b>ss Cat</b></font></td><td align=center width=60 bgcolor=#CCCCCC><font face=Arial  size=1><b>Type</b></font></td></tr>" 
 
		while not Rscom.eof 
			if Rscom("Qte")<>"0" then
			mySmartMail.Body = mySmartMail.Body + "<tr><td align=center ><font face=Arial  size=2>"& Rscom("Reference") &"</font></td><td align=center ><font face=Arial  size=2>"& Rscom("Qte") &"</font></td><td align=center ><font face=Arial  size=2>"& Rscom("Prix") &"</font></td><td align=center ><font face=Arial  size=2>"& replace(Rscom("Cat"),"'"," ") &"</font></td><td align=center ><font face=Arial  size=2>"& replace(Rscom("SCat"),"'"," ") &"</font></td><td align=center ><font face=Arial  size=2>"& replace(Rscom("Volume"),"'"," ") &"</font></td></tr>"
			end if
		Rscom.movenext
		wend
	else
		mySmartMail.Body ="<table><tr><td align=center bgcolor=#CCCCCC>Pas de produits enregistrés</td></tr>"
	end if
		mySmartMail.Body = mySmartMail.Body + "</table>" 
 
 
 
	mySmartMail.Body = mySmartMail.Body + "<br><br><table border=1 bordercolor=black cellpadding=1 cellspacing=1 ><tr><td><font size=2 face=Arial>RESUME<br><br>Date :"& date() &"<br>Montant total HT:"& formatnumber((total),2) &"<br>Frais de Port HT :"& port &"<br>Remise HT:"& formatnumber((remise2),2) &"<br>TVA :"& formatnumber((totalttc - total),2) &"<br>Montant total TTC:"& formatnumber((totalttc),2) &"<br>Mode de Paiement :  "& session("reg") &"</font></td></tr></table>"
 
'	Send the message
'	****************
	mySmartMail.SendMail
 
	if err.number <> 0 then
 
		response.write("Error n° " &  err.number - vbobjecterror & " = " & err.description  & "<br>")
 
	else
 
 
		Response.Write " E-mail administrateur envoyé avec succès <br>"
        mySmartMail.Recipients.Clear
	end if	
 
'   ACCUSE RECEPTION	
'	Mail Server
'	***********'
	 mySmartMail.Server = "localhost"
 
	mySmartMail.ContentType = "text/plain"
 
'	From'
'	****'
	mySmartMail.SenderName = "truc.com"
	mySmartMail.SenderAddress = "admin@truc.com"
 
'	To'
'	**'
	mySmartMail.Recipients.Add email , nom
 
'	Parameter'
'	*********'
	mySmartMail.Priority = 1	
 
 
'	Message'
'	*******'
	mySmartMail.Subject = "Confirmation de commande truc.com"
	mySmartMail.Body =  "Cher client," & _
	"" & Chr(13) & Chr(10) & _
	"truc.com  vous remercie de votre confiance." & _ 
	"" & Chr(13) & Chr(10) & _
	"Votre commande sera traitée dans les plus brefs délais." & _
	"" & Chr(13) & Chr(10) & _
	"A très bientôt sur notre site." & Chr(13) & Chr(10) & _
 
	"" & Chr(13) & Chr(10) & _
	"L équipe de truc.com. " & Chr(13) & Chr(10) & _
	"" & Chr(13) & Chr(10) & _
	"" & Chr(13) & Chr(10) & _
	"Récapitulatif de votre commande:"& Chr(13) & Chr(10) & _
	"" 
	mySmartMail.Body = mySmartMail.Body +  "Référence de la commande :" & numcommande & _
	"" & Chr(13) & Chr(10 ) & _
	"Référence de la commande interne :"& numinterne & Chr(13) & Chr(10) & _
	"Date :"& date() & Chr(13) & Chr(10) & _
	"Frais de port HT :"& port &" Euros" &Chr(13) & Chr(10) & _
	"" & Chr(13) & Chr(10 ) & _
	""
 
 if paie="CR" then
 
	mySmartMail.Body = mySmartMail.Body + "Montant Commande TTC :"& FormatNumber((totalttc)+(10*1.196),2) &" Euros" & Chr(13) & Chr(10) & _
	"Mode de Paiement :  "&session("reg") & Chr(13) & Chr(10) & _
 
	"" & Chr(13) & Chr(10 ) & _
	""
 
else
 
	mySmartMail.Body = mySmartMail.Body + "Montant Commande TTC :"& formatnumber((totalttc),2) &" Euros" & Chr(13) & Chr(10) & _
	"Mode de Paiement :  "&session("reg") & Chr(13) & Chr(10) & _
 
	"" & Chr(13) & Chr(10 ) & _
	""
end if
'	Send the message
'	****************
	mySmartMail.SendMail
 
	if err.number <> 0 then
 
		response.write("Error n° " &  err.number - vbobjecterror & " = " & err.description  & "<br>")
 
	else
 
		Response.Write " E-mail Client envoyé avec succès" 
 
	end if
 
	set mySmartMail = nothing
 
 
end if
 
 %>
<% 
if ValidEmail(email)= true then
Session("cartmodele2")="" 
end if%>

Car apres plusieurs essais avec ce type de scrip cela ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Set Mail = Server.CreateObject("SMTPsvg.Mailer") 'create an Asp mail component.
Mail.FromName   = Request.Form("nom")
Mail.FromAddress= Request.Form("email")
Mail.RemoteHost = "mrelay.perfora.net" ' Serveur pour expédition avec Asp Mail
Mail.AddRecipient "Question site truc.com", Request.Form("categorie") 
Mail.Subject    = "QUESTION SITE INTERNET"
Mail.BodyText   = "Societe : " & Request.Form("societe")& Chr(13)
Mail.BodyText   = "Nom : " & Request.Form("nom")& Chr(13)
Mail.BodyText   = "Email : " & Request.Form ("email")& Chr(13)	
Mail.BodyText   = "Question : " & Request.Form("question")

merci d'avance
jean philippe

**roro06** · 27/05/2011, 12h55

Re

Premier reflexe : Il faut absolument enlever cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On error resume next

(quitte à la remettre après). Pour trouver la source d'une erreur, c'est mieux

**jp77100** · 27/05/2011, 16h02

Envoyé par roro06

Re

Premier reflexe : Il faut absolument enlever cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

On error resume next

(quitte à la remettre après). Pour trouver la source d'une erreur, c'est mieux

Bonjour

Mes excuses je n'ai pas recu de nofication apr email de votre réponse.

Voici l'erreur que je recois avec SmartMail

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/paniermodele4.asp, line 378

800401f3

ce qui correspond a :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set mySmartMail = Server.CreateObject("aspSmartMail.SmartMail")

merci de votre aide

**roro06** · 27/05/2011, 16h36

Tu l'as dit toi-même :

pas de AspSmartMail

Et je t'ai dit :

Tu n'as pas d'autre choix que de réécrire la partie d'envoi de mail, en utilisant un des composants dont tu disposes. ASPmail a l'air pas mal, et tu as tout ce qu'il faut dans la doc pour, normalement, t'en sortir.

**jp77100** · 27/05/2011, 16h40

Envoyé par roro06

Tu l'as dit toi-même :

Et je t'ai dit :

Oui je sais mais, pas facile de remplacer AspSmartMail par ASPmail pas dut out la meme chose dans le script et en plus ce site est pourri, celui qui a fait ça vraiemnt pas terrible.
Merci quand meme

suite changement hebergeur GANDI / 1and1

ASP

Discussions similaires

Partager

Partager