Imports System.IO
Public Class refresh
Inherits System.Web.UI.Page
Public str As String
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ds As New DataSet
Dim fs As FileStream
Dim reader As StreamReader
Dim write As StreamWriter
fs = New FileStream(Server.MapPath("../Web.config"), FileMode.Open, FileAccess.Read)
reader = New StreamReader(fs)
ds.ReadXml(reader)
fs.Close()
str = CStr(ds.Tables("sessionState").Rows(0)(4) * 60 - 15) & ";URL=refresh.aspx"
End Sub