stdcr-v.aspx.vb

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Configuration
Partial Class stdcr_v
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        'Dim uid As String
        'uid = Request.QueryString("i_id")
        ''If ((Not (IsPostBack)) And Request.QueryString("ed_com") = "") Then

        ''Else

        ''End If
        'If (uid <> "" And Request.QueryString("ed_com") <> "" And Session("ed") = "") Then


        '    Dim con As SqlConnection
        '    con = New SqlConnection("Data Source=SHUBHAM\SRKING;Initial Catalog=carrentals;Integrated Security=True")
        '    con.Open()

        '    Dim query As String


        '    Session("ed") = "ok"


        '    query = "select * from carinform  where i_id=" + uid


        'End If

    End Sub

   
  
    Protected Sub btnreserv_Click(sender As Object, e As EventArgs) Handles btnreserv.Click
        Dim con As New SqlConnection("Data Source=SHUBHAM\SRKING;Initial Catalog=carrentals;Integrated Security=True")
        con.Open()
        Dim str As String
        str = "select * from carinform"
        Dim cmd As New SqlCommand(str, con)
        Dim da As New SqlDataAdapter(cmd)
        Dim dt As New DataTable()

        da.Fill(dt)

        cmd.ExecuteNonQuery()

        If dt.Rows.Count > 0 Then
            Session("ucid") = dt.Rows(1)(0).ToString()
            Session("uctype") = dt.Rows(1)(2).ToString()
            Session("ucname") = dt.Rows(1)(3).ToString()
            Session("ucrate") = dt.Rows(1)(4).ToString()
            Response.Redirect("reserv.aspx")

        End If
        con.Close()
    End Sub
End Class