La copie de code est la suivante:
<%
Response.Write "Mot-clé :(" & Trim (request ("q")) & ")" & "<hr>"
x = remplacer (trim (demande ("q")), "", ",")
'x = tableau (x)
T = Split (x, ",")
Sql = "select * fromTbwherekis <> 0"
fori = 0Toubound (t)
ift (i) <> "" alors
Réponse.Write "Things" & i + 1 & ":" & t (i) & "<hr>"
SQL = SQL & "Ortitlelike '" & t (i) & "'" 'Ceci est la clé
endire
suivant
Réponse.writesql
%>
<FormAction = "">
<ballage>
<tr>
<td> <inputName = "q" onkeyup = "this.value = this.value.replace (// s + / g, '')"> <inputType = "soumi" value = "check
Enquête "> </td>
</tr>
</ table>
</ form>