Imports System.Data.OleDb
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 OleDBConn As OleDbConnection
    Dim OleDBCommand As OleDbCommand
    Dim OleDBDataReader As OleDbDataReader
    Dim OleDBQuery 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
        OleDBConn = New OleDbConnection(Session("Connection"))
        OleDBConn.Open()
        OleDBQuery = "SELECT count(*) As RCount FROM SurveyItem "
        OleDBCommand = New OleDBCommand()
        OleDBCommand.Connection = OleDBConn
        OleDBCommand.CommandText = OleDBQuery
        OleDBDataReader = OleDBCommand.ExecuteReader()
        If OleDBDataReader.HasRows Then
            OleDBDataReader.Read()
            Session("ItemCount") = OleDBDataReader("RCount")
            'IntItemCount = OleDBDataReader("RCount")
        End If
        'MsgBox(Session("ItemCount"))
        Session("ItemNo") = 1
        OleDBDataReader.Close()
        OleDBDataReader.Dispose()
        OleDBCommand.Cancel()
        OleDBCommand.Dispose()
        OleDBConn.Close()

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

End Class