I i'm PM ...
I can't give you all my code here's what I can show you... anything else
does not effect thi section anyway...
Take note that "Word" is replaced by "mot", "mot" is french for "Word".
The QueryString "block" is only a flag that I use to say either I change
my session variables or not. The only time I change the those variables
is when I submit my form. Don't worry!, there is a form in my page, a
textfield named mots and a button used to submit it.
--- Befrore HTML ---
If (Not(Request.Cookies("mot1") Is Nothing)) And (Session("mot1") Is
Nothing) Then Session("mot1") = Request.Cookies("mot1").value
If (Not(Request.Cookies("mot2") Is Nothing)) And (Session("mot2") Is
Nothing) Then Session("mot2") = Request.Cookies("mot2").value
If (Not(Request.Cookies("mot3") Is Nothing)) And (Session("mot3") Is
Nothing) Then Session("mot3") = Request.Cookies("mot3").value
If Request.QueryString("block") <> "1" Then
If Trim(Request.QueryString("mots")) <> "" Then
Session("mot3") = Session("mot2")
Session("mot2") = Session("mot1")
Session("mot1") = Request.QueryString("mots")
End If
End If
--- IN HTML ---
<TABLE width="200" cellspacing="0" cellpadding="0" border="0"
bgcolor="<%=CLR_PNL_ROW1%>" style="border-left:1px solid
<%=CLR_PNL_END%>;border-bottom:1px solid <%=CLR_PNL_END%>;padding:4px">
<TR>
<TD class="main_texte"><img src="image/icon/icn_recherche.gif"
align="absmiddle" border="0"> <b>Recherche</b></TD>
</TR>
<TR>
<TD> <asp:textbox class="inpbiblio" style="width:120px"
id="mots" RunAt="Server"/> <asp:button class="button"
ID="rechercher" Text="OK" OnClick="recherche_click"
RunAt="server"/></TD>
</TR>
<% If (Session("mot1") <> "") Then
Response.Cookies("mot1").value = Session("mot1")
Response.Cookies("mot1").expires = datetime.Now.AddDays(365)
%>
<TR>
<TD class="main_texte"> <%=IMG_PNL_FLECHE%> <A
href="index.aspx?page=8&module=1&block=1&mots=<%=S ession("mot1")%>"><%=S
ession("mot1")%></A></TD>
</TR>
<% End If %>
<% If (Session("mot2") <> "") Then
Response.Cookies("mot2").value = Session("mot2")
Response.Cookies("mot2").expires = datetime.Now.AddDays(365)
%>
<TR>
<TD class="main_texte"> <%=IMG_PNL_FLECHE%> <A
href="index.aspx?page=8&module=1&block=1&mots=<%=S ession("mot2")%>"><%=S
ession("mot2")%></A></TD>
</TR>
<% End If %>
<% If (Session("mot3") <> "") Then
Response.Cookies("mot3").value = Session("mot3")
Response.Cookies("mot3").expires = datetime.Now.AddDays(365)
%>
<TR>
<TD class="main_texte"> <%=IMG_PNL_FLECHE%> <A
href="index.aspx?page=8&module=1&block=1&mots=<%=S ession("mot3")%>"><%=S
ession("mot3")%></A></TD>
</TR>
<TR>
<TD><img src="image/trans.gif" width="20" height="1"></TD>
</TR>
<% End If %>
</TABLE>
************************************************
*** Sent via Developersdex
http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!