soucis de formulaire [Résolu]

[Riwalenn]

Bonjour, j'ai actuellement un problème avec mon formulaire.. avant il fonctionnait et depuis quelques temps ce n'est plus le cas et je ne sais pas pourquoi.. je ne connais presque rien à l'asp sauf ce qui ressemble au php, j'ai beau trifouiller et je ne reçois pas par mail la réponse :/
ci-dessous les fichiers liés au formulaire
le formulaire en question : http://www.operationrecyclage.com/ec...enlevement.asp

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
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
<!-- #include virtual="/ecolopoint/includes/ESELFuncs.asp" -->
							<%
								Dim eBody 'the main content of the email
 
									eBody = " " & vbCrLf & vbCrLf 'adds the first line and a blank line
 
									Dim eBodyArray()
 
									Redim eBodyArray(0)
 
									For Each i in Request.QueryString
										If Right( i, 2 ) <> ".x" And Right( i, 2 ) <> ".y" And i <> "x" And i <> "y" Then
											eBody = ""
											eBody = eBody & i
											eBody = eBody & " = "
											eBody = eBody & Request.QueryString(i) & vbCrLf
											eBodyArray(UBound( eBodyArray )) = eBody
											Redim Preserve eBodyArray(UBound( eBodyArray ) + 1)
										End If
									Next
 
									For Each i in Request.Form
										If Right( i, 2 ) <> ".x" And Right( i, 2 ) <> ".y" And i <> "x" And i <> "y" Then
											eBody = ""
											eBody = eBody & i
											eBody = eBody & " = "
											eBody = eBody & Request.Form(i) & vbCrLf
											eBodyArray(UBound( eBodyArray )) = eBody
											Redim Preserve eBodyArray(UBound( eBodyArray ) + 1)
										End If
									Next
 
									Redim Preserve eBodyArray(UBound( eBodyArray ) - 1)
 
									eBody = Join( bubbleSort( eBodyArray ), vbCrLf )
 
									If not isEmpty( Request( "ebodyreplace" ) ) Then
										ebody = Request( "ebodyreplace" ) 'any email address but shows who sent the message
									End If
 
									'Set objMail = CreateObject("CDONTS.NewMail")
 
									myFrom = "riwalenn@gmail.com" 'any email address but shows who sent the message
									'myFrom = "info@operationrecyclage.com" 'any email address but shows who sent the message
 
									Response.Write( "<!--  myTo = " & myFrom & ", then = ")
 
									'objMail.From = "admin@recyclingappeal.com" 'any email address but shows who sent the message
									If not isEmpty( Request( "EMAIL" ) ) Then
										If instr( Request( "EMAIL" ), "@" ) Then
											myFrom = Request( "EMAIL" ) 'any email address but shows who sent the message
										End If
									End If
									Response.Write( myFrom & "-->" )
 
 
									'myTo = "benp@redeemplc.com"
									myTo = "riwalenn@gmail.com"
 
									Response.Write( "<!--  myTo = " & myTo & ", then = ")
 
									If not isEmpty( Request( "emailaddressto" ) ) Then
										If instr( Request( "emailaddressto" ), "@" ) Then
											myTo = Request( "emailaddressto" ) 'any email address but shows who sent the message
										End If
									End If
 
									Response.Write( myTo & "-->" )
 
									CC = "" 'address that a carbon copy of the message should go to
 
									Subject = "Automated Operation Recyclage Website Message" 'the subject line of the email
 
									If not IsEmpty( Request( "subject" ) ) Then
										Subject = Request( "subject" ) 'the subject line of the email
									End If
 
									'Body = eBody 'adds all the form code as the email body
 
 
 
									Response.Write(  vbCrLf )
									Response.Write(  "<!-- DEBUG_INFO " )
									Response.Write(  vbCrLf )
									'Response.Write( objMail.Body )
									Response.Write(  vbCrLf )
									Response.Write( myTo  )
									Response.Write(  vbCrLf )
									'Response.Write( objMail.From  )
									Response.Write(  vbCrLf )
									'Response.Write( objMail.Subject  )
									Response.Write(  "-->" )
									Response.Write(  vbCrLf )
									Response.Write(  vbCrLf )
 
									ErrorText = ""
 
									On Error Resume Next
										'objMail.Send() 'actually sends the email	
										SendEmail myTo, myFrom, Subject, eBody 
										If err Then
											Heading  = "Error"
											MainText = "There was an error sending your request, please try again later"
											ErrorText = err & ", " & Err.description
										Else
											If not isEmpty( Request( "thankyouheading" ) ) Then
												Heading = Request( "thankyouheading" )
											Else
												Heading = "Thank you"
											End If
											If not isEmpty( Request( "thankyoumessage" ) ) Then
												If not isEmpty( Request( "forename" ) ) Then
													MainText = "<h3>" & Request( "forename" ) & "</h3>" & "<br />" & vbCrLf & Request( "thankyoumessage" )
												Else
													MainText = Request( "thankyoumessage" )
												End If
											Else
												MainText = "Thank you"
											End If
										End If
									'Set objMail = Nothing 'deletes the email object from computer memory [good housekeeping]
						%>

