Discussion :

[id1311]

Bonjour,
je suis novice en ASP, et afin d'aider une amie, j'ai décidé de jeter un oeil à un vieux bout de code ASP présent sur son site.

Lors de l'inscription sur son site, un mot de passe est envoyé par mail, via un fichier texte. Elle souhaiterai que ce mot de passe apparaisse lors de l'inscription... cependant je tourne en rond et je n'arrive pas à récupérer ma variable.
Voilà la fonction asp qui génère mon mot de passe et mon mail :

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
function SENDMAILINSCRIPTION(emailclient)
 
THEPASSWORD=""
for BCLTHEPASSWORD=1 to 8
RANDOMIZE
numborlett=int(rnd*2)+1
	if numborlett=1 then
		THEPASSWORD=THEPASSWORD&chr((int(rnd*9)+48))
	else
		THEPASSWORD=THEPASSWORD&chr((int(rnd*25)+97))
	end if
next
set GTEnvoipass = New GenerateurTemplate
GTEnvoipass.FichierTemplate = "email_envoi_pass_inscription.txt"
MCtmp="NOMDUSITE":if GTEnvoipass.MC(MCtmp) then GTEnvoipass.AjoutMotCle MCtmp,NOMDUSITE
MCtmp="EMAIL":if GTEnvoipass.MC(MCtmp) then GTEnvoipass.AjoutMotCle MCtmp,emailclient
MCtmp="PASS":if GTEnvoipass.MC(MCtmp) then GTEnvoipass.AjoutMotCle MCtmp,THEPASSWORD
MCtmp="URLSITE":if GTEnvoipass.MC(MCtmp) then GTEnvoipass.AjoutMotCle MCtmp,URLSITE
GTEnvoipass.CreationHtml
Set GTEnvoipass = nothing 
contenuMail=renduHTMLtmp
 
SQLCreaCompte="SELECT * FROM clients "
Set rsCreaCompte = Server.CreateObject("ADODB.Recordset")
rsCreaCompte.Open SQLCreaCompte, conn, 3, 3
rsCreaCompte.ADDNEW
rsCreaCompte("password")=THEPASSWORD
rsCreaCompte("email")=emailclient
rsCreaCompte("dateinscription")=now()
rsCreaCompte("points")=0
rsCreaCompte("totalcommandes")=0
rsCreaCompte("commandes")=0
rsCreaCompte.UPDATE
rsCreaCompte.close
set rsCreaCompte=nothing
 
	if Mail(servermail,NOMDUSITE,mailsite ,emailclient,"Bienvenue sur "&NOMDUSITE,contenuMail,"") then
		ERREURIDENTIFY="Merci, vous pouvez consulter vos messages électroniques.<BR>Votre mot de passe vous a été envoyé par mail.":MAILMEMBRE=MAILNEW:MAILNEW=""
 
	else
		ERREURIDENTIFY="Désolé, impossible de vous envoyer votre mot de passe.<BR>Veuillez vérifier votre email.<BR>"
	end if
 
end function

Le but du jeux est de pouvoir afficher le PASSWORD dans ma variable ERREURIDENTIFY ... moi je bloque, l'ASP me donne mal au crâne

Si vous avez une idée .. moi je sèche

[TekP@f]

Salut,

Le mot de passe est dans cette variable :
THEPASSWORD

Ton code devient :

Code :

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

1
2
 
ERREURIDENTIFY="Merci, vous pouvez consulter vos messages électroniques.<BR>Votre mot de passe vous a été envoyé par mail.<br> Votre nouveau mot de passe est " + THEPASSWORD:MAILMEMBRE=MAILNEW:MAILNEW=""

[roro06]

Bonjour

Je ne suis pas bien certain d'avoir tout compris. tu es dans une fonction, donc pour récupérer une valeur en dehors de cette fonction, il faut que celle-ci retourne cette valeur

Code :

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

1
2
3
4
5
6
7
8
9

function SENDMAILINSCRIPTION(emailclient)
 
.....
.....
.....
   SENDMAILINSCRIPTION=valeurAretourner
end function

Dans ton cas, tu feras :

Code :

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

SENDMAILINSCRIPTION=THEPASSWORD

[id1311]

Bonjour,

j'ai mal au crâne ... en tout cas merci de votre aide, je vais testé tou ça.

Je vous tiens au courrant

P.S. : l'ASP me fait peur ^^

[roro06]

j'ai mal au crâne ... l'ASP me fait peur ^^

On a inventé l'ASPirine, depuis