Chiedo venia, colpa mia.
Proverò ad essere più chiaro. Dopo aver battuto invio, deve essere richiamata la seguente procedura di login:

Protected Sub cmdLogin_Click(sender As Object, e As System.EventArgs) Handles cmdLogin.Click
If txtEmail.Text.Replace(" ", "") = "" Or txtPassword.Text.Replace(" ", "") = "" Then Exit Sub
Dim cEvento As String
cquery = "SELECT Id_Clienti, Nominativo, Permessi, Attivo " & _
"FROM clienti " & _
"WHERE Email = '" & txtEmail.Text & "' AND Passwrd = '" & txtPassword.Text & "'"
Dim DTUtente As DataTable = ApriTab(cquery)
If DTUtente.Rows.Count > 0 Then
'Verifico qual è lo stato dell'utente
Select Case DTUtente.Rows(0).Item("Attivo")
Case "1" 'se è attivo lo rimando alla pagina
Session.Add("UtenteID", DTUtente.Rows(0).Item("Id_Clienti").ToString)
Session.Add("UtenteNominativo", DTUtente.Rows(0).Item("Nominativo").ToString)
Session.Add("UtentePermessi", DTUtente.Rows(0).Item("Permessi").ToString)
Session.Add("Login", "True")
cEvento = "Accesso Area Riservata - Utente:" & Session("UtenteNominativo")
Response.Cookies("Login")("Email") = txtEmail.Text
Response.Cookies("Login")("Passwrd") = txtPassword.Text
Response.Cookies("Login").Expires = DateTime.Now.AddDays(1)


Case "0" 'Se è disattivo lo segnalo
lblErrore.Text = "Account disattivato"
lblErrore.Visible = True
Session.Add("UtenteNominativo", DTUtente.Rows(0).Item("Nominativo").ToString)
cEvento = "Tentativo accesso Area Riservata utente disattivato - Utente: " & Session("UtenteNominativo")


Case Else 'in attesa
lblErrore.Text = "Account in attesa di attivazione"
lblErrore.Visible = True
Session.Add("UtenteNome", DTUtente.Rows(0).Item("Nominativo").ToString)
cEvento = "Tentativo accesso Area Riservata utente in attesa - Utente: " & Session("UtenteNominativo")
End Select
Else
lblErrore.Text = "Nome utente o password errati"
lblErrore.Visible = True
cEvento = "Area Riservata - Credenziali di accesso non valide"
End If
DTUtente.Clear()


'Aggiorno l'accesso dell'utente
cquery = "INSERT INTO logaccessi (Id_Clienti, Data, IP, Esito, Sezione) " & _
"VALUES (?Id_Clienti, NOW(), ?IP, ?Esito, ?Sezione)"
Dim cmdInsLogAccessi As New MySqlCommand(cquery, cn)
cmdInsLogAccessi.Parameters.Clear()
cmdInsLogAccessi.Parameters.AddWithValue("?Id_Clie nti", Convert.ToInt32(IIf(IsNothing(Session("UtenteId")) , "0", Session("UtenteId"))))
cmdInsLogAccessi.Parameters.AddWithValue("?IP", Page.Request.UserHostAddress)
cmdInsLogAccessi.Parameters.AddWithValue("?Esito", cEvento)
cmdInsLogAccessi.Parameters.AddWithValue("?Sezione ", "R") 'identifica l'area riservata


Try
Dim NumRec As Integer = cmdInsLogAccessi.ExecuteNonQuery()
Catch ex As Exception
lblErrore.Text = "Impossibile salvare le informazioni utente:" & ex.Message
lblErrore.Visible = True
cmdInsLogAccessi.Dispose()
Exit Sub
End Try
cmdInsLogAccessi.Dispose()
If Not IsNothing(Session.Item("UtenteID")) Then Response.Redirect(Request.Url.ToString)
End Sub
La mia domanda, quindi, è come richiamare quel codice dopo aver battuto invio. Cosa dovrei scriverci nel codice che mi hai girato?

<script runat="server">
Protected Sub login_Click(sender As Object, e As System.EventArgs)
codice per richiamare la procedura click del button
End Sub
</script>