Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Session("user") <> Nothing Then
If Not Page.IsPostBack Then
Dim OrderPercent As New Percent
OrderPercentDropDownList.DataSource = OrderPercent.GetPercent
OrderPercentDropDownList.DataBind()
Dim DBS As New DataBaseAccess
DBS.SetConn()
Dim Con As OracleConnection
Con = DBS.GetConn
Dim empid As String
empid = Session("empid")
NameAdapter.SelectCommand.Connection = Con
NameAdapter.SelectCommand.CommandText = NameAdapter.SelectCommand.CommandText & " where " & """Employ_id2""" & "='" & empid & "'"
Dim Ds As New DataSet
NameAdapter.Fill(Ds, "Name")
Dim FalseCondition As String
FalseCondition = " and 1 < 0 "
SetPurchaseView(FalseCondition)
End If
Else
Server.Transfer("/crm/errormessage/accesserror.aspx")
End If