Divisione del codice

[Daniele80]

Ciao a tutti,
sto rivedendo alcune cose che ho fatto tempo fa. Praticamente io nella mia pagina di login ho il codice .net e codice html.
Ora io vorrei lasciare nella pagina .aspx solo il codice .net e includere in qualche modo il codice.

Il codice behind praticamente non è altro ceh una classe, però sinceramnete non riesco a capire come farla.

vi riporto il codice:

<%@ Import NameSpace="System.Data.OleDb" %>
<%@ Import NameSpace="System.Data" %>
<%@ Page Language="vb"  %>
<script runat="server">
       
Sub Login(ByVal sender As Object, ByVal e As System.EventArgs)
	dim ObjDatabase as new TYASPNET.database()
	ObjDatabase.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data source=" & Server.MapPath("../mdb-database/fg-tunisie.mdb")
	
	Dim objReader As OleDbDataReader
	
	objReader = objDatabase.SelectSQL("SELECT id FROM Admin WHERE Nome='"& ObjDatabase.Controlla_Stringa(Nome.text) &"' AND Pwd='"& ObjDatabase.Controlla_Stringa(Pwd.Text) &"' ")
	
	if not objReader is nothing then
		Session("Admin")="ok"
		response.redirect ("index.aspx")
	else
		Errore.Visible = True
		Errore.Text = "ERRORE"
	end if
	objReader.Close
End Sub
</script>

Sareste cosi gentile di farmi vedere il codice behind con adatattato questo codice?

grazie mille

[Trinità]

non usi visual studio.net ?

io guardando i code behind in testa c'è
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports System.Web.Security
Imports System.Security.Principal

Public Class login
Inherits System.Web.UI.Page
Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator
Protected WithEvents RegularExpressionValidator1 As System.Web.UI.WebControls.RegularExpressionValidat or
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Label1 As System.Web.UI.WebControls.Label
Protected WithEvents Label2 As System.Web.UI.WebControls.Label
Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox

#Region " Codice generato da Progettazione Web Form "

'Chiamata richiesta da Progettazione Web Form.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: questa chiamata al metodo è richiesta da Progettazione Web Form.
'Non modificarla nell'editor del codice.
InitializeComponent()
End Sub

#End Region


' qui ci sono le diverse sub

e finisce con

End Class

[Daniele80]

si che lo uso:

[code]
Imports System.Data.OleDb
Imports System.Data


Public Class ViewStateInSessionVar
Inherits System.Web.UI.Page
Protected WithEvents Label1, Label2 As System.Web.UI.WebControls.Label
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Protected WithEvents Errore, Nome, Pwd As System.Web.UI.WebControls.TextBox

Sub Login(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click()
Dim ObjDatabase As New TYASPNET.database()
ObjDatabase.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0; data "source=" & Server.MapPath("../mdb-database/fg-tunisie.mdb")
Dim objReader As OleDbDataReader

objReader = ObjDatabase.SelectSQL("SELECT id FROM Admin WHERE Nome='" & ObjDatabase.Controlla_Stringa(Nome.text) & "' AND Pwd='" & ObjDatabase.Controlla_Stringa(Pwd.Text) & "' ")

If Not objReader Is Nothing Then
Session("Admin") = "ok"
response.redirect("index.aspx")
Else
Errore.Visible = True
Errore.Text = "ERRORE"
End If
objReader.Close()
End Sub

End Class
[code]

la 1° e la 3° parte in neretto mi dice "end of statement expected"
mentre per la 2° parte in neretto mi dice "is not defined"

cosa devo fare?

[Daniele80]

risolto dovevo solo includere le directory dove ho il db e la dll

una cosa vorrei chiedervi:

quando dichiaro gli oggetti che ho nel codice HTML , li devo dichiarare per forza privati?

Protected WithEvents Label1, Label2 As System.Web.UI.WebControls.Label