Imports System.Data.Oledb
Public Class home
    Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents cmdlogin As System.Web.UI.WebControls.Button
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents txtuname As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents txtpword As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents Form1 As System.Web.UI.HtmlControls.HtmlForm
    Protected WithEvents lnkaddpatient As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnkeditpatient As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnkadddoc As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnkeditdoc As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnklogout As System.Web.UI.WebControls.LinkButton
    Protected WithEvents lnkdocreq As System.Web.UI.WebControls.LinkButton

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub lnkaddpatient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkaddpatient.Click
        Server.Transfer("admin.aspx")
    End Sub

    Private Sub lnkeditpatient_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkeditpatient.Click
        Server.Transfer("editpatient.aspx")
    End Sub

    Private Sub lnklogout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Session.Abandon()
        Server.Transfer("default.aspx")
    End Sub

    Private Sub lnkadddoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkadddoc.Click
        Server.Transfer("adddoc.aspx")
    End Sub

    Private Sub lnkeditdoc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkeditdoc.Click
        Server.Transfer("editdoc.aspx")
    End Sub

    Private Sub lnkdocreq_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lnkdocreq.Click
        Server.Transfer("doc_reqlist.aspx")
    End Sub
End Class