<%@ Master Language="VB" CodeFile="Customers.master.vb" Inherits="Customers_Customers" %> <%@ import Namespace="MySql.Data.MySqlClient"%> <%@import Namespace="System.Data.SqlClient" %> <% Dim navParent = "Customer/CustomsAviso.aspx" Dim var = "" Dim laenderkuerzel As String = "de" Dim imgPath As String = "" If HttpContext.Current.Request.Url.AbsoluteUri.ToString.Contains("admin.aspx") Then navParent = "admin.aspx" imgPath = "../" End If Dim curentMenuId As String = "1" If Not Request.QueryString("menuID") Is Nothing Then curentMenuId = Request.QueryString("menuID") End If If Not Request.QueryString("lan") Is Nothing Then laenderkuerzel = Request.QueryString("lan") End If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False Dim LT As New VERAG_PROG_ALLGEMEIN.cLanguageText_LIST("HOMEPAGE", "LOGIN", "STATUS", "") Dim V_LST As New VERAG_PROG_ALLGEMEIN.cVermerkeCodes_LIST Dim lan = "DE" 'Response.Write(DB2.qry_contentNew(menuID, lan)) Dim flagpath = "images/flags/flagge_DE_AT.gif" Dim lan3 As String = Request.QueryString("lan3") If laenderkuerzel = "DE" And lan3 = "0" Then flagpath = "images/flags/flagge_DE_AT.gif" ElseIf laenderkuerzel = "EN" And lan3 = "0" Then flagpath = "images/flags/flagge_GB.gif" ElseIf laenderkuerzel = "SRB" And lan3 = "0" Then flagpath = "images/flags/flagge_BIH.gif" ElseIf laenderkuerzel = "SRB" And lan3 = "1" Then flagpath = "images/flags/flagge_SM.gif" ElseIf laenderkuerzel = "BG" And lan3 = "0" Then flagpath = "images/flags/flagge_BG.gif" ElseIf laenderkuerzel = "TR" And lan3 = "0" Then flagpath = "images/flags/flagge_TR.gif" End If Dim Connectionstring As String = String.Empty Dim username As String = Me.Page.User.Identity.Name Dim lastloggedin As String = String.Empty Dim createdUserDate As String = String.Empty Dim emailuser As String = String.Empty Dim CustomerID As String = String.Empty If HttpContext.Current.Request.ServerVariables("SERVER_NAME") = "localhost" Then 'ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=sa;Pwd=BmWr501956" ConnectionString = "Server=DEVELOPER\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" Else Connectionstring = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Database=VERAG_HOMEPAGE;Uid=AppUser;Pwd=yp/THDd?xM+pZ$;" 'ConnectionString = "Server=db593295684.db.1and1.com;Database=db593295684;Uid=dbo593295684;Pwd=atilla#2;" End If ' Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString Using con As New SqlConnection(ConnectionString) ' Using cmd As New SqlCommand("Validate_User") Using cmd As New SqlCommand("SELECT Username,Email,LastLoginDate,CreatedDate,KundenNr FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username") ' cmd.CommandType = CommandType.StoredProcedure cmd.Parameters.AddWithValue("@Username", username) cmd.Connection = con con.Open() 'userId = Convert.ToInt32(cmd.ExecuteScalar()) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.Read() Then username = dr("Username").ToString() lastloggedin = dr("LastLoginDate").ToString() createdUserDate = dr("CreatedDate").ToString() emailuser = dr("Email").ToString() CustomerID = dr("KundenNr").ToString Session.Add("CustomerID", CustomerID) End If End Using con.Close() End Using %>