[AJAX] Envoie de parametre avec asp

Bonjour à tous,
je suis un débutant en ajax et j'essaye d'envoyer une variable avec httpRequest.send mais je ne reçoit rien dans mon fichier asp ...
voici mon code :
-------------- Le fichier d'appel -----------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
<html>
<head>
<title>AJAX</title>
 
<script type="text/javascript">
function writediv(texte)
{
document.getElementById('contenu').innerHTML = texte;
}
 
function verif()
{
var search = document.formu.search.value;
texte = file('/test.asp',search);
writediv(texte);
}
 
 
function file(fichier,valeur)
{
	var httpRequest = false;
 
			if (window.XMLHttpRequest) { // Mozilla, Safari,...
				httpRequest = new XMLHttpRequest();
				if (httpRequest.overrideMimeType) {
					httpRequest.overrideMimeType('text/xml');
					// Voir la note ci-dessous à propos de cette ligne
				}
			} else if (window.ActiveXObject) { // IE
				try {
					httpRequest = new ActiveXObject("Msxml2.XMLHTTP");
				} catch (e) {
					try {
						httpRequest = new ActiveXObject("Microsoft.XMLHTTP");
					} catch (e) {}
				}
			}
 
			if (!httpRequest) {
				alert('Abandon :( Impossible de créer une instance XMLHTTP');
				return false;
			}
	httpRequest.open("POST", fichier, false);
	httpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); 
	httpRequest.send("&search="+escape(valeur));
	if(httpRequest.readyState == 4) return(httpRequest.responseText);
		else return(false);
}
</script>
</head>
<body>
 
<form name="formu" action="">
<input type="text" name="search" />
<input type="button" name="b1" value="ok" onClick="verif()" />
<div id="contenu" style="background-color: #00FF00"></div>
</form>
 
</body>
</html>

------------- Le fichier asp ---------------------------

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<!--#include file="includes/odbc.inc"-->
<!--#include file="includes/fonction.inc"-->
<%
set Conn = server.createobject("ADODB.Connection")
Conn.open ODBC_SITE
set Rs = server.createobject("ADODB.Recordset")
Dim search
search = Request("search")
response.write "--" & search & "--</ br>"
 
if search = "" then 
	search = "rien"
	end if
response.write "((" & search & "))</ br>"
sql = "select * from appareil where Champ2 =" & setdatatype(search,advarchar)
Rs.open sql, Conn, 3
while not Rs.eof
	response.write Rs("Champ1") & "-" & Rs("Champ3") & "</ br>"
Rs.movenext
wend
 
Rs.close
Conn.close
set Rs = nothing
set Conn = nothing
%>