Imports System.Data
Partial Class more
    Inherits System.Web.UI.Page
    Dim i As Integer
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       
        i = Request.QueryString("id")
        Dim x As String
        Dim odr As SqlClient.SqlDataReader
        Dim ocon As New SqlClient.SqlConnection(ConfigurationManager.ConnectionStrings("NIS").ConnectionString)
        Dim ocmd As New SqlClient.SqlCommand("select_eventDD", ocon)
        ocon.Open()
        ocmd.CommandType = CommandType.StoredProcedure
        ocmd.Parameters.AddWithValue("event_id", i)
        odr = ocmd.ExecuteReader()
        If Not odr.HasRows = False Then
            While odr.Read
                x = odr("event_text")
                Response.ContentType = "text/html"
                TextBox3.Text = Replace(x, "<br>", Chr(13))
                TextBox1.Text = odr("event_address")
                TextBox2.Text = odr("event_date")

            End While
        End If

    End Sub
End Class