[Resolvido] Variavel sessao timeout

Boa tarde se alguem me puder ajudar ficaria agradecido eu tenho uma pagina default onde entro num site via login e pass que o faço do seguinte modo:

Protected Sub ButtonEntrarBD_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ButtonEntrarBD.Click
Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("SLConnectionString").ToString)
Dim lgn = TextBoxLog.Text
Dim pwd = TextBoxPass.Text
Dim tipoutilizador As Integer
Dim nomeutilizador As String

 Dim cmLoginExiste As SqlDataAdapter = New SqlDataAdapter("select * from UTILIZADORESAPLICACAO where LOGIN ='" & lgn & "' ", conn)
 Dim cmPasswordExiste As SqlDataAdapter = New SqlDataAdapter("select NOME, ID_TIPOUTILIZADOR from UTILIZADORESAPLICACAO where LOGIN='" & lgn & "' And PASS='" & pwd & "'", conn)

 conn.Open()

 Dim dsLoginExiste As DataSet = New DataSet
 Dim dsPasswordExiste As DataSet = New DataSet

 cmLoginExiste.Fill(dsLoginExiste, "UTILIZADORESAPLICACAO")
 cmPasswordExiste.Fill(dsPasswordExiste, "UTILIZADORESAPLICACAO")

 Dim ctrLogin As Integer = dsLoginExiste.Tables("UTILIZADORESAPLICACAO").Rows.Count
 Dim ctrPassword As Integer = dsPasswordExiste.Tables("UTILIZADORESAPLICACAO").Rows.Count

 If (ctrLogin <> 0) And (ctrPassword <> 0) Then

 tipoutilizador = dsPasswordExiste.Tables("UTILIZADORESAPLICACAO").Rows(0)("ID_TIPOUTILIZADOR")
 nomeutilizador = dsPasswordExiste.Tables("UTILIZADORESAPLICACAO").Rows(0)("NOME")
 Response.Write(tipoutilizador.ToString)

 End If

 conn.Close()

 If TextBoxLog.Text = "" Or TextBoxPass.Text = "" Then
 Message.InnerHtml = "<font size=1><b>Preencha todos os campos</b></font>"

 Message.Style("color") = "red"
 Else
 If ctrLogin = 0 Then
 Message.InnerHtml = "<font size=1 color=red><b>Login não existe</b></font>"

 Else
 If ctrPassword = 0 Then
 'Session("Login") = lgn
 Message.InnerHtml = "<font size=1 color=red><b>Password está errada Sr! : " & lgn & "</b></font>"

 Else
 Message.InnerHtml = "<font size=1 color=red><b>Password correcta!</b></font>"

 [b]Session("Login") = lgn[/b]

 ' Session("NomeUtilizador") = nomeutilizador

 Response.Redirect("default2.aspx")

 End If

 End If
 End If
	End Sub

o que eu pretendia era agora em todas as outras paginas que tenho fazer o teste se a sessao ainda esta activa e caso ela nao estivesse activa fazer um redirect para o default e logar-me outra vez, fico agradecido a quem me puder ajudar, desde ja o meu obrigado