Ho impostato nel vb della pagina di login.aspx il seguente codice per connettersi in fase di click al db e verificare le credenziali di accesso.
Una volta però che faccio click sul pulsante invio il sistema rimane appeso e non viene eseguito l'accesso.
Dove sbaglio?
Grazie

--------------------------


Imports System.Data

Partial Class login

Inherits System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectionString As String = "Provider=SQLOLEDB;server=xxxxxxxxx;uid=aaaaa;pwd=aaaaaa;database=aaaa"
Dim query As String
If username.Text = "" Or password.Text = "" Then
Response.Redirect("http://www.gdl-connect.eu")
Else
query = "SELECT * FROM connect_clienti WHERE username='" & username.Text & "' AND password='" & password.Text & "'"
Dim conn As New OleDb.OleDbConnection(connectionString)
Dim cmd As New OleDb.OleDbCommand(query, conn)
Dim reader As OleDb.OleDbDataReader
Try
conn.Open()
reader = cmd.ExecuteReader
If reader.Read() Then
' Controllo necessario per il case sensitive
If username.Text = reader("username") And password.Text = reader("password") Then
' Aggiungo l'utente alla sessione ed effettuo il redirect alla Home
Session.Add("username", username.Text)
Response.Redirect("index.aspx")
Else
Response.Redirect("http://www.gdl-connect.eu")
End If
Else
Response.Redirect("http://www.gdl-connect.eu")
End If
Catch ex As Exception
' Errore
Finally
' Se la connessione è rimasta aperta, la chiudo
If Not conn Is Nothing Then
conn.Close()
End If
End Try
End If
End Sub
End Class