Hi
Keb een asp pagina die een record uit een tabel weergeeft. Maar elke keer als ik een andere waarde wil invullen cached iis (of die asp pagina) de gegevens van de eerste zoekopdracht en geeft die weer.
Alleen na een IIS herstart kan ik weer nieuwe gegevens krijgen.
Mijn code (abstract):
<HTML>
<HEAD>
</HEAD>
<BODY background="pics/backhome.gif">
<%
Response.Expires = 0
%>
<%
If IsObject(Session("Access_conn")) Then
Set conn = Session("Access_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Access","",""
Set Session("Access_conn") = conn
End If
%>
<%
If IsObject(Session("test_rs")) Then
Set rs = Session("test_rs")
Else
Dim errornumber
errornumber= Request.Querystring("errornumber")
Dim description
description= Request.Querystring("ShortDescription")
Dim sql
sql = "SELECT * FROM [test] WHERE VtdMessageID=" & errornumber
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("test_rs") = rs
End If
%>
Bla bla bla
<%
rs.MoveNext
loop%>
<%
Response.Expires = 1
Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
</BODY>
</HTML>
iemand een oplossing ??
Keb een asp pagina die een record uit een tabel weergeeft. Maar elke keer als ik een andere waarde wil invullen cached iis (of die asp pagina) de gegevens van de eerste zoekopdracht en geeft die weer.
Alleen na een IIS herstart kan ik weer nieuwe gegevens krijgen.
Mijn code (abstract):
<HTML>
<HEAD>
</HEAD>
<BODY background="pics/backhome.gif">
<%
Response.Expires = 0
%>
<%
If IsObject(Session("Access_conn")) Then
Set conn = Session("Access_conn")
Else
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Access","",""
Set Session("Access_conn") = conn
End If
%>
<%
If IsObject(Session("test_rs")) Then
Set rs = Session("test_rs")
Else
Dim errornumber
errornumber= Request.Querystring("errornumber")
Dim description
description= Request.Querystring("ShortDescription")
Dim sql
sql = "SELECT * FROM [test] WHERE VtdMessageID=" & errornumber
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3
If rs.eof Then
rs.AddNew
End If
Set Session("test_rs") = rs
End If
%>
Bla bla bla
<%
rs.MoveNext
loop%>
<%
Response.Expires = 1
Response.Expiresabsolute = Now() - 2
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
</BODY>
</HTML>
iemand een oplossing ??