le fichier Eselfuncs :

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
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
<%
 
	Sub SendEmail( eTo, eFrom, eSubject, eBody )
		'Response.Write( "!" )
		If (not IsNull( eTo ) ) AND (not IsEmpty( eTo) ) AND (eTo <> "") AND (not IsNull( eFrom ) ) AND (not IsEmpty( eFrom) ) AND (eFrom <> "")Then
 
			' ## ...SEND ORDER 
			Dim objCDOSYSCon
			Dim objCDOSYSMail
			Dim strOutgoingMailServer
 
			'define the adres of your mailserver
			strOutgoingMailServer = "smtp.gmail.com"
 
			Set objCDOSYSMail = Server.CreateObject("CDO.Message")
			Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
 
			'Set and update fields properties
			With objCDOSYSCon
				'Out going SMTP server
				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strOutgoingMailServer
				'SMTP port
				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport")  = 25
				'CDO Port
				.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
				'Timeout
				.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
				.Fields.Update
			End With
 
			'Update the CDOSYS Configuration
			Set objCDOSYSMail.Configuration = objCDOSYSCon
 
			With objCDOSYSMail
 
			.From = eFrom
			.To = eTo 
			.Subject = eSubject
			'uncomment below if you want to send your mail in HTML
			'.HTMLBody = body
 
			'comment out below if you want to send your mail in HTML
			'it is now sended as plain-text
			.TextBody = eBody
			.Send
 
			End with
 
			Set objCDOSYSMail = Nothing
 
		Else
 
				Err.Raise 8    'raise a user-defined error
				Err.Description = "the address information is insufficent"
				Err.Source = "sendEmail"
 
		End If
 
	End Sub
 
 
	Function bubbleSort( theArray )	
		myArray = theArray
		for i = UBound(myArray) - 1 To 0 Step -1
			for j= 0 to i
				if myArray(j)>myArray(j+1) then
					temp=myArray(j+1)
					myArray(j+1)=myArray(j)
					myArray(j)=temp
				end if
			next
		next
		bubbleSort = myArray
	End Function
 
%>

j'ai mis ma propre adresse email pour faire des essais

suite à ça, je devrais reçevoir un email avec ce que la personne a remplit dans les champs mais je ne reçois rien et le formulaire ne fait aucune erreur.

[roro06]

Bonjour

Pour débugguer, tu peux enlever/mettre en commentaire la ligne

Code :

On error resume next

S'il y a une erreur, tu aura un message d'erreur qui permettra d'avancer.

Vérifie aussi les paramètres gmail : port 25? ne faut-il pas une authentification ?
qu'est ce qui a été modifié pour que ça ne marche plus ?

Edit :
Après recherche, il y a ici les paramètres de gmail à utiliser

[Riwalenn]

Alors j'ai essayé de mettre en commentaire la ligne on resume next et j'ai une erreur 500 du coup à la place de la page "merci".

j'ai mis les lignes suivantes pour l'authentification :

.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "mon identifiant"
.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "mon mot de passe"

et il ne se passe rien :/
(j'ai essayé avec le port 465 aussi, y'a un truc qui doit m'échapper mais quoi

Edit : le seul truc qu'on a changé c'est l'hebergeur, après les formulaires n'ont pas bougés

[pc75]

Bonjour,

Il me semble que le port par défaut du protocole SMTP est 25.

[Riwalenn]

c'est ce que j'avais au début et ça fonctionne pas

[pc75]

Re,

Peut-être en rajoutant ça ?

Code :

1
2
3
4
 
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' On utilise un service SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 ' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 0 ' 0 = aucune authentification ; 1 = authentification

[Riwalenn]

toujours pas, j'ai essayé avec les 3 ports mais rien...

[roro06]

Bonjour

Je viens de faire un test d'envoi par gmail :

C'est bien le port 587 (smtpserverport) qu'il faut utiliser. Avec authentification (smtpauthenticate="1"), les paramètres de comptes à utiliser sont ton adresse email ("riwalenn@gmail.com") et ton mot de passe associé.

Si ça pose toujours problème, je te suggère d'appeler ton nouvel hébergeur (c'est qui ?) pour voir avec lui, peut-etre que le port 587 est fermé ...

voili voilou

[Riwalenn]

oki je te remercie je vais appeler l'hebergeur du coup

Edit : est-ce que c'est bien

.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "riwalenn@gmail.com"

qu'il faut mettre pour les paramètres de compte ?

[roro06]

PS : regarde aussi si tu n'as pas des logs pour analyser l'erreur 500 que tu obtiens... ça peut aider ...

[Riwalenn]

en fait tu avais raison c'est bien un problème de port, avant d'appeler l'assistance j'ai d'abord créer une adresse email pour moi (vu que je boss à la maison et que je n'ai pas accès aux adresses emails concernées) avec tes instructions et ça fonctionne.. j'ai juste un formulaire sur les 6 qui veut rien entendre, mais c'était bien le port gmail qui m'a mis dans la mouise ^^ merci.