salut,
Je ne comprends pas tres bien,
Toutes les pages s'affichent correctement alors qu'elles sont codées en iso-8859-1.
J'ai juste un problème lors de l'appel AJAX dont le code est le suivant :
var xhr = null;
function getXhr()
{
if(window.XMLHttpRequest) // Firefox et autres
xhr = new XMLHttpRequest();
else if(window.ActiveXObject){ // Internet Explorer
try {
xhr = new ActiveXObject("Msxml2.XMLHTTP");
} catch (e) {
xhr = new ActiveXObject("Microsoft.XMLHTTP");
}
}
else { // XMLHttpRequest non supporté par le navigateur
alert("Votre navigateur ne supporte pas les objets XMLHTTPRequest...");
xhr = false;
}
}
function rappatrie_messages()
{
getXhr()
// On défini ce qu'on va faire quand on aura la réponse
xhr.onreadystatechange = function(){
// On ne fait quelque chose que si on a tout reçu et que le serveur est ok
if (xhr.readyState==1)
{document.getElementById("Layer1").style.display='';
document.getElementById("bouton_recherche").disabled='disabled';}
if (xhr.readyState==2)
{document.getElementById("Layer1").style.display='';}
if (xhr.readyState==3)
{document.getElementById("Layer1").style.display='';}
if(xhr.readyState == 4 && xhr.status == 200){
document.getElementById("Layer1").style.display='none';
document.getElementById("ligne_reponses").innerHTML=xhr.responseText;
document.getElementById("bouton_recherche").disabled='';
}
}
xhr.open("POST","maincourante_ajax.asp",true);
xhr.setRequestHeader("Content-Type", "application/x-www-form-urlencoded; Charset=iso-8859-1");
var data="ref=&debut="+document.getElementById("debut").value+"&fin="+document.getElementById("fin").value+"&mot_cle="+document.getElementById("mot_cle").value+"&table=maincourante_maintenance_tbl";
xhr.send(data);
paramatre=null;
}
La page que j'appelle a le code suivant :
<!-- #include file="connexion.txt" -->
<!-- #include file="fonctions.txt" -->
<!-- #include virtual="/adovbs.inc" -->
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<%
response.write("<table width='100%' border='0' align='center' cellpadding='1' cellspacing='1'>")
If Isdate(request.form("debut"))=false or Isdate(request.form("fin"))=False Then
response.write("<tr><td align='center' bgcolor='#FFCC66'><strong>Vérifiez la cohérence des dates de recherche</strong></td></tr>")
else
'création de la requête
sql_main="SELECT * FROM "&request.form("table")&", personnel_tbl, service_tbl WHERE id_auteur=[id personnel] AND [is service]=[service] AND reponse=False"
If request.Form("mot_cle") <> "" Then
mot_cle=replace(request.Form("mot_cle")," ","%")
sql_main=sql_main & " AND message LIKE '%" & mot_cle & "%' "
End if
If request.Form("debut")<>"" and request.Form("fin")<>"" then
sql_main = sql_main & " AND Date Between #" & conv_date(request.Form("debut")) & "# AND #" & Conv_Date(request.Form("fin")) & "# "
End if
'Fin de la requête.
sql_main=sql_main & " Order By VIM, Date DESC"
SET enr_main = connexion.Execute(sql_main)
If enr_main.eof Then
Response.write("<tr><td align='center' bgcolor='#FFCC66'><strong>Aucune entrée recensée pour les critères renseignés</strong></td></tr>")
else
i=0
Response.write("<div align='center'><strong>xx entrées recensées</strong></div>")
Do while enr_main.EOF=false
Response.write("<tr>")
Response.write("<td bgcolor='#FFCC66'>")
Response.write("<table width='100%' border='0' align='left' cellpadding='2' cellspacing='0'>")
Response.write("<tr>")
Response.write("<td width='18%' valign='top'>")
response.write("<div align='left'><strong>"&enr_main("date")&"</strong></div>")
response.write("<div align='left'><strong>"&replace(replace(enr_main("NOM"),"é","é"),"è","é")&", "&replace(replace(enr_main("Prénom"),"é","é"),"è","é")&"</strong></div>")
If enr_main("VIM")=true Then
response.write("<div align='left'><img src='images/i.gif' height='25' width='25'></div>")
End If
Response.write("</td>")
Response.write("<td width='82%' valign='top'><div align='left'>")
Response.write("<table width='100%' border='0' cellspacing='0' cellpadding='1'>")
Response.write("<tr>")
Response.write("<td>")
response.write("<div align='left'>")
If enr_main("service")=4 then
Response.write("<font color='#FF0000'>")
End if
Response.write(replace(replace(replace(enr_main("message"),chr(13),"<br>"),"é", "é"),"è","è"))
If enr_main("service")=4 then
Response.write("</font>")
End if
Response.write("</div>")
Response.write("</td>")
Response.write("</tr>")
sql_reponses="SELECT * FROM "&request.form("table")&", personnel_tbl, service_tbl WHERE id_auteur=[id personnel] AND [is service]=[service] AND reponse = TRUE AND id_message LIKE '" & enr_main("id") & "' order by date"
SET enr_reponses = connexion.Execute(sql_reponses)
If enr_reponses.EOF=False then
Do while not enr_reponses.EOF
Response.write("<tr bgcolor='#FFCC33'>")
Response.write("<td>")
response.write("<div align='left'>")
If enr_reponses("service")=4 then
Response.write("<font color='#FF0000'>")
End if
'teste si le groupe est autorisé à éditer le message
If enr_reponses("id_auteur")=session("id_personnel") or session("groupe")="Administratif" then
Response.write("Réponse de "&replace(replace(enr_reponses("NOM"),"é","é"),"è","é")&", "&replace(replace(enr_reponses("Prénom"),"é","é"),"è","é")&" : <br>")
If enr_reponses("id_auteur")=session("id_personnel") or session("groupe")="Administratif" then
Response.write("<a href='maincourante_antenne_modif.asp?id="&enr_reponses("id")&"'>")
End if
Response.write(replace(replace(replace(enr_reponses("message"),chr(13),"<br>"),"é", "é"),"è","è"))
If enr_reponses("id_auteur")=session("id_personnel") or session("groupe")="Administratif" then
Response.write("</a>")
End if
else
Response.write("Réponse de "&enr_reponses("NOM")&", "&enr_reponses("Prénom")&" : <br>")
Response.write(replace(replace(replace(enr_reponses("message"),chr(13),"<br>"),"é", "é"),"è","è"))
End if
If enr_reponses("service")=4 then
Response.write("</font>")
End if
Response.write("</div></td></tr>")
enr_reponses.Movenext
LOOP
else
'insérer ici le message si vous voulez faire apparaitre qu'il n'y a pas de réponse
End if
enr_reponses.close
Set enr_reponses=Nothing
Response.write("<tr><td>")
Response.write("<div align='right'><a href='maincourante_antenne_reponse.asp?id="&enr_main("id")&"'><img src='images/reply.gif' width='70' height='22' border='0'></a> <a href='maincourante_antenne_modif.asp?id="&enr_main("id")&"'>")
If enr_main("id_auteur")=session("id_personnel") or session("groupe")="Administratif" then
Response.write("<img src='images/modf.gif' width='70' height='22' border='0'></a> <a href='delete_message_mc.asp?id="&enr_main("id")&"&mc=informatique' onclick='if (window.confirm('Voulez vous effacer définitivement le message?')) {return true;} else {return false;}'><img src='images/del.gif' width='70' height='22' border='0'></A> ")
End If
Response.write("</div></td></tr></table>")
Response.write("</div></td></tr></table>")
Response.write("</td>")
Response.write("</tr>")
enr_main.MoveNext
i=i+1
LOOP
'Fin de la repetition
End If
SET enr_main = Nothing
'Fin de la requête.
End If
Response.write("</table>")
%>
Je ne trouve pas comment faire