Le texte contient des coordonnées personnelles.
Function ExtractResponseContent(json) Dim startPos, endPos, contenu startPos = InStr(json, """content"":""") If startPos > 0 Then startPos = startPos + Len("""content"":""") endPos = InStr(startPos, json, """") If endPos > startPos Then contenu = Mid(json, startPos, endPos - startPos) contenu = Replace(contenu, "\""", """") ExtractResponseContent = contenu Else ExtractResponseContent = "" End If Else ExtractResponseContent = "" End If End Function Function ParametreExistantPlusieursFois(nomParametre) Dim valeurs Set valeurs = Request.QueryString(nomParametre) If IsArray(valeurs) Then If UBound(valeurs) > 0 Then ParametreExistantPlusieursFois = True Else ParametreExistantPlusieursFois = False End If Else ParametreExistantPlusieursFois = False End If End Function Function HTMLDecode44(str) ' Accents français str = Replace(str, "é", "é") str = Replace(str, "É", "É") str = Replace(str, "è", "è") str = Replace(str, "È", "È") str = Replace(str, "ê", "ê") str = Replace(str, "Ê", "Ê") str = Replace(str, "à", "à") str = Replace(str, "À", "À") str = Replace(str, "ç", "ç") str = Replace(str, "Ç", "Ç") ' Autres accents str = Replace(str, "ï", "ï") str = Replace(str, "Ï", "Ï") str = Replace(str, "ô", "ô") str = Replace(str, "Ô", "Ô") str = Replace(str, "ü", "ü") str = Replace(str, "Ü", "Ü") ' Symboles spéciaux str = Replace(str, "&", "&") str = Replace(str, "'", "'") str = Replace(str, "<", "<") str = Replace(str, ">", ">") str = Replace(str, " ", " ") ' Autres entités communes str = Replace(str, "€", "€") str = Replace(str, "£", "£") str = Replace(str, "¥", "¥") str = Replace(str, "©", "©") str = Replace(str, "®", "®") str = Replace(str, "™", "™") str = Replace(str, "°", "°") str = Replace(str, "±", "±") ' Conversion des entités numériques (&#xxx;) Set regex = New RegExp regex.Pattern = "&#(\d+);" regex.Global = True Set matches = regex.Execute(str) For Each match in matches code = CInt(match.Submatches(0)) str = Replace(str, match.Value, ChrW(code)) Next Set regex = Nothing HTMLDecode44 = str End Function function estunmoteur() estunmoteur = false end function Function FormaterRecherche(chaineRecherche) if not IsEmpty(chaineRecherche) then chaineRecherche = replace(chaineRecherche,"'"," ") end if ' Mots de liaison français et anglais motsLiaison = Array("et", "de", "la", "le", "les", "pour", "avec", "des", "du", "un", "une", "dans", "en","d","l", "par", "sur", _ "the", "and", "of", "to", "in", "on", "at", "by", "for", "a", "an", "with", "from", "as", "that", "which") ' Initialiser le résultat resultat = "" ' Découper la chaîne en mots mots = Split(chaineRecherche, " ") ' Parcourir chaque mot For i = 0 To UBound(mots) mot = Trim(LCase(mots(i))) ' Vérifier si le mot n'est pas dans la liste des mots de liaison If Not IsInArray(mot, motsLiaison) Then ' Ajouter le mot formaté (+mot*) If Len(mot) > 0 Then resultat = resultat & "+" & mot & "* " End If End If Next ' Retourner la chaîne formatée en supprimant l'espace finale FormaterRecherche = Trim(resultat) End Function ' Fonction utilitaire pour vérifier la présence d'un mot dans le tableau Function IsInArray(val, arr) IsInArray = False For j = 0 To UBound(arr) If arr(j) = val Then IsInArray = True Exit Function End If Next End Function Function GetReasons(lg) ' Créer un dictionnaire pour stocker les raisons Set reasons = Server.CreateObject("Scripting.Dictionary") ' Ajouter des raisons à la collection avec une clé unique reasons.Add 1, trsgoogle(lg,"Numéro de téléphone incorrect") reasons.Add 2, trsgoogle(lg,"Email non valide") reasons.Add 3, trsgoogle(lg,"Impossible à identifier ou contacter") reasons.Add 4, trsgoogle(lg,"Inadapté") reasons.Add 5, trsgoogle(lg,"Spammeur") reasons.Add 6, trsgoogle(lg,"Autre") ' Retourner le dictionnaire Set GetReasons = reasons End Function ' Fonction 2 : Générer les options pour le