Afin d'avoir un code propre,j'essai d'utiliser un max de fichiers d'inclusion. Mais ici ca marche pas trop (j'suis obliger d'appuyer sur F5 (actualiser)de mon navigateur pour que ca marche.
Voici ce qui marche (sans les fichiers inclusions donc):
<%@ Language=VBScript %>
<%'Response.Buffer=false%>(grace a ca,en utilisant response.flush a l'endroi voulu dans le code, c'est sensé vider le contenu de la"mémoire"(buffer) du serveur en destination du client.C'est à dire actualiser les données qui sont encore présente sur le serveur qui n'ont pas été encore envoyés au client.
<%Option Explicit%> (pour éviter les dupplication de variables, permet d'éviter qq conneries)
<!--#include file ="./adovbs.inc" -->(fichier MS qui comprend ttes les ctes du style adopenKeyset etc..)
<!--#include file ="./identiferr.asp" -->(fichiers qui se lance si une erreur survient;utilise la procédure handle("j'ecris ce que je veux ici" ); il se lance avec l'objet asperror (Err.Number,Err.Description entre autre)
<%'HACK:
dim objRecordset,sqlnom
%>
<%'HACK: incorporer directement la requete sql ici%>
<%'recherche du nom du rayon connaissant session("ra_id" )
sqlnom="select ra_nom "_
&" from rayon "_
&" where ra_id=" & session("ra_id" ) & " "
%>
<%
on error resume next
objRecordset.Open sqlnom, objConnect
HandleError("objRecordset.Open sqlnom dans B_famille, objConnect" )
'on error resume next
'Session("ra_nom" )=empty
Session("ra_nom" )=objRecordset("ra_nom" )
'Response.Write (objRecordset("ra_nom" ))
'Response.Write("ra_nom= " & Session("ra_nom" ))
'HandleError("Session(ra_nom)=objRecordset(ra_nom)" )
%>
<%objRecordset.Close%>
<%'Response.Flush%>
<%'call affRayonChoisi ()%>(pas utilisé ici; en fait cette procedure fait la meme chose que la ligne en dessous)
<h2>Rayon :<%=Session("ra_nom" )%> -</h2>
</td>
OK voila si vous avez compris comment ca marche voici ce qui marche pas:
<%@ Language=VBScript %>
<%'Response.Buffer=false%>
<%Option Explicit%>
<!--#include file ="./adovbs.inc"
<!--#include file ="./identiferr.asp"
<!--#include file ="./ODBC.asp" -->(fichier qui contient toutes les requetes sqlnotament la fameuse sqlnom; je vous donne en délail sont contenu à la fin)
<%
on error resume next
objRecordset.Open sqlnom, objConnect
HandleError("objRecordset.Open sqlnom dans B_famille, objConnect" )
'on error resume next
'Session("ra_nom" )=empty
Session("ra_nom" )=objRecordset("ra_nom" )
'Response.Write (objRecordset("ra_nom" ))
'Response.Write("ra_nom= " & Session("ra_nom" ))
'HandleError("Session(ra_nom)=objRecordset(ra_nom)" )
%>
<%objRecordset.Close%>
<%'Response.Flush%>
<%'call affRayonChoisi ()%>(pas utilisé ici; en fait cette procedure fait la meme chose que la ligne en dessous)
<h2>Rayon :<%=Session("ra_nom" )%> -</h2>
</td>
et enfin voici le contenu de <!--#include file ="./ODBC.asp" -->:
<%Response.Buffer=true%>
<HTML>
<HEAD>
<title>toutes les requetes ASP</title>
</HEAD>
<%
dim sqlnom
%>
<%'recherche du nom du rayon connaissant session("ra_id" )
sqlnom="select ra_nom "_
&" from rayon "_
&" where ra_id=" & session("ra_id" ) & " "
%>
</HTML>
Ben voila si qq sait pourquoi ca marche pas bien(obliger d'appuyer sur F5) merci de me donner la solution!
FORUM HardWare.fr
