Torna al Thread

Private Sub ButtonAccedi2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim conn As New Odbc.OdbcConnection("Driver={SQL Server};" & _ "Integrated Security=false;" & _ "Server=IPdelSERVER;" & _ "Database=NOMEdb;" & _ "Uid=USER;" & _ "Pwd=PSW;") Dim cmd As New Odbc.OdbcCommand Dim reader As Odbc.OdbcDataReader Dim sql As String = "SELECT * FROM utenti " & _ "WHERE user_id = '" & Request.Form("TextBoxUtente") & "' AND " & _ "pass = '" & Request.Form("TextboxPass") & "'" Try conn.Open() cmd = New Odbc.OdbcCommand(sql, conn) reader = cmd.ExecuteReader() If reader.Read Then Session("login") = reader.Item("tipo") Try Response.Redirect("clienti.aspx", False) Catch ex As Exception Me.TextBoxMessage.Text = ex.ToString End Try Else Me.TextBoxMessage.Text = "Utente non riconosciuto" End If Catch ex As Exception Me.TextBoxMessage.Text = ex.ToString() Finally conn.Close() End Try End Sub
Copyright © dotNetHell.it 2002-2024
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5