<%erreur=0 '---------- CORRIGE LA DATE DU JOUR ---------- Lheure = Hour(Time) + Session("Decalage") LesMinutes = Minute(Time) LesSecondes = Second(Time) if Lheure >23 then Lheure = Lheure - 24 DateAJour = Date + 1 else DateAJour = Date end if Lheure = Lheure & ":" & LesMinutes & ":" & LesSecondes Lheure = TimeValue(Lheure) Session("Statut") = "Visiteur" Session("BaseDiscussion") ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("base\Discussion.mdb") & ";" 'Session("BaseDiscussion") ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\html\users\rencontreweb\database\Affinites.mdb;" 'Session("BaseDiscussion") = "Data Source=//nawinfs04/home/users/web/b2103/rh.utlibet/database/Discussion.mdb;Provider=Microsoft.Jet.OLEDB.4.0;" Lenom = Request("Nom") Leprenom = Request("Prenom") Lemail = Request("Mail") Lesexe = Request("Sexe") Letexte = Request("Message") If Request("Action") = "Envoyer" then 'CONTROLE DE LA SAISIE If Session("Acces") = "Service" AND Ucase(Request("Nom"))= "NADINA" then sql = "INSERT INTO discussion (Sexe,Nom,Prenom,Mail,Message,LaDate,Controle)" sql = sql & "Values ('" & "nadina, " & "','" sql = sql & "Service " & "','" sql = sql & "Clients" & "','" sql = sql & "nadina@rencontreweb.com & "','" sql = sql & RemplaceStrof (Request("Message")) & "'," sql = sql & "'" & DateAJour & "','0')" else If Request("Message") = "" then erreur = 4 If Request("Prenom") = "" then erreur = 3 If Request("Nom") = "" then erreur = 2 If Request("sexe") = "" then erreur = 1 If Ucase(Request("Nom")) = "nadina" OR Ucase(Request("Prenom")) = "nadina" AND Request("Mail") = "nadina@rencontreweb.com" then erreur = 5 If InStr(1,Request("Mail"),"@rencontreweb.com",1) > 0 then erreur = 5 If InStr(1,Request("Mail"),"@rencontreweb.com",1) > 0 then erreur = 5 If InStr(1,Request("Mail"),"@",1) = 0 then erreur = 6 '--------------- CONTROLE DE L ADRESSE E-MAIL ---------------- Email = Request("Mail") Email = LCase(Email) Temp = Split(Email,"@",2,1) If UBound(Temp) < 1 Then erreur = 6 End If If UBound(Temp) >0 then Temp2 = Split(Temp(1),".",-1,1) If UBound(Temp2) < 1 Then erreur = 6 End If End if end if If erreur = 0 then '---------- DETECTE ET SUPPRIME UN ENREGISTREMENT IDENTIQUE ---------- rqt = "DELETE FROM discussion WHERE Mail = '" & Request("Mail") & "' AND Message like '" & RemplaceStrof (Request("Message")) & "'" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dsnRencontreweb Conn.Execute(rqt) Conn.close '---------- ENREGISTRE LE NOUVEAU MESSAGE DANS LA BASE DE DONNEES ---------- sql = "INSERT INTO discussion (Sexe,Nom,Prenom,Mail,Message,LaDate,Controle)" sql = sql & "Values ('" & Ucase(Request("Sexe")) & "','" sql = sql & RemplaceStrof (Request("Nom")) & "','" sql = sql & RemplaceStrof (Request("Prenom")) & "','" sql = sql & RemplaceStrof (Request("Mail")) & "','" sql = sql & RemplaceStrof (Request("Message")) & "'," sql = sql & "'" & DateAJour & "','0')" Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open dsnRencontreweb Conn.Execute(sql) Conn.close Lenom = "" Leprenom = "" Lemail = "" Lesexe = "" Letexte = "" end if end if rqt = "SELECT * FROM discussion ORDER BY Num DESC" set Conn = Server.CreateObject("ADODB.Connection") set Dialogue = Server.CreateObject("ADODB.recordset") Conn.Open dsnRencontreweb set Dialogue = Conn.Execute(rqt) If Dialogue.eof then msg = 1 %> <% FUNCTION RemplaceStrof (s) pos = InStr(s, "'") While pos > 0 s = Mid(s, 1, pos - 1) & "µ" & Mid(s, pos + 1) pos = InStr(s, "'") Wend RemplaceStrof = s END FUNCTION FUNCTION ReplaceRetour (s) pos = InStr(s, chr(13)) While pos > 0 s = Mid(s, 1, pos - 1) & "
" & Mid(s, pos + 1) pos = InStr(s, chr(13)) Wend ReplaceRetour = s END FUNCTION FUNCTION ReplaceMu (s) pos = InStr(s, "µ") While pos > 0 s = Mid(s, 1, pos - 1) & "'" & Mid(s, pos + 1) pos = InStr(s, "µ") Wend ReplaceMu = s END FUNCTION %> Forum de discussion libre : échange d'idées, suggestions, astuces...donnez votre avis
             Librexpression
 Prendre la parole pour la partager            
                                   Echange d'idées, suggestions, astuces...donnez votre avis.

Attention: Cette rubrique ouverte à la communication et à l'échange d'idées d'intérêt général est à votre disposition pour recevoir des avis et provoquer le dialogue et l'échange. Nous vous invitons à y mettre votre grain de sel sur tous les sujets qui vous intéressent, dans le respect et la bonne tenue qui conviennent.    La modératrice

                                                                                                 Corriger 
_______________________________________________________________
                           accueil
<%if msg=1 then%>

Le Forum "Libre expression" est vide.<%else%><%do while not Dialogue.eof%><%Compt=Compt+1%><%LeMessage = Dialogue("Message")%>

<%If Dialogue("Mail") <> "nadina@rencontreweb.com" then %> <%if Dialogue("Sexe") = "H" then%> <%P = Dialogue("Prenom")%>

Monsieur <%else%> Madame <%end if%> <%=ReplaceMu (Dialogue("Prenom")) & " " & Ucase(ReplaceMu (Dialogue("Nom"))) & " "%> <%if toto = 99 then%> "><%=ReplaceMu (Dialogue("Mail"))%> <%end if%> nous écrit :<%else%> nadina, Service Clients nadina@rencontreweb.com vous répond :<%end if%>

Donnez votre avis
Pour écrire

<%=ReplaceMu(ReplaceRetour(LeMessage))%>

<%Dialogue.movenext loop dialogue.close conn.close set dialogue = nothing set conn = nothing %>

<%end if%>

 
Monsieur checked <%end if%>> Madame checked <%end if%>>
Nom Prénom

E-mail

Votre message
Les propos tenus dans ce forum n'engagent que la responsabilité 
de leurs auteurs.
<% 'Conn.close %>
©3Mi WEB 2000 - <%=year(date)%>