<%
Nom = GetParam("Nom")
Prenom = GetParam("Prenom")
Mail1 = GetParam("Mail1")
''''''''''''''''''''''''''''''''''''''''''''''''''''
' Vérification de l'existence du joueur dans la DB '
''''''''''''''''''''''''''''''''''''''''''''''''''''
ChkIfExist = CLng(DLookUp("joueurs_club", "count(*)", "Nom =" & ToSQL(Nom, "Text") & " AND Prenom=" & ToSQL(Prenom, "Text") & " AND (Mail1 =" & ToSQL(Mail1, "Text") & " OR Mail2=" & ToSQL(Mail1, "Text") & ")"))
If ChkIfExist = 0 then
Response.Redirect("RecupLogin.asp?Err=10&Nom=" & Nom & "&Prenom=" & Prenom & "&Mail1=" & Mail1)
else
Set rsSearchJ = Server.CreateObject("ADODB.Recordset")
sqlSearchJ = "SELECT * FROM joueurs_club WHERE Nom =" & ToSQL(Nom, "Text") & " AND Prenom=" & ToSQL(Prenom, "Text") & " AND (Mail1 =" & ToSQL(Mail1, "Text") & " OR Mail2=" & ToSQL(Mail1, "Text") & ")"
openrs rsSearchJ, sqlSearchJ
While not rsSearchJ.eof
idJoueur = rsSearchJ("id")
NomJ = rsSearchJ("Nom")
PrenomJ = rsSearchJ("Prenom")
Mail1J = rsSearchJ("Mail1")
Mail2J = rsSearchJ("Mail2")
Login = rsSearchJ("login")
Pass = rsSearchJ("pass")
rsSearchJ.movenext
Wend
rsSearchJ.close
set rsSearchJ = nothing
'''''''''''''''''''''''''''''''
' Envoi du mail recapitulatif '
'''''''''''''''''''''''''''''''
ContenuMail = "" _
& "" _
& "" _
& "Volley Tihange-Huy - Acces personnel au site" _
& "" _
& "" _
& PrenomJ & ",
" _
& "Suite à ton enregistrement sur le site, voici le mail de confirmation.
" _
& "Ranges précieusement ce mail, si tu as un trou de mémoire, il te servira de copion pour te connecter.
" _
& "Nom d'utilisateur : " & Login & "
" _
& "Mot de passe : " & Pass & "
" _
& "Grace à ces informations, tu pourras enregistrer tes participations au matchs, modifier ton profil, etc...
" _
& "Lainlain.
" _
& "" _
& "Suis ce lien pour te connecter
" _
& "" _
& "Suis ce lien pour te désinscrire de la mailing list" _
& "" _
& ""
mailsendto = Mail1J
mailsendcc = Mail2J
mailsubject = "Volley Tihange-Huy - Acces personnel au site"
SendCDOEmail "mail.eurobrevets.be","tihangehuy@eurobrevets.be","eB.1963", mailsubject, ContenuMail,"tihangehuy@eurobrevets.be",mailsendto,mailsendcc, 1, "HTML"
Response.Redirect("LoginForm.asp?MailSent=1&Register=1&Login=" & Login & "&Pass=" & Pass)
end if
%>
|
