Änderungen requiredfieldvalidatr eingebaut
This commit is contained in:
@@ -20,13 +20,16 @@ Partial Class login_FLEX
|
||||
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 tb As TextBox = form1.FindControl("UserID")
|
||||
Dim reqfieldvaluserID As RequiredFieldValidator = Page.FindControl("CustomerIDrequired")
|
||||
reqfieldvaluserID.Validate()
|
||||
' 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 COUNT(*) FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Password=@Password")
|
||||
Using cmd As New SqlCommand("SELECT COUNT(*) FROM [VERAG_HOMEPAGE].[dbo].[Users] WHERE Username=@Username AND Password=@Password AND Kundennr=@UserID")
|
||||
' cmd.CommandType = CommandType.StoredProcedure
|
||||
cmd.Parameters.AddWithValue("@Username", Login1.UserName)
|
||||
cmd.Parameters.AddWithValue("UserID", tb.Text)
|
||||
cmd.Parameters.AddWithValue("@Password", Login1.Password)
|
||||
cmd.Connection = con
|
||||
con.Open()
|
||||
|
||||
Reference in New Issue
Block a user