Sessions problem
Hej,Jeg har et problem med sessions. Jeg har ikke noget problem at skrive en værdi til en session...
<%
Department = Request.QueryString("Department")
Session("Department") = Request.QueryString("Department")
%>
...problemet er at den "glemmer" informationen
Hvis jeg gør følgende, så glemmes det ikke
<%
Department = Request.QueryString("Department")
Session("Department") = "Dette er en test"
%>
Det ska lige siges at den ikke "glemmer" det efter en <Form> (tror jeg) og den gør det kun når jeg henter en værdi fra Request.QueryString og ikke når jeg direkt giver den en værdi.
Her er hele koden. Det jeg vil er, at kunne genbruge en masse sessions over hele sitet. Hvordan gør jeg det?
HELE KODEN!
----
<div class="RTop">
<!-- DEFINERE VARIABEL/SESSIONS -->
<%
Department = Request.QueryString("Department")
Session("Department") = "Dette er en test"
%>
<%If Request.QueryString("Department") = "" Then%>
<!-- #Include File="ConnectionOpen.asp" -->
<%SQL = "SELECT * FROM tblText"
rs.Open SQL, Connect, 1%>
<p>
<font class="Text16G"><b><%=rs("frmTopWelcomeHdr")%></b></font>
<br><br>
<font class="Text12G"><%=rs("frmTopWelcome")%>
<br><br>
</font>
<%ElseIf Request.QueryString("Department") = Department Then%>
<%=Session("Department")%>
Welcome <%Response.Write(Session("Department"))%>
<p>
<font class="Text16G"><b><%=(Department)%></b></font>
<br><br>
<font class="Text12G">Test!
<br><br>
</font>
<!-- #Include File="ConnectionOpen.asp" -->
<%SQL = "SELECT * FROM tblKPIType WHERE depDepartment = '"&Request.QueryString("Department")&"'"
rs.Open SQL, Connect, 1%>
<form method="post" action="index.asp?KPI=Add">
<table border="0" width="525" class="Text12G" cellspacing="2" cellspacing="0">
<tr>
<td width="400" valign="top" class="BGB"><b>Dato</b></td>
<td width="125" valign="top" class="BGB"><input type="text" name="Date" size="10" value="<%=(date)%>"><input type="text" name="kpiDateId" size="10" value="<%=(now)%>"></td>
</tr>
<tr>
<td width="400" valign="top"><%=Session("Department")%></td>
<td width="125" valign="top"></td>
</tr>
<%
Do While Not Rs.EOF
%>
<tr>
<td width="400" valign="top" class="BGB"><%=rs("kptNameShow")%></td>
<td width="125" valign="top" class="BGB"><input type="text" name="kptName" size="10" value="<%=rs("kptName")%>"></td>
</tr>
<%
Rs.MoveNext
Loop
%>
<tr>
<td width="400" valign="top" class="BGB"></td>
<td width="125" valign="top" class="BGB"><input type="submit" value="Gem"><input type="reset" value="Afbryd">
<input type="hidden" name="Department" size="10" value="<%=(Department)%>"
</td>
</tr>
</table>
</form>
</p>
<%End if%>
<%If Request.QueryString("KPI") = "Add" Then%>
<!-- #Include File="ConnectionOpen.asp" -->
<%
SQL = "INSERT INTO tblKPI (depDepartment, kptName, kpiDateId) values('" & Request.Form("Department") & "', '" & Request.Form("kptName") & "', '" & Request.Form("kpiDateId") & "')"
Rs.Open SQL, Connect
%>
<form method="post" action="index.asp">
<table border="0" width="250" class="Box100 Text12G" cellspacing="2" cellspacing="0">
<tr>
<td width="230" valign="top" colspan="2" class="BGB"><b>KPI</b></td>
</tr>
<tr>
<td width="250" valign="top" colspan="2"><br><%Response.Write(Session("Department"))%><br><br></td>
</tr>
<tr>
<td width="100" valign="top"><input type="Submit" value="Luk vindue"></td>
<td width="150" valign="bottom" align="right"><font class="Text8G">Unikt ID: <%=Request.Form("kpiDateId")%></font></td>
</tr>
</table>
</form>
<%end if%>
</div>