Imports System.IO
Imports System.IO.File
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
.............
End Sub
Private Sub RetrieveIdentity(ByVal connectionString As String)
...................
Response.Write("List All Rows:")
Dim row As DataRow
For Each row In categories.Rows
Response.Write("{0}: {1}", row(0), row(1))
Next
End Using
end sub
Protected Sub OKButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles OKButton.Click
................
End Sub
end class