<%
idCatRedirect = Request.Form("idCatRedirect")
Nom = Request.Form("Nom")
Nom = UCase(Nom)
Prenom = Request.Form("Prenom")
Tel = Request.Form("Tel")
GSM = Request.Form("GSM")
JourAniv = Request.Form("JourAniv")
MoisAniv = Request.Form("MoisAniv")
AnneeAniv = Request.Form("AnneeAniv")
DateAnivSql = AnneeAniv & "-" & MoisAniv & "-" & JourAniv
Mail1 = Request.Form("Mail1")
Mail2 = Request.Form("Mail2")
Licence = Request.Form("Licence")
Sexe = Request.Form("Sexe")
CP = Request.Form("CP")
Ville = Request.Form("Ville")
Rue = Request.Form("Rue")
LieuNaiss = Request.Form("LieuNaiss")
JourMembreDepuis = Request.Form("JourMembreDepuis")
MoisMembreDepuis = Request.Form("MoisMembreDepuis")
AnneeMembreDepuis = Request.Form("AnneeMembreDepuis")
MembreDepuisSql = AnneeMembreDepuis & "-" & MoisMembreDepuis & "-" & JourMembreDepuis
idCat = Request.Form("idCat")
idCat2 = Request.Form("idCat2")
set rsInsertJoueur = Server.CreateObject("ADODB.Recordset")
sqlInsertJoueur = "INSERT INTO Joueurs_club (Nom, Prenom, Tel, GSM, DateAniv, Mail1, Mail2, Licence, Sexe, CP, Ville, Rue, LieuNaiss, MembreDepuis, idCat, idCat2)" & _
" VALUES (" & _
ToSQL(Nom, "Text") & ", " & _
ToSQL(Prenom, "Text") & ", " & _
ToSQL(Tel, "Text") & ", " & _
ToSQL(GSM, "Text") & ", " & _
"'" & DateAnivSql & "', " & _
ToSQL(Mail1, "Text") & ", " & _
ToSQL(Mail2, "Text") & ", " & _
"'" & Licence & "', " & _
ToSQL(Sexe, "Text") & ", " & _
ToSQL(CP, "Text") & ", " & _
ToSQL(Ville, "Text") & ", " & _
ToSQL(Rue, "Text") & ", " & _
ToSQL(LieuNaiss, "Text") & ", " & _
"'" & MembreDepuisSql & "', " & _
idCat & ", " & _
idCat2 & ")"
Response.Write(sqlInsertJoueur)
openrs rsInsertJoueur, sqlInsertJoueur
Set rsChkNewJ = Server.CreateObject("ADODB.Recordset")
sqlChkNewJ = "SELECT * FROM Joueurs_club WHERE Nom='" & Nom & "' AND Prenom='" & Prenom & "' AND idCat=" & idCat & " AND Mail1='" & Mail1 & "'"
openrs rsChkNewJ, sqlChkNewJ
While not rsChkNewJ.eof
idJ = rsChkNewJ("id")
rsChkNewJ.movenext
Wend
rsChkNewJ.close
set rsChkNewJ = nothing
ContenuMail = "" _
& "" _
& "" _
& "Volley Tihange-Huy - Profil personnel" _
& "" _
& "" _
& "Bonjour,
" _
& "Suite à votre insription sur le site du volley Tihange-Huy, voici le mail vous permttant de mettre à jour votre profil personnel.
" _
& "Merci de vérifier ces informations, de les corriger et/ou des les compléter si nécessaire.
" _
& "" _
& "Suivez ce lien pour retrouver votre profile
" _
& "A bientôt sur le terrain, au bord ou à la buvette," _
& "Le comité.
" _
& "" _
& "Suivez ce lien pour vous désinscrire de la mailing list" _
& "" _
& ""
If Mail1 <> "" then
mailsendto = Mail1
If Mail2 <> "" then
mailsendcc = Mail2
End if
mailsubject = "Volley Tihange-Huy - Profil personnel"
SendCDOEmail "mail.eurobrevets.be","tihangehuy@eurobrevets.be","eB.1963", mailsubject, ContenuMail,"tihangehuy@eurobrevets.be",mailsendto,mailsendcc, 1, "HTML"
end if
%>
ID Joueur = <%=idJ%>
ContenuMail = <%=ContenuMail%>
Succeed !!!
<%
If idCatRedirect = 0 then
Response.Redirect("joueursclub.asp")
else
Response.Redirect("joueurscat.asp?idCat=" & idCatRedirect)
end if
%>
|
