<%
Function CheckCAPTCHA(valCAPTCHA)
SessionCAPTCHA = Trim(Session("CAPTCHA"))
Session("CAPTCHA") = vbNullString
if Len(SessionCAPTCHA) < 1 then
CheckCAPTCHA = False
exit function
end if
if CStr(SessionCAPTCHA) = CStr(valCAPTCHA) then
CheckCAPTCHA = True
else
CheckCAPTCHA = False
end if
End Function
%>
French-spirit.com - Forum de discussion
<%
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strCAPTCHA = Trim(Request.Form("strCAPTCHA"))
if CheckCAPTCHA(strCAPTCHA) = true then
if Request.Querystring("V") = "O" then
dim l_strSujet
dim l_strContenu
dim l_strFromPseudo
dim l_strFromEmail
l_strSujet = Request.Form("Sujet")
l_strFromPseudo = Request.Form("Pseudo")
l_strFromEmail = Request.Form("Email")
l_strContenu = Request.Form("Contenu")
Call AjouterDiscussion(l_strFromPseudo, l_strFromEmail, l_strSujet, l_strContenu)
Response.Write("
")
Response.Write("")
Response.Write("")
Response.Write(" Votre discussion a été postée
Le code n'est pas valide. Vueillez le saisir de nouveau. ")
Response.Write("Retour
")
end if
else
Response.Write("")
Response.Write("")
Response.Write(" Forum de discussion - ")
Response.Write("")
Response.Write("")
Response.Write("")
Response.Write("Création d'une nouvelle discussion")
Response.Write(" ")
Response.Write("
")
Response.Write("Vous avez choisi de créer une nouvelle discussion :
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("
")
Response.Write("")
Response.Write("")
end if
%>