soucis de formulaire

**Riwalenn** · 22/08/2012, 16h01

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 :

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
<!-- #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 :

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
<%
 
	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** · 23/08/2012, 10h07

Bonjour

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

Code :

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

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** · 23/08/2012, 11h06

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** · 23/08/2012, 14h10

Bonjour,

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

**Riwalenn** · 23/08/2012, 18h41

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

**pc75** · 24/08/2012, 08h40

Re,

Peut-être en rajoutant ça ?

Code :

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

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** · 24/08/2012, 10h30

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

**roro06** · 24/08/2012, 10h48

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** · 24/08/2012, 10h49

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** · 24/08/2012, 10h52

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

**Riwalenn** · 24/08/2012, 14h40

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.

soucis de formulaire

ASP

Discussions similaires

Partager

Partager