problema al devolver acentos

[Gaby_Corr]

pues si lo tengo , solo que lo traigo des esta forma:

pagina usuario:

Código:

function handleHttpResponse() {
    if (http.readyState == 4) {
       if (http.status == 200) {
          if (http.responseText.indexOf('invalid') == -1) {
             // Armamos un array, usando la coma para separar elementos
             results = http.responseText.split("|");
			 alert(results);			 
			 document.getElementById("nombre").value = results[0];
             document.getElementById("usuario").value = results[1];
			 document.getElementById("password").value = results[2];
			 document.getElementById("grupo").value = results[3];
			 document.getElementById("direccion").value = results[4];
			 document.getElementById("telefono").value = results[5];
			 document.getElementById("celular").value = results[6];
			 document.getElementById("correo1").value = results[7];
			 document.getElementById("correo2").value = results[8];				 
			 strCondicion = results[9];	
			 alert('condicion: '+ strCondicion); 
			 //alert('Grupo: ' + results[3]); 			
			 activarboton(strCondicion);		 
             enProceso = false;			
          }
       }
    }
}


function Buscar(dato) {
    if (!enProceso && http) {
       var valor = escape(document.getElementById(dato).value);	  
       var url = "enviarUsuario.asp?datoabuscar="+ valor;
	   //alert('Este es el valor = ' + url)
       http.open("GET", url, true);
	   http.onreadystatechange = handleHttpResponse;
       enProceso = true;      
	   http.send(null);
	   // alert(url)
    }
}

pagina enviarUsuario.asp:

Código:

dim dato

dato = request.QueryString("datoabuscar")
if dato <> "" then
sSQL = "Select * FROM DS_Usuarios where usuarios_Nombre LIKE '"& dato &"'"
	Set rs = cnn.execute(sSQL) 
	
	if not rs.eof then
Nombre = rs("usuarios_nombre")
		Usuario = rs("usuarios_usuario")
		strPass = rs("usuarios_password")
		Grupo = rs("usuarios_numero_grupo")
		Direccion = rs("usuarios_direccion")
		Telefono = rs("usuarios_telefono")
		Celular = rs("usuarios_celular")
		Correo1 = rs("usuarios_correo1")
		Correo2 = rs("usuarios_correo2")		
		strCondicion=1
	    response.Write(Nombre &"|"& Usuario &"|"& strPass &"|"& Grupo &"|"& Direccion &"|"& Telefono &"|"& Celular &"|"& Correo1 &"|"& Correo2 &"|"& strCondicion)

al regresar los valores de Direccion desde la pagina enviar, y al ponerlos en los campos de mi formulario de la pagina usuario, es cuando no me respeta los acentos =S