Imports System.Data.SqlClient

Partial Class problems_table
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim sqlconn As New SqlConnection
        sqlconn.ConnectionString = "Server = WINSRVR03VMWARE; Database = Problems_table; integrated security=true"
        'Trusted_Connection=True

        '      Try
        '         sqlconn.Open()

        '     Catch ex As Exception

        '       MsgBox.show(ex.Message, "Connection to SQL Server Failed")


        '  End Try

        ' If sqlconn.State = 1 Then
        'Me.text = "You are connected to SQL Server!"
        'Me.backcolor = Color.cadetBlue()
        'End If

        ' Dim dt As New 

        'MyConnection.ConnectionString = "server=(WINSRVR03VMWARE);database=Problems_table;Trusted_Connection=True"
        'Dim MyAdapter As SqlAdapter
        'MyAdapter = New SqlAdapter
        '
        '       txtniin.Text = "GridView1"

        '   
        '     GridView1 = System.Web.UI.WebControls.GridView1 = ""
        ' txtniin.Text = SqlDataSource1
        Dim MAN_DREPDatasource As New SqlDataSource()
        MAN_DREPDatasource.ConnectionString = ConfigurationManager.ConnectionStrings("MAN_DREPConnectionString").ToString()
        MAN_DREPDatasource.InsertCommandType = SqlDataSourceCommandType.Text
        MAN_DREPDatasource.InsertCommand = ""






    End Sub
    Protected Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Response.Redirect("~/MAN.aspx", True)
    End Sub
    
End Class
