Imports System.Data.SqlClient

Partial Class index
    Inherits System.Web.UI.Page


    Private Sub Page_Load(ByVal sender As Object, ByVal e As         				System.EventArgs) Handles MyBase.Load

 	End sub 



    Protected Sub Submit_Click(ByVal sender As Object, ByVal e As 	System.EventArgs) Handles Submit.Click
        Session("Name") = txtusername.Text
        Dim con As New  SqlConnection(System.Configuration. 						ConfigurationManager.AppSettings("Zeedb"))

        Dim dr As SqlDataReader
        'Dim StudentID As String
        Dim strSQL As String = "SELECT * FROM  tblCustomer  WHERE 			CustomerName = '" & txtusername.Text & "' and Password = '" 		& txtPassword.Text & "'"
        Dim cmdSQL As SqlCommand
        Try
            con.Open()
            cmdSQL = New SqlCommand(strSQL, con)
            cmdSQL.ExecuteNonQuery()
            dr = cmdSQL.ExecuteReader

            If dr.Read Then
                Response.Redirect("mainpage.aspx")
            Else
                Response.Redirect("index1.aspx")
            End If


        Catch ex As Exception
            lblError.Text = ex.Message
        Finally
            con.Close()
        End Try

    End Sub

    Protected Sub newuser_Click(ByVal sender As Object, ByVal e As 			System.EventArgs) Handles newuser.Click
	        Response.Redirect("register.aspx")
    End Sub
End Class

 Dim con As New  SqlConnection(System.Configuration. 						ConfigurationManager.AppSettings("Zeedb"))

string con = (string) ConfigurationSettings.AppSettings["Zeedb"];

SqlConnection con= new SqlConnection(ConnectionString); 

SqlConnection con= new SqlConnection(ConnectionString);

Dim Conn As String = Convert.ToString(ConfigurationManager.AppSettings["xyz"]) 
Dim objConnection As New SqlConnection(Conn) 
objConnectiopn.Open()