Hi All,
I got Solution
Public Sub TheSessionId()
Dim ss As HttpSessionState = HttpContext.Current.Session
If Not HttpContext.Current.Session("id") Is Nothing Then
HttpContext.Current.Response.Redirect("InvalidAccess.aspx")
Else
HttpContext.Current.Session("id") = ss.SessionID
End If
End Sub