Imports System.Data.SqlClient
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports AjaxControlToolkit
Public Class WebForm1
    Inherits System.Web.UI.Page
    Dim StrWelcome As String
    Dim SqlConn As SqlConnection
    Dim SqlCommand As SqlCommand
    Dim SqlDataReader As SqlDataReader
    Dim SqlQuery As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub BtnStart_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnStart.Click
        SqlConn = New SqlConnection(Session("Connection"))
        SqlConn.Open()
        SqlQuery = "SELECT count(*) As RCount FROM SurveyItem "
        SqlCommand = New SqlCommand()
        SqlCommand.Connection = SqlConn
        SqlCommand.CommandText = SqlQuery
        SqlDataReader = SqlCommand.ExecuteReader()
        If SqlDataReader.HasRows Then
            SqlDataReader.Read()
            Session("ItemCount") = SqlDataReader("RCount")
            'IntItemCount = SqlDataReader("RCount")
        End If
        'MsgBox(Session("ItemCount"))
        Session("ItemNo") = 1
        SqlDataReader.Close()
        SqlDataReader.Dispose()
        SqlCommand.Cancel()
        SqlCommand.Dispose()
        SqlConn.Close()

        Response.Redirect("Surveyitems.aspx")
    End Sub

End Class