If ValidasiInput() Then
Exit Sub
End If
Try
Dim lsEncopass, strnama As String
lsEncopass = MUtility.getMd5Hash(Trim(txtPass.Text).ToUpper)
strnama = txtUserName.Text.Trim.ToUpper
Dim lcmd As New SqlCommand
Dim lDataReader As SqlDataReader
lcmd.CommandText = "CekLogin"
lcmd.CommandType = Data.CommandType.StoredProcedure
lcmd.Connection = koneksiSql.sqlcon
lcmd.Parameters.AddWithValue("kduser", strnama)
lcmd.Parameters.AddWithValue("password", lsEncopass)
koneksiSql.sqlcon.Open()
lDataReader = lcmd.ExecuteReader()
lDataReader.Read()
If lDataReader.HasRows Then
Session("username") = CStr(lDataReader("UserID")).ToUpper
Session("passw") = lDataReader("UserPassword")
Session("KdKonsumen") = CStr(lDataReader("KdKonsumen"))
Session("TipeLogin") = CStr(lDataReader("TipeLogin"))
koneksiSql.sqlcon.Close()
koneksiSql.sqlcon.Dispose()
lcmd.Dispose()
lDataReader.Close()
If Session("TipeLogin").ToString = "E" Then
Response.Redirect("Home.aspx", False)
Else
Dim s As String = Server.UrlEncode(Session("username"))
Response.Redirect("../DataWarehouse/Default.aspx?usr=" & s, False)
End If
Else
labelError.Text = "gagal login"
End If
koneksiSql.sqlcon.Close()
koneksiSql.sqlcon.Dispose()
lcmd.Dispose()
lDataReader.Close()
Catch ex As Exception
MUtility.Pesan(Me.Page, ex.Message)
koneksiSql.sqlcon.Close()
koneksiSql.sqlcon.Dispose()
Exit Sub
End Try